hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix ghc<7.10

Browse Source
This commit is contained in:
Daniel Gröber 2015-09-16 05:40:53 +02:00
parent 2c90e7a700
commit 0fde762500
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/Output.hs
View File

@ -152,7 +152,7 @@ stdoutGateway (outPf, errPf) chan = do
sGetLine :: (Maybe String) -> StateT String IO [Line] sGetLine :: (Maybe String) -> StateT String IO [Line]
sGetLine mstr' = do sGetLine mstr' = do
buf <- get buf <- get
let mstr = (buf++) <$> mstr' let mstr = (buf++) `liftM` mstr'
case mstr of case mstr of
Nothing -> put "" >> return [buf] Nothing -> put "" >> return [buf]
Just "" -> return [] Just "" -> return []