diff options
Diffstat (limited to 'src/Utility/EventCache.hs')
| -rw-r--r-- | src/Utility/EventCache.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Utility/EventCache.hs b/src/Utility/EventCache.hs index 9b871ab..6b49bba 100644 --- a/src/Utility/EventCache.hs +++ b/src/Utility/EventCache.hs @@ -85,7 +85,7 @@ fileIsOldCache today file = length splitFile == 3 readDay :: String -> Maybe Day readDay s = do yearString:monthString:dayString:[] <- return $ splitOn "-" s - year <- readMaybe yearString + year <- readMaybe yearString month <- readMaybe monthString - day <- readMaybe dayString + day <- readMaybe dayString return $ fromGregorian year month day |