Add 'dotscape/' from commit 'f306501a68a51b634e895c5fdac70788ae899d75'

git-subtree-dir: dotscape
git-subtree-mainline: 6b91d64fc3
git-subtree-split: f306501a68

dotscape/fcore/app-update.sml

@@ -0,0 +1,9 @@
+structure AppUpdate =
+struct
+  open AppType
+
+  fun update (model: app_type, inputMsg) =
+    case #mode model of
+      NORMAL_MODE => NormalMode.update (model, inputMsg)
+    | MOVE_MODE => MoveMode.update (model, inputMsg)
+end