GHC 7.8 mtl compat
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user