clean up some dead code

This commit is contained in:
2025-08-06 00:16:50 +01:00
parent faa55abd3d
commit f0f28a1318
8 changed files with 58 additions and 112 deletions

View File

@@ -65,7 +65,15 @@ struct
val app = AppType.init (lineGap, 1920, 1080)
(* todo: remove temp line below which tests search list *)
val app = BuildSearchList.fromStart (app, 0, lineGap, "val ")
val app =
let
val searchString = "val "
val (buffer, searchList) =
SearchLineGap.build (#buffer app, searchString)
val buffer = LineGap.goToStart buffer
in
AppWith.searchList (app, searchList, buffer, searchString)
end
val () = registerCallbacks window

View File

@@ -30,7 +30,8 @@ struct
val () = ExceptionLogger.addCommand inputMsg
val app = AppUpdate.update (app, inputMsg) handle e => ExceptionLogger.log e
val app = AppUpdate.update (app, inputMsg)
handle e => ExceptionLogger.log e
val searchList = #searchList app
val searchList = SearchList.toString searchList ^ "\n"