diff options
Diffstat (limited to 'src/Utility/EventCache.hs')
-rw-r--r-- | src/Utility/EventCache.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Utility/EventCache.hs b/src/Utility/EventCache.hs index a962286..efda675 100644 --- a/src/Utility/EventCache.hs +++ b/src/Utility/EventCache.hs @@ -35,7 +35,7 @@ import qualified Control.SremConfig as SremConfig import Data.List.Split (splitOn, splitOneOf) import Data.Maybe.Read import Data.Time.Calendar -import Data.Time.Clock +import Data.Time.LocalTime import System.Directory (doesFileExist, getDirectoryContents, removeFile) import System.FilePath ((</>)) @@ -51,7 +51,7 @@ purgeOldEventCaches = do files <- (SremConfig.getCacheDirectory >>= getDirectoryContents) `catch` ((\_ -> return []) :: IOException -> IO [FilePath]) - today <- utctDay <$> getCurrentTime + today <- localDay . zonedTimeToLocalTime <$> getZonedTime forM_ files $ \file -> when (fileIsOldCache today file) $ removeFile file @@ -118,7 +118,8 @@ makeEventCSV r = (show . getReminderHour $ r) ++ "," ++ ++ getReminderText r todaysCacheFileDateString :: IO String -todaysCacheFileDateString = showGregorian . utctDay <$> getCurrentTime +todaysCacheFileDateString = showGregorian . localDay . zonedTimeToLocalTime + <$> getZonedTime fileIsOldCache :: Day -> FilePath -> Bool fileIsOldCache today file = length splitFile == 3 |