propellor spin
This commit is contained in:
parent
a57022deb8
commit
ba6e87cde9
|
@ -61,7 +61,7 @@ setLastChecked time desc = do
|
|||
readLastChecked :: IO (M.Map Desc LocalTime)
|
||||
readLastChecked = fromMaybe M.empty <$> catchDefaultIO Nothing go
|
||||
where
|
||||
go = readish <$> readFile lastCheckedFile
|
||||
go = readish <$> readFileStrict lastCheckedFile
|
||||
|
||||
writeLastChecked :: M.Map Desc LocalTime -> IO ()
|
||||
writeLastChecked = writeFile lastCheckedFile . show
|
||||
|
|
Loading…
Reference in New Issue