From ce33d560866fc93c9603fa72754dce852f664a78 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 14 Apr 2016 13:15:27 -0400 Subject: [PATCH] :fire: a redundant blank line. --- src/Alignment.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index 1cc697302..9976deed4 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -166,7 +166,6 @@ spanAndSplitFirstLines pred = foldr go ([], []) catThese :: [Join These a] -> Join These [a] catThese as = maybe (Join (These [] [])) Join $ getUnion $ mconcat $ Union . Just . runJoin . fmap pure <$> as - pairRangesWithLine :: Monoid b => Join These a -> Join These b -> Join These (a, b) pairRangesWithLine headRanges childLine = fromMaybe (flip (,) mempty <$> headRanges) $ (,) <$> headRanges `applyThese` childLine