diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-30 19:19:26 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-30 19:19:26 +0900 |
| commit | 39057cadcee537a58011a6b0ac623c93b412c87e (patch) | |
| tree | a177c522000db00d3b82ff27992d47cabb4792be | |
| parent | 4fb1b14ddd1f315364c9b592973b06dce55e25b5 (diff) | |
| download | srem-39057cadcee537a58011a6b0ac623c93b412c87e.tar.gz | |
implement readEventsCSV
| -rw-r--r-- | src/Utility/EventCache.hs | 4 |
1 files 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 |