a bit of formatting (no other changes in this commit)

2024-07-31 12:30:12 +01:00
parent d18e6f105d
commit 6a2fe3ed18
6 changed files with 40 additions and 33 deletions
--- a/imperative-shell/shell.sml
+++ b/imperative-shell/shell.sml
@@ -19,9 +19,12 @@ struct
      val inputMailbox = Mailbox.mailbox ()
      val drawMailbox = Mailbox.mailbox ()

-      val _ = CML.spawn (fn () => InputCallbacks.registerCallbacks (window, inputMailbox))
+      val _ = CML.spawn (fn () =>
+        InputCallbacks.registerCallbacks (window, inputMailbox))
      val _ = CML.spawn (fn () => EventLoop.update (inputMailbox, drawMailbox))
-      val _ = CML.spawn (fn () => EventLoop.draw (drawMailbox, window, graphDrawObject, buttonDrawObject, 0))
+      val _ = CML.spawn (fn () =>
+        EventLoop.draw
+          (drawMailbox, window, graphDrawObject, buttonDrawObject, 0))
    in
      ()
    end