From 0969e20f39ace0b5fc1a496fa29f67d213085104 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 17 Jun 2016 14:05:38 -0400 Subject: [PATCH] Generalize hasChanges to arbitrary annotations. --- src/Alignment.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Alignment.hs b/src/Alignment.hs index 49fefc24a..01a4b3a5b 100644 --- a/src/Alignment.hs +++ b/src/Alignment.hs @@ -39,7 +39,7 @@ numberedRows = countUp (both 1 1) nextLineNumbers from row = modifyJoin (fromThese identity identity) (succ <$ row) <*> from -- | Determine whether a line contains any patches. -hasChanges :: SplitDiff leaf Info -> Bool +hasChanges :: SplitDiff leaf annotation -> Bool hasChanges = or . (True <$) -- | Align a Diff into a list of Join These SplitDiffs representing the (possibly blank) lines on either side.