From fdf287bc3c71fa52bfdf8342e0f3f1a266a22334 Mon Sep 17 00:00:00 2001 From: Craig Ferguson Date: Fri, 16 Apr 2021 11:43:44 +0100 Subject: [PATCH] Restore compatibility with Alcotest.1.4.0 The Alcotest 1.4.0 release adds optional arguments to Alcotest.fail. Eta-expansion is necessary to use this function with the continuation printers. --- test/test_channel.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/test_channel.ml b/test/test_channel.ml index f51057c..12b9531 100644 --- a/test/test_channel.ml +++ b/test/test_channel.ml @@ -2,7 +2,7 @@ open Lwt.Infix module F = Mirage_flow_combinators.F -let fail fmt = Fmt.kstrf Alcotest.fail fmt +let fail fmt = Fmt.kstrf (fun s -> Alcotest.fail s) fmt (* this is a very small set of tests for the channel interface, intended to ensure that EOF conditions on the underlying flow are