shithub: MicroHs

ref: 638e7ca702c9c27bd58a72d68b0862c86e68c25b
dir: /lib/Control/DeepSeq.hs/

View raw version 
module Control.DeepSeq(module Control.DeepSeq) where
import Primitives --Yhiding(rnf)
import Prelude

rnf :: forall a . --YNFData a =>
                  a -> ()
rnf = primRnf

deepseq :: forall a b . --YNFData a =>
                        a -> b -> b
deepseq a b = rnf a `seq` b

force :: forall a . --YNFData a =>
                    a -> a
force x = rnf x `seq` x