parseWeekDay :: Parser WeekDay
parseWeekDay = do string "Mon"; return Monday
           <|> do string "Tue"; return Tuesday
           <|> do string "Wed"; return Wednesday
           <|> do string "Thu"; return Thursday
           <|> do string "Fri"; return Friday
           <|> do string "Sat"; return Saturday
           <|> do string "Sun"; return Sunday
parseWeekDay :: Parser WeekDay
parseWeekDay = do string "Mon"; return Monday
           <|> do string "Tue"; return Tuesday
           <|> do string "Wed"; return Wednesday
           <|> do string "Thu"; return Thursday
           <|> do string "Fri"; return Friday
           <|> do string "Sat"; return Saturday
           <|> do string "Sun"; return Sunday
parseWeekDay = do string "Mon"; return Monday
           <|> do string "Tue"; return Tuesday
           <|> do string "Wed"; return Wednesday
           <|> do string "Thu"; return Thursday
           <|> do string "Fri"; return Friday
           <|> do string "Sat"; return Saturday
           <|> do string "Sun"; return Sunday