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

Remove redundant endOfInput

Browse source 
parseLogLines consumes till endOfInput
This commit is contained in:
Joey Hess 2019-01-10 12:42:59 -04:00
parent 6f66b53a30
commit 7e54c215b4
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Logs/Presence/Pure.hs
View file

@ -32,7 +32,7 @@ data LogStatus = InfoPresent | InfoMissing | InfoDead
deriving (Eq, Show, Bounded, Enum)
parseLog :: L.ByteString -> [LogLine]
parseLog = fromMaybe [] . A.maybeResult . A.parse (logParser <* A.endOfInput)
parseLog = fromMaybe [] . A.maybeResult . A.parse logParser
logParser :: A.Parser [LogLine]
logParser = parseLogLines $ LogLine