smoothingParser :: Parser ImageQueryParameter
smoothingParser = do
    string "set_smoothing"
    spaces
    smoothingstring <- digits
    return (Smoothing (read smoothingstring))
smoothingParser :: Parser ImageQueryParameter
smoothingParser = do
    string "set_smoothing"
    spaces
    smoothingstring <- digits
    return (Smoothing (read smoothingstring))
smoothingParser = do
    string "set_smoothing"
    spaces
    smoothingstring <- digits
    return (Smoothing (read smoothingstring))