format

1 files changed, 5 insertions, 9 deletions

diff --git a/lib/dcl/parser.ml b/lib/dcl/parser.ml
index ef64924..79d8fc7 100644
--- a/lib/dcl/parser.ml
+++ b/lib/dcl/parser.ml
@@ -3,16 +3,12 @@ type error = ParseError of string
 let of_sexp sexp =
   (* ppx_sexp_conv encodes no-argument variants as bare atoms, so
      unwrap a single-element list (e.g. (GetHead)) → atom (GetHead). *)
-  let sexp = match sexp with
-    | Sexplib.Sexp.List [atom] -> atom
-    | other -> other
+  let sexp =
+    match sexp with Sexplib.Sexp.List [ atom ] -> atom | other -> other
   in
   match Ast.statement_of_sexp sexp with
-  | stmt          -> Ok stmt
+  | stmt -> Ok stmt
   | exception exn -> Error (ParseError (Printexc.to_string exn))
 
-let of_string s =
-  of_sexp (Sexplib.Sexp.of_string s)
-
-let to_string stmt =
-  Ast.sexp_of_statement stmt |> Sexplib.Sexp.to_string_hum
+let of_string s = of_sexp (Sexplib.Sexp.of_string s)
+let to_string stmt = Ast.sexp_of_statement stmt |> Sexplib.Sexp.to_string_hum