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 =