polarityParser :: Parser ImageQueryParameter
polarityParser = do
    string "set_polarity"
    spaces
    polarity <- polarityTypeParser
    return (Polarity polarity)
polarityParser :: Parser ImageQueryParameter
polarityParser = do
    string "set_polarity"
    spaces
    polarity <- polarityTypeParser
    return (Polarity polarity)
polarityParser = do
    string "set_polarity"
    spaces
    polarity <- polarityTypeParser
    return (Polarity polarity)