shithub: MicroHs

ref: cf5ccf43e92fa8d7b94c7f54cd8d80252c968381
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