diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-06 11:24:50 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-06 11:24:50 +0900 |
commit | 99b8a91bf70ec322d5fc8f3f446ec66f92b5f276 (patch) | |
tree | 69b077b8340d4da98ac0fdbf8ad0e255afd5d3cb | |
parent | e827059b18c77b1a7c48f6efef7a0f144fe22c6c (diff) | |
download | srem-99b8a91bf70ec322d5fc8f3f446ec66f92b5f276.tar.gz |
TODO
-rw-r--r-- | src/Utility/EventCache.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Utility/EventCache.hs b/src/Utility/EventCache.hs index 000a3cd..968e704 100644 --- a/src/Utility/EventCache.hs +++ b/src/Utility/EventCache.hs @@ -104,6 +104,7 @@ getTimetableReminders :: IO [Reminder] getTimetableReminders = do dayOfWeek <- map toLower . formatTime defaultTimeLocale "%A" . localDay . zonedTimeToLocalTime <$> getZonedTime + -- TODO: timetable CSV files shouldn't be in the cache directory as not reproducible dir <- SremConfig.getCacheDirectory let path = dir </> dayOfWeek ++ ".csv" exists <- doesFileExist path |