Skip to content
Snippets Groups Projects
Commit 9a4f1237 authored by Bodigrim's avatar Bodigrim
Browse files

Support mtl-2.3

parent 2ffde833
No related branches found
No related tags found
4 merge requests!38Make --no-tmp-comp-dir the default,!37Adapt to latest xhtml version, various optimizations,!31Support HsToken in DataDecl and ClassDecl,!18Support mtl-2.3
......@@ -442,7 +442,7 @@ mkDocOpts mbOpts flags mdl = do
opts <- case mbOpts of
Just opts -> case words $ replace ',' ' ' opts of
[] -> tell ["No option supplied to DOC_OPTION/doc_option"] >> return []
xs -> liftM catMaybes (mapM parseOption xs)
xs -> fmap catMaybes (mapM parseOption xs)
Nothing -> return []
pure (foldl go opts flags)
where
......@@ -651,7 +651,7 @@ mkExportItems
fullModuleContents is_sig modMap pkgName thisMod semMod warnings gre
exportedNames decls maps fixMap splices instIfaceMap dflags
allExports
Just exports -> liftM concat $ mapM lookupExport exports
Just exports -> fmap concat $ mapM lookupExport exports
where
lookupExport (IEGroup _ lev docStr, _) = liftErrMsg $ do
doc <- processDocString dflags gre (hsDocString . unLoc $ docStr)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment