stog: fix compatibility with uri ≥ 4.0.0

pkgs/applications/misc/stog/default.nix

···
 
   createFindlibDestdir = true;
 
-  patches = [ ./install.patch ];
+  patches = [ ./install.patch ./uri.patch ];
 
   meta = with stdenv.lib; {
     description = "XML documents and web site compiler";

pkgs/applications/misc/stog/uri.patch

···
+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 =