From 55fe9b7605a52e57441aaec1b7aa8e1af36cc7d6 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sat, 9 Aug 2025 14:13:23 +0100
Subject: [PATCH] a bit of formatting (code does same thing, but is expressed
 in a way that is a little clearer after the formatter has been run)

---
 fcore/layer-tree.sml | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/fcore/layer-tree.sml b/fcore/layer-tree.sml
index 61790d9..a540420 100644
--- a/fcore/layer-tree.sml
+++ b/fcore/layer-tree.sml
@@ -17,13 +17,19 @@ struct
       LEAF => NODE {key = newKey, value = newValue, left = LEAF, right = LEAF}
     | NODE {key, value, left, right} =>
         if newKey < key then
-          let val left = insert (newKey, newValue, left)
-          in NODE {key = key, value = value, left = left, right = right}
-          end
+          NODE
+            { key = key
+            , value = value
+            , left = insert (newKey, newValue, left)
+            , right = right
+            }
         else if newKey > key then
-          let val right = insert (newKey, newValue, right)
-          in NODE {key = key, value = value, left = left, right = right}
-          end
+          NODE
+            { key = key
+            , value = value
+            , left = left
+            , right = insert (newKey, newValue, right)
+            }
         else
           NODE {key = key, value = newValue, left = left, right = right}