diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler/GF/Compile.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/compiler/GF/Compile.hs b/src/compiler/GF/Compile.hs index 84aa3d7d9..91781d3ce 100644 --- a/src/compiler/GF/Compile.hs +++ b/src/compiler/GF/Compile.hs @@ -83,10 +83,12 @@ intermOut opts d doc warnOut opts warnings | null warnings = return () - | otherwise = ioeIO (hPutStrLn stderr $ - if flag optVerbosity opts == Normal - then ('\n':warnings) - else warnings) + | otherwise = ioeIO $ hPutStrLn stderr ws `catch` oops + where + oops _ = hPutStrLn stderr "" -- prevent crash on character encoding problem + ws = if flag optVerbosity opts == Normal + then '\n':warnings + else warnings -- | the environment type CompileEnv = (Int,SourceGrammar,ModEnv) |