msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

SIO bug fix

Browse Source 
Line breaks were missing when capturing stdout. (putStrLn acted like putStr.)
This commit is contained in:
hallgren
2012-09-26 18:13:47 +00:00
parent 1b359acbf2
commit 5e71c365d1
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Infra/SIO.hs
View File

@@ -58,7 +58,7 @@ captureSIO sio = do ch <- newChan
output <- fmap takeJust (getChanContents ch) output <- fmap takeJust (getChanContents ch)
return (output,result) return (output,result)
where where
takeJust (Just xs:ys) = xs++takeJust ys takeJust (Just xs:ys) = xs++'\n':takeJust ys
takeJust _ = [] takeJust _ = []
-- * Restricted accesss to arbitrary (potentially unsafe) IO operations -- * Restricted accesss to arbitrary (potentially unsafe) IO operations