From 6e04842093253a1a62c358bd3c5c83c4710415ef Mon Sep 17 00:00:00 2001
From: Max Wilson <wilson.max@gmail.com>
Date: Sun, 3 Mar 2024 18:22:43 -0800
Subject: [PATCH] Skeleton for minimal UI sketching, via FSI directly

---
 scratch/GuessNumber.fsx | 10 ++++++++++
 scratch/SketchUI.fsx    |  7 +++++++
 2 files changed, 17 insertions(+)
 create mode 100644 scratch/GuessNumber.fsx
 create mode 100644 scratch/SketchUI.fsx

diff --git a/scratch/GuessNumber.fsx b/scratch/GuessNumber.fsx
new file mode 100644
index 0000000..23d0674
--- /dev/null
+++ b/scratch/GuessNumber.fsx
@@ -0,0 +1,10 @@
+#load "SketchUI.fsx"
+open SketchUI
+
+let init = ()
+let update msg model = model
+let view model =
+    "Hello, world! Notice that there's no dispatch argument"
+let send: unit -> unit = connect init update view
+
+send()
\ No newline at end of file
diff --git a/scratch/SketchUI.fsx b/scratch/SketchUI.fsx
new file mode 100644
index 0000000..cfebd76
--- /dev/null
+++ b/scratch/SketchUI.fsx
@@ -0,0 +1,7 @@
+#if INTERACTIVE
+#load "../src/Core/Common.fs"
+#endif
+
+let connect init update view =
+    let dispatch = notImpl
+    dispatch