From 7a602296734728b9a41814e394715708cf8ca2ad Mon Sep 17 00:00:00 2001 From: Sergey Vinokurov Date: Fri, 30 Mar 2018 10:53:08 +0100 Subject: [PATCH] Fix some hlint hints --- src/Language/Haskell/Brittany/Internal/LayouterBasics.hs | 4 ++-- src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs b/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs index 43b4b09..48730c7 100644 --- a/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs +++ b/src/Language/Haskell/Brittany/Internal/LayouterBasics.hs @@ -264,8 +264,8 @@ extractAllComments ann = ) filterAnns :: Data.Data.Data ast => ast -> ExactPrint.Anns -> ExactPrint.Anns -filterAnns ast anns = - Map.filterWithKey (\k _ -> k `Set.member` foldedAnnKeys ast) anns +filterAnns ast = + Map.filterWithKey (\k _ -> k `Set.member` foldedAnnKeys ast) hasAnyCommentsBelow :: Data ast => GHC.Located ast -> ToBriDocM Bool hasAnyCommentsBelow ast@(L l _) = do diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs index 120c2b6..bf09e52 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs @@ -216,7 +216,7 @@ wrapPatListy -> String -> ToBriDocM (Seq BriDocNumbered) wrapPatListy elems start end = do - elemDocs <- Seq.fromList elems `forM` \e -> layoutPat e >>= colsWrapPat + elemDocs <- Seq.fromList elems `forM` (layoutPat >=> colsWrapPat) sDoc <- docLit $ Text.pack start eDoc <- docLit $ Text.pack end case Seq.viewl elemDocs of