formating

2025-08-20 12:51:31 +01:00
parent c21d1b8205
commit c4f3e921a3
5 changed files with 127 additions and 26 deletions
--- a/fcore/app-with.sml
+++ b/fcore/app-with.sml
@@ -3,8 +3,14 @@ struct
  open AppType

  fun bufferAndSize
-    (app: app_type, newBuffer, newWidth, newHeight, newSearchList, newMsgs,
-    newBufferModifyTime) =
+    ( app: app_type
+    , newBuffer
+    , newWidth
+    , newHeight
+    , newSearchList
+    , newMsgs
+    , newBufferModifyTime
+    ) =
    let
      val
        { mode
@@ -97,7 +103,13 @@ struct
      }
    end

-  fun searchList (app: app_type, newSearchList, newBuffer, newSearchString, newBufferModifyTime) =
+  fun searchList
+    ( app: app_type
+    , newSearchList
+    , newBuffer
+    , newSearchString
+    , newBufferModifyTime
+    ) =
    let
      val
        { searchList = _