ref: e824ee9e242736850b20320506544839126f1487
parent: ea48ba6de673536e1fe7f64a2428d2ef66379df0
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Mon Dec 18 09:46:49 EST 2023
Move seq
--- a/lib/Data/Function.hs
+++ b/lib/Data/Function.hs
@@ -37,3 +37,6 @@
asTypeOf :: forall a . a -> a -> a
asTypeOf = const
+
+seq :: forall a b . a -> b -> b
+seq = primSeq
--- a/lib/System/IO.hs
+++ b/lib/System/IO.hs
@@ -209,9 +209,6 @@
unsafeInterleaveIO :: forall a . IO a -> IO a
unsafeInterleaveIO ioa = return (primPerformIO ioa)
-seq :: forall a b . a -> b -> b
-seq = primSeq
-
-- MicroHs is always in binary mode
hSetBinaryMode :: Handle -> Bool -> IO ()
hSetBinaryMode _ _ = return ()
--
⑨