irmin.type: drop Fun dependency for pre-4.08 compatibility

mirage · Mar 13, 2020 · 5ab226a · 5ab226a
1 parent 2c1ed8e
commit 5ab226a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/irmin/test.ml b/test/irmin/test.ml
@@ -268,7 +268,7 @@ let test_pp_ty () =
 
     let like_custom : empty T.t = T.like v
 
-    let map : int T.t = T.(map int) Fun.id Fun.id
+    let map : int T.t = T.(map int) (fun x -> x) (fun x -> x)
   end in
   test "custom v" Custom.v "Custom (-)";
   test "custom like prim" Custom.like_prim "Custom (Prim Int)";