diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-05 09:47:54 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-05 09:47:54 +0900 |
commit | 80479b62e51ff13cd24baf4a1a22999303144d48 (patch) | |
tree | a0feaad7c36a1c445cb84e084cdf3bfc3c1fa7b9 /src/Main.hs | |
parent | 104abc8c64efecf1075c668d69acef0313d9b4a3 (diff) | |
download | srem-80479b62e51ff13cd24baf4a1a22999303144d48.tar.gz |
fix purging the old caches
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 8bc4a7e..21388f6 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -36,6 +36,7 @@ import Utility.Notify doCron :: IO () doCron = do + purgeOldEventCaches rems <- (++) <$> readEmacsEventCache <*> readManualEventCache (h, m, _) <- localHMD let nowRemsFilter r = getReminderHour r == h |