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

setpresentkey: A new plumbing-level command.

Browse source
This commit is contained in:
Joey Hess 2014-12-29 15:16:40 -04:00
parent 589a048a7d
commit 43dc7f678f
5 changed files with 50 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Logs/Presence/Pure.hs
View file

@ -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