fix loading to use and return layer tree

2025-08-09 11:42:37 +01:00
parent 940e4429a7
commit 99a47a410f
7 changed files with 99 additions and 37 deletions
--- a/imperative-shell/file-thread.sml
+++ b/imperative-shell/file-thread.sml
@@ -25,12 +25,15 @@ struct
      val () = TextIO.closeIn io
    in
      case Parser.parse str of
-        SOME (canvasWidth, canvasHeight, grid) =>
-          Mailbox.send (inputMailbox, USE_SQUARES
-            { squares = grid
-            , canvasWidth = canvasWidth
-            , canvasHeight = canvasHeight
-            })
+        SOME (canvasWidth, canvasHeight, tree) =>
+          Mailbox.send
+            ( inputMailbox
+            , USE_LAYERS
+                { tree = tree
+                , canvasWidth = canvasWidth
+                , canvasHeight = canvasHeight
+                }
+            )
      | NONE => ()
    end