This commit is contained in:
Joey Hess 2012-01-07 00:45:01 -04:00
parent dfa76069d4
commit bdc49ddbdb

View file

@ -84,7 +84,7 @@ showLog file ps = do
{- Generates a display of the changes (which are ordered with newest first),
- by comparing each change with the previous change.
- Uses a formater to generate a display of items that are added and
- Uses a formatter to generate a display of items that are added and
- removed. -}
compareChanges :: Ord a => (Bool -> POSIXTime -> S.Set a -> b) -> [(POSIXTime, S.Set a)] -> [b]
compareChanges format changes = concatMap diff $ zip changes (drop 1 changes)