diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-30 19:18:21 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-30 19:18:21 +0900 |
commit | 4fb1b14ddd1f315364c9b592973b06dce55e25b5 (patch) | |
tree | 8b34b72712446ff2407df73084de23bf8712b430 | |
parent | 1b841006a7cece0075e6728e6618c4c80923b3df (diff) | |
download | srem-4fb1b14ddd1f315364c9b592973b06dce55e25b5.tar.gz |
alignment
-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 |