Formatting

1 files changed, 3 insertions, 3 deletions

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;