GHC 7.8 mtl compat

This commit is contained in:
Nikolay Yakimov 2015-12-20 15:34:14 +03:00
parent 78e34f82a6
commit 5e4026b946

View File

@ -35,7 +35,7 @@ para :: String -> Doc
para = PP.fillSep . map PP.text . words para = PP.fillSep . map PP.text . words
append :: Doc -> MyDocM (Maybe Doc) a append :: Doc -> MyDocM (Maybe Doc) a
append s = modify' m >> return undefined append s = modify m >> return undefined
where where
m :: Maybe Doc -> Maybe Doc m :: Maybe Doc -> Maybe Doc
m Nothing = Just s m Nothing = Just s