aboutsummaryrefslogtreecommitdiff
path: root/lib/turtle/rdf_turtle.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/turtle/rdf_turtle.ml')
-rw-r--r--lib/turtle/rdf_turtle.ml7
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/turtle/rdf_turtle.ml b/lib/turtle/rdf_turtle.ml
index 5041df5..cb3e3e8 100644
--- a/lib/turtle/rdf_turtle.ml
+++ b/lib/turtle/rdf_turtle.ml
@@ -29,10 +29,10 @@ let iri_of_iriref : Ast.Iriref.t -> Iri.t =
* string's themselves. *)
let iri_of_resource : Ast.state -> Ast.Iri.t -> Iri.t = fun
state ast_iri ->
-(* Fmt.pr "Im in iri_of_resource; hi!@."; *)
match ast_iri with
| Iriref str ->
- str |> Iri.of_string
+ str |>
+ Iri.of_string
| Prefixed_name (a, b) ->
let iri = Ast.SMap.find a state.namespaces in
let lst = b |> Ast.Iriref.to_string in
@@ -141,7 +141,6 @@ and insert_pred : Triple.Subject.t -> Triple.Predicate.t -> Ast.state * Graph.t
let g = Graph.add (Triple.make sub pred rdf_obj) g in
(state, g)
| Obj_literal { value; datatype; language } ->
-(* Fmt.pr "Im in insert_pred literal; hi!@."; *)
let rdf_iri_datatype = iri_of_resource state datatype in
let rdf_obj =
Triple.Object.of_literal
@@ -235,7 +234,7 @@ let parse p =
let decode str =
(* This 'string -> iri' map is needed because of the default datatype 'xsd:string' in literals *)
let xsd_iri =
- "<http://www.w3.org/2001/XMLSchema#"
+ "http://www.w3.org/2001/XMLSchema#"
|> Rdf.Iri.of_string in
let namespaces = Ast.SMap.add "xsd" xsd_iri Ast.SMap.empty in
let state : Ast.state = {