stog: fix compatibility with uri ≥ 4.0.0

This commit is contained in:
Vincent Laporte 2020-12-06 09:33:38 +01:00 committed by Vincent Laporte
parent 24b4e1094e
commit 57f2285079
2 changed files with 14 additions and 1 deletions

View file

@ -18,7 +18,7 @@ stdenv.mkDerivation rec {
createFindlibDestdir = true;
patches = [ ./install.patch ];
patches = [ ./install.patch ./uri.patch ];
meta = with stdenv.lib; {
description = "XML documents and web site compiler";

View file

@ -0,0 +1,13 @@
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 =