diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-11 01:53:37 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-11 01:53:37 -0400 |
| commit | ba6e87cde965dface863742cf84a59782ae29aee (patch) | |
| tree | 262d55bd8daaa4f69a3982d5c2191e764c9897a8 | |
| parent | a57022deb88ca0216b01791f4325d4aace6de8f3 (diff) | |
propellor spin
| -rw-r--r-- | Propellor/Property/Scheduled.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Propellor/Property/Scheduled.hs b/Propellor/Property/Scheduled.hs index 8341765e..769a3931 100644 --- a/Propellor/Property/Scheduled.hs +++ b/Propellor/Property/Scheduled.hs @@ -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 |