GHC 7.8 mtl compat

2015-12-20 15:34:14 +03:00 · 2015-12-20 15:34:14 +03:00 · 5e4026b946
commit 5e4026b946
parent 78e34f82a6
1 changed files with 1 additions and 1 deletions
--- a/src/GHCMod/Options/Help.hs
+++ b/src/GHCMod/Options/Help.hs
@ -35,7 +35,7 @@ para :: String -> Doc
 para = PP.fillSep . map PP.text . words

 append :: Doc -> MyDocM (Maybe Doc) a
-append s = modify' m >> return undefined
+append s = modify m >> return undefined
  where
    m :: Maybe Doc -> Maybe Doc
    m Nothing = Just s