fix all remaining type errors

2025-09-29 15:06:33 +01:00
parent fd321c2f14
commit 665497cf46
4 changed files with 7 additions and 8 deletions
--- a/fcore/normal-mode/normal-mode.sml
+++ b/fcore/normal-mode/normal-mode.sml
@@ -7,7 +7,7 @@ struct

  fun switchToNormalSearchMode (app: app_type) =
    NormalSearchFinish.onSearchChanged
-      (app, "", Vector.fromList [], 0, 0, #buffer app)
+      (app, "", PersistentVector.empty, 0, 0, #buffer app)

  fun getNumLength (pos, str) =
    if pos = String.size str then
--- a/fcore/normal-mode/normal-search-mode.sml
+++ b/fcore/normal-mode/normal-search-mode.sml
@@ -81,7 +81,6 @@ struct
        , windowWidth
        , windowHeight
        , tempSearchList
-        , searchString
        , visualScrollColumn
        )
      val drawMsg = Vector.concat drawMsg