let uris =
List.map
(function uri,_ ->
- Misc.wrong_xpointer_format_from_wrong_xpointer_format' uri
+ MQueryMisc.wrong_xpointer_format_from_wrong_xpointer_format' uri
) result in
let html=
" <h1>Locate Query: </h1><pre>" ^ get_last_query result ^ "</pre>"
~id
uris
in
- List.map Misc.cic_textual_parser_uri_of_string uris'
+ List.map MQueryMisc.cic_textual_parser_uri_of_string uris'
exception ThereDoesNotExistAnyWellTypedInterpretationOfTheInput