From cdb6196ab7a6b7d9602512fcc745e9dab61a9ce8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 29 Dec 2014 15:16:40 -0400 Subject: setpresentkey: A new plumbing-level command. --- Logs/Presence/Pure.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'Logs') diff --git a/Logs/Presence/Pure.hs b/Logs/Presence/Pure.hs index ffeb78b26..6bf36d883 100644 --- a/Logs/Presence/Pure.hs +++ b/Logs/Presence/Pure.hs @@ -30,14 +30,16 @@ parseLog = mapMaybe parseline . lines where parseline l = LogLine <$> (utcTimeToPOSIXSeconds <$> parseTime defaultTimeLocale "%s%Qs" d) - <*> parsestatus s + <*> parseStatus s <*> pure rest where (d, pastd) = separate (== ' ') l (s, rest) = separate (== ' ') pastd - parsestatus "1" = Just InfoPresent - parsestatus "0" = Just InfoMissing - parsestatus _ = Nothing + +parseStatus :: String -> Maybe LogStatus +parseStatus "1" = Just InfoPresent +parseStatus "0" = Just InfoMissing +parseStatus _ = Nothing {- Generates a log file. -} showLog :: [LogLine] -> String -- cgit v1.2.3