mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

typo

Browse source
This commit is contained in:
Joey Hess 2012-01-07 00:45:01 -04:00
parent dfa76069d4
commit bdc49ddbdb
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Log.hs
View file

@ -84,7 +84,7 @@ showLog file ps = do
{- Generates a display of the changes (which are ordered with newest first), {- Generates a display of the changes (which are ordered with newest first),
- by comparing each change with the previous change. - 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. -} - removed. -}
compareChanges :: Ord a => (Bool -> POSIXTime -> S.Set a -> b) -> [(POSIXTime, S.Set a)] -> [b] compareChanges :: Ord a => (Bool -> POSIXTime -> S.Set a -> b) -> [(POSIXTime, S.Set a)] -> [b]
compareChanges format changes = concatMap diff $ zip changes (drop 1 changes) compareChanges format changes = concatMap diff $ zip changes (drop 1 changes)