diff options
| author | hallgren <hallgren@chalmers.se> | 2012-09-26 18:13:47 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2012-09-26 18:13:47 +0000 |
| commit | 5e71c365d1beeb57613c4f5a6790845448d2ac82 (patch) | |
| tree | ae776df3396d94264348780e4bacd0aaf809952c /src/compiler/GF | |
| parent | 1b359acbf2cc0cb83e71cc5f1c28a62efd27eea6 (diff) | |
SIO bug fix
Line breaks were missing when capturing stdout. (putStrLn acted like putStr.)
Diffstat (limited to 'src/compiler/GF')
| -rw-r--r-- | src/compiler/GF/Infra/SIO.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Infra/SIO.hs b/src/compiler/GF/Infra/SIO.hs index f8c554aca..c8355b293 100644 --- a/src/compiler/GF/Infra/SIO.hs +++ b/src/compiler/GF/Infra/SIO.hs @@ -58,7 +58,7 @@ captureSIO sio = do ch <- newChan output <- fmap takeJust (getChanContents ch) return (output,result) where - takeJust (Just xs:ys) = xs++takeJust ys + takeJust (Just xs:ys) = xs++'\n':takeJust ys takeJust _ = [] -- * Restricted accesss to arbitrary (potentially unsafe) IO operations |