aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2012-02-04 03:39:38 +0100
committerDavid Waern <david.waern@gmail.com>2012-02-04 03:47:33 +0100
commit46a65020cdbb8aee274e5ab3db68f51639e8d1b2 (patch)
treeae486d539752884e498c4f951aba44e99ebdd545 /src/Haddock/Interface
parentfbef8bafd21d34f83326f7dd06bb82c563571345 (diff)
Use <> instead of mappend.
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Create.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 06d97265..cac3eac2 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -142,7 +142,7 @@ createInterface tm flags modMap instIfaceMap = do
addWarnings :: Warnings -> GlobalRdrEnv -> [Name] -> DocMap Name -> DocMap Name
addWarnings NoWarnings _ _ dm = dm
addWarnings (WarnAll _) _ _ dm = dm
-addWarnings (WarnSome ws) gre exps dm = M.unionWith (flip mappend) dm wm
+addWarnings (WarnSome ws) gre exps dm = M.unionWith (flip (<>)) dm wm
where
wm = M.fromList
[ (n, warnToDoc w) | (occ, w) <- ws, elt <- lookupGlobalRdrEnv gre occ
@@ -154,7 +154,7 @@ addModuleWarning ws =
case ws of
NoWarnings -> id
WarnSome _ -> id
- WarnAll w -> let d = warnToDoc w in Just . maybe d (mappend d)
+ WarnAll w -> let d = warnToDoc w in Just . maybe d (d <>)
warnToDoc :: WarningTxt -> Doc id
@@ -209,7 +209,7 @@ mkMaps :: DynFlags
mkMaps dflags gre instances exports decls = do
(dm, am, sm, cm) <- unzip4 <$> mapM mappings decls
let f :: (Ord a, Monoid b) => [[(a, b)]] -> Map a b
- f = M.fromListWith mappend . concat
+ f = M.fromListWith (<>) . concat
return (f dm, f am, f sm, f cm)
where
mappings (ldecl@(L _ decl), docs) = do