GHC 7.8 mtl compat
This commit is contained in:
parent
78e34f82a6
commit
5e4026b946
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user