mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-27 05:22:50 -06:00
wf,vt,vp,vd,aw should store files in utf8
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user