From 4fdf3392868c72ff4c33b70d165a177e97f2fece Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Mon, 27 Apr 2026 23:29:57 -0300
Subject: Format

---
 lib/envelope.ml | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'lib/envelope.ml')

diff --git a/lib/envelope.ml b/lib/envelope.ml
index 4b8bc46..1c20c5b 100644
--- a/lib/envelope.ml
+++ b/lib/envelope.ml
@@ -9,9 +9,8 @@ type tagged = { tag : string; payload : Sexplib.Sexp.t }
 let parse (input : Sexplib.Sexp.t) : (tagged, Error.t) Result.t =
   match input with
   | Sexplib.Sexp.List (Sexplib.Sexp.Atom tag :: rest) ->
-    let payload = match rest with
-      | [single] -> single
-      | many -> Sexplib.Sexp.List many
-    in
-    Ok { tag; payload }
+      let payload =
+        match rest with [ single ] -> single | many -> Sexplib.Sexp.List many
+      in
+      Ok { tag; payload }
   | s -> Error (Error.MalformedExpression s)
-- 
cgit v1.2.3