646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
23 lines
514 B
Diff
23 lines
514 B
Diff
diff --git a/src/api_call.ml b/src/api_call.ml
|
|
index 66f5083..6e96e95 100644
|
|
--- a/src/api_call.ml
|
|
+++ b/src/api_call.ml
|
|
@@ -112,7 +112,7 @@ include
|
|
include T
|
|
end)
|
|
(Open_on_rhs_intf)
|
|
- ()
|
|
+ (struct end)
|
|
|
|
module Or_error = struct
|
|
type nonrec 'a t = 'a Or_error.t t
|
|
@@ -138,7 +138,7 @@ module Or_error = struct
|
|
include T
|
|
end)
|
|
(Open_on_rhs_intf)
|
|
- ()
|
|
+ (struct end)
|
|
|
|
let error_s sexp = Const (Or_error.error_s sexp)
|
|
let ignore_m t = map t ~f:ignore
|