From 4d99c94bc201b0dc1b5e9cbf776f08085515a087 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 24 Mar 2016 11:33:11 -0400 Subject: [PATCH] Move the definition onto a new line. --- src/Alignment.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index 9f0025bac..f8bb6ff5a 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -134,7 +134,8 @@ groupChildrenByLine :: Join These [Range] -> [AlignedDiff leaf] -> [Join These ( groupChildrenByLine ranges children = go rangeLists children where rangeLists = these (flip (,) []) ((,) []) (,) (runJoin ranges) go ranges children | (l:ls, r:rs) <- ranges - , (child:rest) <- children = go ranges rest + , (child:rest) <- children + = go ranges rest | otherwise = uncurry (alignWith (fmap (flip (,) []) . Join)) ranges intersects :: Range -> Range -> Bool