at 22.05-pre 13 lines 328 B view raw
1diff --git a/src/stog_url.ml b/src/stog_url.ml 2index 5d30a43f..c67bfc36 100644 3--- a/src/stog_url.ml 4+++ b/src/stog_url.ml 5@@ -40,7 +40,7 @@ let of_string s = 6 with _ -> 7 failwith (Printf.sprintf "Malformed URL %S" s) 8 ;; 9-let to_string = Uri.to_string ;; 10+let to_string u = Uri.to_string u;; 11 12 let path url = 13 let l =