From a0fbf8433e0e9af7a420007825b88b58966eb198 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 16 Oct 2019 18:35:36 -0400 Subject: [PATCH] :fire: redundant parens. --- src/Rendering/TOC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Rendering/TOC.hs b/src/Rendering/TOC.hs index 0c26236cd..e426a2f3a 100644 --- a/src/Rendering/TOC.hs +++ b/src/Rendering/TOC.hs @@ -101,7 +101,7 @@ dedupe = map (entry &&& decl) . sortOn index . Map.elems . foldl' go Map.empty . go m d@(Dedupe _ _ decl) = case findSimilar decl m of Just similar | similar == decl -> m - | otherwise -> Map.insert (dedupeKey similar) (d { entry = Replaced, decl = similar }) m + | otherwise -> Map.insert (dedupeKey similar) d { entry = Replaced, decl = similar } m _ -> Map.insert (dedupeKey decl) d m findSimilar d = fmap decl . Map.lookup (dedupeKey d)