From 9769ee943ebd4c03388df565363f0e9f9e2a2428 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 30 Mar 2015 19:37:46 +0900 Subject: implement parseEventsCSV --- src/Utility/EventCache.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/Utility/EventCache.hs b/src/Utility/EventCache.hs index e97cc1b..c19e122 100644 --- a/src/Utility/EventCache.hs +++ b/src/Utility/EventCache.hs @@ -66,7 +66,16 @@ readEventsCSV :: FilePath -> IO [Reminder] readEventsCSV f = readFile f >>= return . parseEventsCSV parseEventsCSV :: String -> [Reminder] -parseEventsCSV = undefined +parseEventsCSV = foldr step [] . lines + where + step r rs = maybe rs (: rs) $ parseEventCSV r + +parseEventCSV :: String -> Maybe Reminder +parseEventCSV line = do + hourString:minuteString:text:[] <- return $ splitOn "," line + hour <- readMaybe hourString + minute <- readMaybe minuteString + makeReminder' hour minute text makeEventsCSV :: [Reminder] -> String makeEventsCSV = unlines . foldr ((:) . makeEventCSV) [] -- cgit v1.2.3