aboutsummaryrefslogtreecommitdiffstats
path: root/lib/protocols/Generative.ml
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/protocols/Generative.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/protocols/Generative.ml b/lib/protocols/Generative.ml
index bd89e21..6846e43 100644
--- a/lib/protocols/Generative.ml
+++ b/lib/protocols/Generative.ml
@@ -68,7 +68,8 @@ class virtual membership =
else
let* declaration = self#modes in
let* () =
- if Concepts.Mode.decision declaration bound then Ok () else Error (Error.undecidable bound)
+ if Concepts.Mode.decision declaration bound then Ok ()
+ else Error (Error.undecidable bound)
in
let* cursor = self#generate binding in
let expected = Concepts.Tuple.hash tuple in