ref: c3cd7e6b9d104b8af1e0ca2a6660e2ddc25c4b2a
parent: c166cdc6d57d869aec823386c1cd54fc4e46691e
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Tue Sep 19 12:51:12 EDT 2023
Use FilePath instead of String
--- a/lib/System/IO.hs
+++ b/lib/System/IO.hs
@@ -140,13 +140,13 @@
cs <- unsafeInterleaveIO (hGetContents h)
return (chr c : cs)
-writeSerialized :: forall a . String -> a -> IO ()
+writeSerialized :: forall a . FilePath -> a -> IO ()
writeSerialized p s = do
h <- openFile p WriteMode
hSerialize h s
hClose h
-readSerialized :: forall a . String -> IO a
+readSerialized :: forall a . FilePath -> IO a
readSerialized p = do
h <- openFile p ReadMode
a <- hDeserialize h
--
⑨