shithub: MicroHs

ref: 48a34d1eb8df3def243689c0c5be2d5b3000a90c
dir: /lib/Control/DeepSeq.hs/

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

rnf :: forall a . a -> ()
rnf = primRnfErr

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

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

rnfNoErr :: forall a . a -> ()
rnfNoErr = primRnfNoErr