3 , DiddoEntry(DiddoEntry)
10 import HMSTime( secondsToHMS )
11 import Data.List( intercalate )
12 import Data.DateTime( diffSeconds )
13 import Data.Time.LocalTime( TimeZone() )
14 import Data.Time.Clock( UTCTime() )
15 import Data.Maybe( fromMaybe )
16 import Data.Time.Format( parseTime, formatTime )
17 import Data.Time.LocalTime( ZonedTime(..), zonedTimeToUTC, utcToZonedTime )
18 import Data.List.Split( splitOn )
21 data LogEntry = LogEntry
22 { timestamp :: UTCTime
23 , timezone :: TimeZone
27 instance Show LogEntry where
28 show x = (show $ timestamp x) ++ (show $ timezone x) ++ text x
30 data DiddoEntry = DiddoEntry
31 { startTime :: ZonedTime
32 , endTime :: ZonedTime
36 instance Show DiddoEntry where
37 show (DiddoEntry start finish entry) = intercalate ";" [show start,show finish,show $ diffSeconds (zonedTimeToUTC finish) (zonedTimeToUTC start),entry]
39 formatDiddoEntry :: String -> DiddoEntry -> String
40 formatDiddoEntry format entry = (formatTime defaultTimeLocale format (startTime entry)) ++ ";" ++ (formatTime defaultTimeLocale format (endTime entry)) ++ ";" ++ (show $ secondsToHMS $ diffSeconds (zonedTimeToUTC (endTime entry)) (zonedTimeToUTC (startTime entry))) ++ ";" ++ comment entry
42 logToDiddoEntry :: UTCTime -> LogEntry -> DiddoEntry
43 logToDiddoEntry startutc logentry = DiddoEntry startZoned endZoned $ text logentry
45 startZoned = utcToZonedTime (timezone logentry) startutc
46 endZoned = utcToZonedTime (timezone logentry) $ timestamp logentry
48 parseDiddoLogline :: String -> LogEntry
49 parseDiddoLogline line = LogEntry ts tz string
51 splitLine = splitOn ";" line
52 string = intercalate ";" $ tail splitLine
53 time = parseISOsecondsTime $ head splitLine
54 (ts,tz) = (zonedTimeToUTC time, zonedTimeZone time)
56 parseToZonedTime :: String -> String -> ZonedTime
57 parseToZonedTime format string = fromMaybe (error $ "Input data broken: " ++ string) $ parseTime defaultTimeLocale format string
59 parseISOsecondsTime :: String -> ZonedTime
60 parseISOsecondsTime = parseToZonedTime $ iso8601DateFormat $ Just "%T%z"