channelTypeParser :: Parser Channel
channelTypeParser =
    (string "red" >> return Red) <|>
    (string "green" >> return Green) <|>
    (string "blue" >> return Blue)
channelTypeParser :: Parser Channel
channelTypeParser =
    (string "red" >> return Red) <|>
    (string "green" >> return Green) <|>
    (string "blue" >> return Blue)
channelTypeParser =
    (string "red" >> return Red) <|>
    (string "green" >> return Green) <|>
    (string "blue" >> return Blue)