(* deliver resolve request to http_getter *)
let doc = ClientHTTP.get (sprintf "%sresolve?uri=%s" (getter_url ()) uri) in
let res = ref Unknown in
- Pxp_yacc.process_entity PxpHelmConf.pxp_config (`Entry_content [])
- (Pxp_yacc.create_entity_manager ~is_document:true PxpHelmConf.pxp_config
+ Pxp_ev_parser.process_entity PxpHelmConf.pxp_config (`Entry_content [])
+ (Pxp_ev_parser.create_entity_manager ~is_document:true PxpHelmConf.pxp_config
(Pxp_yacc.from_string doc))
(function
- | Pxp_yacc.E_start_tag ("url",["value",url],_) -> res := Resolved url
- | Pxp_yacc.E_start_tag ("unresolved",[],_) ->
+ | Pxp_types.E_start_tag ("url",["value",url],_,_) -> res := Resolved url
+ | Pxp_types.E_start_tag ("unresolved",[],_,_) ->
res := Exception (Unresolvable_URI uri)
- | Pxp_yacc.E_start_tag _ -> res := Exception UnexpectedGetterOutput
+ | Pxp_types.E_start_tag _ -> res := Exception UnexpectedGetterOutput
| _ -> ());
match !res with
| Unknown -> raise UnexpectedGetterOutput