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.