-
-lineToEntry :: LogLine -> LogEntry
-lineToEntry (LogLine line) = LogEntry ts tz text
- where
- splitLine = splitOn ";" line
- text = intercalate ";" $ tail splitLine
- time = parseISOsecondsTime $ head splitLine
- (ts,tz) = (zonedTimeToUTC time, zonedTimeZone time)
-