GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

GF.Infra.UseIO: add functions readBinaryFile & writeBinaryFile

Browse Source
This commit is contained in:
hallgren
2011-04-13 14:44:18 +00:00
parent b2ffdd59eb
commit dbea5b1a19
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/compiler/GF/Infra/UseIO.hs
View File

@@ -186,6 +186,8 @@ putPointE v opts msg act = do
return a return a
-- * File IO
writeUTF8File :: FilePath -> String -> IO () writeUTF8File :: FilePath -> String -> IO ()
writeUTF8File fpath content = do writeUTF8File fpath content = do
h <- openFile fpath WriteMode h <- openFile fpath WriteMode
@@ -193,6 +195,9 @@ writeUTF8File fpath content = do
hPutStr h content hPutStr h content
hClose h hClose h
readBinaryFile path = hGetContents =<< openBinaryFile path ReadMode
writeBinaryFile path s = withBinaryFile path WriteMode (flip hPutStr s)
-- * Functions to limit acesss to arbitrary IO and system commands -- * Functions to limit acesss to arbitrary IO and system commands
restricted io = restricted io =
either (const io) (const $ fail message) =<< try (getEnv "GF_RESTRICTED") either (const io) (const $ fail message) =<< try (getEnv "GF_RESTRICTED")