pointlessness

This commit is contained in:
Joey Hess 2012-06-29 10:00:05 -04:00
parent cd0ab91c91
commit 29335bf326
5 changed files with 20 additions and 3 deletions

View file

@ -48,7 +48,7 @@ addLog file line = Annex.Branch.change file $ \s ->
{- Reads a log file.
- Note that the LogLines returned may be in any order. -}
readLog :: FilePath -> Annex [LogLine]
readLog file = parseLog <$> Annex.Branch.get file
readLog = parseLog <$$> Annex.Branch.get
{- Parses a log file. Unparseable lines are ignored. -}
parseLog :: String -> [LogLine]