begin reimplementing search list data structure

2025-08-05 13:24:55 +01:00
parent 7dbd37a65b
commit 01369627bf
5 changed files with 118 additions and 543 deletions
--- a/shell/update-thread.sml
+++ b/shell/update-thread.sml
@@ -32,6 +32,9 @@ struct

      val app = AppUpdate.update (app, inputMsg) handle e => ExceptionLogger.log e

+      val searchList = #searchList app
+      val searchList = SearchList.toString searchList ^ "\n"
+
      val () = sendMsgs (#msgs app, drawMailbox)
    in
      loop (app, inputMailbox, drawMailbox)