varTypeQualifier :: Parser DataType
varTypeQualifier = do
    tq <- choice [
                try $ symbol "uint8",
                try $ symbol "uint16"
            ]
    -- tq <- symbol "uint" >>= (symbol "8" <|> symbol "16")
    return $ typeOf tq
    where typeOf "uint8" = Uint8
          typeOf "uint16" = Uint16
varTypeQualifier :: Parser DataType
varTypeQualifier = do
    tq <- choice [
                try $ symbol "uint8",
                try $ symbol "uint16"
            ]
    -- tq <- symbol "uint" >>= (symbol "8" <|> symbol "16")
    return $ typeOf tq
    where typeOf "uint8" = Uint8
          typeOf "uint16" = Uint16
varTypeQualifier = do
    tq <- choice [
                try $ symbol "uint8",
                try $ symbol "uint16"
            ]
    -- tq <- symbol "uint" >>= (symbol "8" <|> symbol "16")
    return $ typeOf tq
    where typeOf "uint8" = Uint8
          typeOf "uint16" = Uint16