-- | Parse a single line from the time log.
parseEntry :: Parser TimeEntry
parseEntry = do epochTime <- decimal
                skipSpace
                actions <- many parseAction
                (date, time, weekDay) <- parseTimeStamp
                endOfLine
                return (TimeEntry date time weekDay actions)

-- | Parsing of an action. These are just strings separated by spaces.
parseEntry :: Parser TimeEntry
parseEntry = do epochTime <- decimal
                skipSpace
                actions <- many parseAction
                (date, time, weekDay) <- parseTimeStamp
                endOfLine
                return (TimeEntry date time weekDay actions)

-- | Parsing of an action. These are just strings separated by spaces.
parseEntry = do epochTime <- decimal
                skipSpace
                actions <- many parseAction
                (date, time, weekDay) <- parseTimeStamp
                endOfLine
                return (TimeEntry date time weekDay actions)

-- | Parsing of an action. These are just strings separated by spaces.