From 5e71c365d1beeb57613c4f5a6790845448d2ac82 Mon Sep 17 00:00:00 2001 From: hallgren Date: Wed, 26 Sep 2012 18:13:47 +0000 Subject: [PATCH] SIO bug fix Line breaks were missing when capturing stdout. (putStrLn acted like putStr.) --- src/compiler/GF/Infra/SIO.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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