git.iko.soy/rowtype-yoga/purescript-native
on eaaef21 help sign in
rowtype-yoga/purescript-native/src/System/IO/UTF8.hs
14 lines 365 B history raw
1module System.IO.UTF8 where
3import Prelude.Compat
5import qualified Data.ByteString as BS
6import qualified Data.ByteString.UTF8 as UTF8
8readUTF8File :: FilePath -> IO String
9readUTF8File inFile = do
10 fmap UTF8.toString (BS.readFile inFile)
12writeUTF8File :: FilePath -> String -> IO ()
13writeUTF8File inFile text = do
14 BS.writeFile inFile (UTF8.fromString text)