diff options
Diffstat (limited to 'src/compiler/GF/Infra/UseIO.hs')
| -rw-r--r-- | src/compiler/GF/Infra/UseIO.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/compiler/GF/Infra/UseIO.hs b/src/compiler/GF/Infra/UseIO.hs index a9b3cada2..9f2d27f3f 100644 --- a/src/compiler/GF/Infra/UseIO.hs +++ b/src/compiler/GF/Infra/UseIO.hs @@ -197,16 +197,6 @@ writeUTF8File fpath content = do 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 -restricted io = - either (const io) (const $ fail message) =<< try (getEnv "GF_RESTRICTED") - where - message = - "This operation is not allowed when GF is running in restricted mode." - -restrictedSystem = restricted . system - - -- Because GHC adds the confusing text "user error" for failures cased by -- calls to fail. ioErrorText e = if isUserError e |