14 lines
328 B
Diff
14 lines
328 B
Diff
|
diff --git a/src/stog_url.ml b/src/stog_url.ml
|
||
|
|
index 5d30a43f..c67bfc36 100644
|
||
|
|
--- a/src/stog_url.ml
|
||
|
|
+++ b/src/stog_url.ml
|
||
|
|
@@ -40,7 +40,7 @@ let of_string s =
|
||
|
|
with _ ->
|
||
|
|
failwith (Printf.sprintf "Malformed URL %S" s)
|
||
|
|
;;
|
||
|
|
-let to_string = Uri.to_string ;;
|
||
|
|
+let to_string u = Uri.to_string u;;
|
||
|
|
|
||
|
|
let path url =
|
||
|
|
let l =
|