git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/src/System/IO/UTF8.hs
25 lines 565 B history raw
1module System.IO.UTF8 where
3import Prelude.Compat
5import System.IO ( IOMode(..)
6 , hGetContents
7 , hSetEncoding
8 , hClose
9 , hPutStr
10 , openFile
11 , utf8
12 )
14readUTF8File :: FilePath -> IO String
15readUTF8File inFile = do
16 h <- openFile inFile ReadMode
17 hSetEncoding h utf8
18 hGetContents h
20writeUTF8File :: FilePath -> String -> IO ()
21writeUTF8File inFile text = do
22 h <- openFile inFile WriteMode
23 hSetEncoding h utf8
24 hPutStr h text
25 hClose h