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