stog: fix compatibility with uri ≥ 4.0.0
This commit is contained in:
parent
24b4e1094e
commit
57f2285079
|
@ -18,7 +18,7 @@ stdenv.mkDerivation rec {
|
||||||
|
|
||||||
createFindlibDestdir = true;
|
createFindlibDestdir = true;
|
||||||
|
|
||||||
patches = [ ./install.patch ];
|
patches = [ ./install.patch ./uri.patch ];
|
||||||
|
|
||||||
meta = with stdenv.lib; {
|
meta = with stdenv.lib; {
|
||||||
description = "XML documents and web site compiler";
|
description = "XML documents and web site compiler";
|
||||||
|
|
|
@ -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 =
|
Loading…
Reference in New Issue