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

pointlessness

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
Logs/Presence.hs
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]