shithub: MicroHs

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