GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-24 02:12:50 -06:00
Code Issues Packages Projects Releases Wiki 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