polarityTypeParser :: Parser Polarity
polarityTypeParser = (string "bright" >> return Bright) <|> (string "dark" >> return Dark)
polarityTypeParser :: Parser Polarity
polarityTypeParser = (string "bright" >> return Bright) <|> (string "dark" >> return Dark)
polarityTypeParser = (string "bright" >> return Bright) <|> (string "dark" >> return Dark)