git.iko.soy/rowtype-yoga/purescript-native
on d3bc249 help sign in
rowtype-yoga/purescript-native/src/System/IO/UTF8.hs
24 lines 655 B history raw
1module System.IO.UTF8 where
3import Prelude.Compat
5import qualified Data.ByteString as BS
6import qualified Data.ByteString.UTF8 as UTF8
7import Data.Text (Text)
8import qualified Data.Text.Encoding as TE
10readUTF8FileT :: FilePath -> IO Text
11readUTF8FileT inFile =
12 fmap TE.decodeUtf8 (BS.readFile inFile)
14writeUTF8FileT :: FilePath -> Text -> IO ()
15writeUTF8FileT inFile text =
16 BS.writeFile inFile (TE.encodeUtf8 text)
18readUTF8File :: FilePath -> IO String
19readUTF8File inFile =
20 fmap UTF8.toString (BS.readFile inFile)
22writeUTF8File :: FilePath -> String -> IO ()
23writeUTF8File inFile text =
24 BS.writeFile inFile (UTF8.fromString text)