From bbbf74a5604d62e0be8af85cdc2bff217daf628a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 2 Apr 2015 21:52:58 +0900 Subject: event cache dir should be created if missing --- src/Utility/EventCache.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Utility/EventCache.hs b/src/Utility/EventCache.hs index efda675..aecaeaf 100644 --- a/src/Utility/EventCache.hs +++ b/src/Utility/EventCache.hs @@ -36,8 +36,8 @@ import Data.List.Split (splitOn, splitOneOf) import Data.Maybe.Read import Data.Time.Calendar import Data.Time.LocalTime -import System.Directory (doesFileExist, getDirectoryContents, - removeFile) +import System.Directory (createDirectoryIfMissing, doesFileExist, + getDirectoryContents, removeFile) import System.FilePath (()) import Types.Reminder import Utility.Emacs @@ -58,6 +58,7 @@ purgeOldEventCaches = do appendManualEventCache :: Reminder -> Day -> IO () appendManualEventCache r d = do dir <- SremConfig.getCacheDirectory + createDirectoryIfMissing True dir let path = dir "manual_" ++ (showGregorian d) ++ ".csv" appendFile path $ makeEventsCSV [r] @@ -73,6 +74,7 @@ readEmacsEventCache :: IO [Reminder] readEmacsEventCache = do date <- todaysCacheFileDateString dir <- SremConfig.getCacheDirectory + createDirectoryIfMissing True dir let path = dir "emacs_" ++ date ++ ".csv" doesFileExist path >>= \alreadyThere -> if alreadyThere -- cgit v1.2.3