Format

2 files changed, 6 insertions, 7 deletions

diff --git a/lib/vcl/executor.ml b/lib/vcl/executor.ml
index 4ac5eff..ff95583 100644
--- a/lib/vcl/executor.ml
+++ b/lib/vcl/executor.ml
@@ -3,9 +3,7 @@ module Make (NT : Nt.S) = struct
       (Sublanguage_types.result, Condition.t) result =
     match stmt with
     | Ast.Use branch_name ->
-       Result.map
-         (fun delta -> Sublanguage_types.Transition delta)
-         (ctx.switch_branch branch_name)
+        Result.map (fun delta -> Sublanguage_types.Transition delta) (ctx.switch_branch branch_name)
 
   let _ = (module NT : Nt.S)
 end
diff --git a/lib/vcl/sublanguage.ml b/lib/vcl/sublanguage.ml
index 4319eb8..437c93b 100644
--- a/lib/vcl/sublanguage.ml
+++ b/lib/vcl/sublanguage.ml
@@ -1,7 +1,9 @@
 module Make (NT : Nt.S) = struct
   module Error = struct
     open Condition
-    let unrecognized_command expr = condition "unrecognized-command" "Unrecognized command" ("expression" |=| (of_sexp expr))
+
+    let unrecognized_command expr =
+      condition "unrecognized-command" "Unrecognized command" ("expression" |=| of_sexp expr)
   end
 
   module Exec = Executor.Make (NT)
@@ -13,9 +15,8 @@ module Make (NT : Nt.S) = struct
   let parse _ = Ok ()
 
   let parse_sexp = function
-    | Sexplib.Sexp.(List [ Atom "use"; Atom branch ]) -> Ok (Ast.Use branch)
-    | sexp ->
-        Error (Error.unrecognized_command sexp)
+    | Sexplib.Sexp.(List [Atom "use"; Atom branch]) -> Ok (Ast.Use branch)
+    | sexp -> Error (Error.unrecognized_command sexp)
 
   let execute = Exec.execute
 end