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

parsePOSIXTime ByteString conversion

Browse source 
Some easy (though tiny) speed wins.

Sponsored-by: Luke T. Shumaker on Patreon
This commit is contained in:
Joey Hess 2025-01-22 16:41:06 -04:00
parent d3de3c28eb
commit 77e9781ae2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
13 changed files with 22 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/DaemonStatus.hs
View file

@ -136,13 +136,13 @@ readDaemonStatusFile file = parse <$> newDaemonStatus <*> readFile file
where
parse status = foldr parseline status . lines
parseline line status
| key == "lastRunning" = parseval parsePOSIXTime $ \v ->
| key == "lastRunning" = parseval (parsePOSIXTime . encodeBS) $ \v ->
status { lastRunning = Just v }
| key == "scanComplete" = parseval readish $ \v ->
status { scanComplete = v }
| key == "sanityCheckRunning" = parseval readish $ \v ->
status { sanityCheckRunning = v }
| key == "lastSanityCheck" = parseval parsePOSIXTime $ \v ->
| key == "lastSanityCheck" = parseval (parsePOSIXTime . encodeBS) $ \v ->
status { lastSanityCheck = Just v }
| otherwise = status -- unparsable line
where