diff options
| author | krasimir <krasimir@chalmers.se> | 2010-04-28 17:37:53 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-04-28 17:37:53 +0000 |
| commit | 68de1cead3a64d42e21b8668415596925b284b18 (patch) | |
| tree | 850426c9b605fb1947b1ffa2fad5e0a0a053f41a /src/compiler/GF/Infra/UseIO.hs | |
| parent | 6e7bbf3aa82a90f1b0ca38e3915972d02c5c8239 (diff) | |
wf,vt,vp,vd,aw should store files in utf8
Diffstat (limited to 'src/compiler/GF/Infra/UseIO.hs')
| -rw-r--r-- | src/compiler/GF/Infra/UseIO.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/compiler/GF/Infra/UseIO.hs b/src/compiler/GF/Infra/UseIO.hs index bb1a75b6e..3940e6be1 100644 --- a/src/compiler/GF/Infra/UseIO.hs +++ b/src/compiler/GF/Infra/UseIO.hs @@ -184,3 +184,10 @@ putPointE v opts msg act = do else when (verbAtLeast opts v) $ putStrLnE "" return a + +writeUTF8File :: FilePath -> String -> IO () +writeUTF8File fpath content = do + h <- openFile fpath WriteMode + hSetEncoding h utf8 + hPutStr h content + hClose h |