From 7e54c215b49c498161ed4beacc5dcf78e7660009 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 10 Jan 2019 12:42:59 -0400 Subject: [PATCH] Remove redundant endOfInput parseLogLines consumes till endOfInput --- Logs/Presence/Pure.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Logs/Presence/Pure.hs b/Logs/Presence/Pure.hs index 2c09e8fea9..054f086a5d 100644 --- a/Logs/Presence/Pure.hs +++ b/Logs/Presence/Pure.hs @@ -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