cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-11 01:53:37 -04:00
parent a57022deb8
commit ba6e87cde9
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/Property/Scheduled.hs
View File

@ -61,7 +61,7 @@ setLastChecked time desc = do
readLastChecked :: IO (M.Map Desc LocalTime) readLastChecked :: IO (M.Map Desc LocalTime)
readLastChecked = fromMaybe M.empty <$> catchDefaultIO Nothing go readLastChecked = fromMaybe M.empty <$> catchDefaultIO Nothing go
where where
go = readish <$> readFile lastCheckedFile go = readish <$> readFileStrict lastCheckedFile
writeLastChecked :: M.Map Desc LocalTime -> IO () writeLastChecked :: M.Map Desc LocalTime -> IO ()
writeLastChecked = writeFile lastCheckedFile . show writeLastChecked = writeFile lastCheckedFile . show