Fix ghc<7.10

2015-09-16 05:40:53 +02:00 · 2015-09-16 05:40:53 +02:00 · 0fde762500
parent 2c90e7a700
commit 0fde762500
1 changed files with 1 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Output.hs
+++ b/Language/Haskell/GhcMod/Output.hs
@ -152,7 +152,7 @@ stdoutGateway (outPf, errPf) chan = do
   sGetLine :: (Maybe String) -> StateT String IO [Line]
   sGetLine mstr' = do
     buf <- get
-     let mstr = (buf++) <$> mstr'
+     let mstr = (buf++) `liftM` mstr'
     case mstr of
       Nothing -> put "" >> return [buf]
       Just "" -> return []