ref: 446865966672cec3cc50835052a06d8c7f62b063
parent: 747b9bb14fe56cfca476ce783d1015e7b0114dc5
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Fri Sep 22 06:55:02 EDT 2023
Add 'rnf' primitive.
--- /dev/null
+++ b/lib/Control/DeepSeq.hs
@@ -1,0 +1,15 @@
+module Control.DeepSeq(module Control.DeepSeq) where
+import Primitives
+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
--
⑨