ref: 54e753fc3251f55b637ff97e12f56e07f8ddb230
parent: 3a4888cc6b43a291c8afc51f76d15730138f9038
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Wed Sep 27 06:45:56 EDT 2023
Add hSetBinaryMode (doing nothing)
--- a/lib/System/IO.hs
+++ b/lib/System/IO.hs
@@ -167,3 +167,7 @@
seq :: forall a b . a -> b -> b
seq = primSeq
+
+-- MicroHs is always in binary mode
+hSetBinaryMode :: Handle -> Bool -> IO ()
+hSetBinaryMode _ _ = return ()
--
⑨