parseTimeStamp :: Parser (Day, TimeOfDay, WeekDay)
parseTimeStamp = do char '['
                    date <- parseDate
                    skipSpace
                    time <- parseTime
                    skipSpace
                    weekDay <- parseWeekDay
                    char ']'
                    return (date, time, weekDay)

-- | Parse date strings with a format like: 2014.09.20
parseTimeStamp :: Parser (Day, TimeOfDay, WeekDay)
parseTimeStamp = do char '['
                    date <- parseDate
                    skipSpace
                    time <- parseTime
                    skipSpace
                    weekDay <- parseWeekDay
                    char ']'
                    return (date, time, weekDay)

-- | Parse date strings with a format like: 2014.09.20
parseTimeStamp = do char '['
                    date <- parseDate
                    skipSpace
                    time <- parseTime
                    skipSpace
                    weekDay <- parseWeekDay
                    char ']'
                    return (date, time, weekDay)

-- | Parse date strings with a format like: 2014.09.20