MQRefs fixed

diff --git a/helm/ocaml/mathql_interpreter/mathql.ml b/helm/ocaml/mathql_interpreter/mathql.ml
index 1fea24c2e723e40508e236dffb01c7667465787f..2bdc5a1b798d21ed54fdea17cd3d9f1b37f7f388 100644 (file)
--- a/helm/ocaml/mathql_interpreter/mathql.ml
+++ b/helm/ocaml/mathql_interpreter/mathql.ml
@@ -99,8 +99,7 @@ type mquery =
 (* TODO: usare le uri in questo formato *)
 type mquref = UriManager.uri * mqfi         (* uri, fragment identifier *)
 
-type mqrefs = mqtref list                   (* list of references (helper) *)
+type mqrefs = string list                   (* list of references (helper) *)
 
-type mqresult =                         
-   | MQStrUri of string list
+type mqresult =
    | MQRefs of mqrefs

diff --git a/helm/ocaml/mathql_interpreter/mqint.ml b/helm/ocaml/mathql_interpreter/mqint.ml
index 62c12d441e812022fc42a0ddcdf56f3f0713d1bb..240881771ff342c7d3fdd47699aca9405c7ecc34 100644 (file)
--- a/helm/ocaml/mathql_interpreter/mqint.ml
+++ b/helm/ocaml/mathql_interpreter/mqint.ml
@@ -72,7 +72,7 @@ let rec execute_ex q =
  * la uri puo' far parte del risultato.
  *)
 let xres_to_res l =
- MQStrUri
+ MQRefs
   (
    List.map
     List.hd