From ccd45ccecb45f5ee40cdbd621fd8bd62a1b86c36 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 27 May 2016 14:17:42 -0400 Subject: [PATCH] Print out the remaining children. --- src/Alignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index 0b228f397..a03144228 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -125,7 +125,7 @@ We should avoid taking asymmetrical children greedily so as not to misalign asym alignBranch :: Show term => (term -> Range) -> [Join These term] -> Both [Range] -> [Join These (Range, [term])] -- There are no more ranges, so we’re done. alignBranch _ [] (Join ([], [])) = [] -alignBranch _ children (Join ([], [])) = trace ("exhausted ranges with " ++ show (length children) ++ " children remaining") [] +alignBranch _ children (Join ([], [])) = trace ("exhausted ranges with remaining children: " ++ show children) [] -- There are no more children, so we can just zip the remaining ranges together. alignBranch _ [] ranges = runBothWith (alignWith Join) (fmap (flip (,) []) <$> ranges) -- There are both children and ranges, so we need to proceed line by line