From b2ff91614a7f1c7dd54a43bbfe88bbb6694b0a71 Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 24 Oct 2026 01:50:35 +0000 Subject: Formatting --- lib/kernel/Multigroup.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/kernel/Multigroup.ml') diff --git a/lib/kernel/Multigroup.ml b/lib/kernel/Multigroup.ml index 399ab30..79479d7 100644 --- a/lib/kernel/Multigroup.ml +++ b/lib/kernel/Multigroup.ml @@ -72,8 +72,8 @@ module Make (S : Abstract.Storage.STORAGE) = struct let unjudgeable denial = condition "unjudgeable-denial" - "A denial does not declare that reading it with nothing bound ends, so the state cannot \ - be judged" + "A denial does not declare that reading it with nothing bound ends, so the state cannot be \ + judged" ("denial" |=| Concepts.Value.String denial) end @@ -230,7 +230,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct let derive f node' = Protocols.Handle.require Protocols.Addressable.from node' |> Result.map Protocols.Addressable.address - |>> (fun addr -> self#deriving (f addr)) + |>> fun addr -> self#deriving (f addr) in Protocols. [ Addressable.make self; -- cgit v1.2.3