From 39057cadcee537a58011a6b0ac623c93b412c87e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 30 Mar 2015 19:19:26 +0900 Subject: implement readEventsCSV --- src/Utility/EventCache.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Utility/EventCache.hs b/src/Utility/EventCache.hs index 6b49bba..58cd2c0 100644 --- a/src/Utility/EventCache.hs +++ b/src/Utility/EventCache.hs @@ -62,8 +62,8 @@ readManualEventCache = do -- #### Internal functions -readEventsCSV :: FilePath -> IO [Reminder] -readEventsCSV = undefined +readEventsCSV :: FilePath -> IO [Reminder] +readEventsCSV f = readFile f >>= return . parseEventsCSV parseEventsCSV :: String -> [Reminder] parseEventsCSV = undefined -- cgit v1.2.3