qcheck/ounitutil tweaks

just-max · Jul 15, 2024 · 14ed557 · 14ed557
1 parent 7368741
commit 14ed557
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/test-lib/qCheck_util.ml b/src/test-lib/qCheck_util.ml
@@ -55,7 +55,7 @@ let assert_equal
     match wrap actual_f with
     | Ok (Some x) -> Ok x
     | Ok None -> Error (report @@ "Your submission timed out")
-    | Error { exn = e; _ } ->
+    | Error Util.{ exn = e; _ } ->
         match is_user_fail e with
         | Some s -> Error (report s)
         | None -> Error (error_msg @@ Printexc.to_string e)