Add 'shf/' from commit 'b6c5a95b664aeb861d7b33ffc9eefe447ba99dd7'

git-subtree-dir: shf
git-subtree-mainline: 401408448f
git-subtree-split: b6c5a95b66

shf/fcore/app-update.sml

@@ -0,0 +1,10 @@
+structure AppUpdate =
+struct
+  open AppType
+
+  fun update (app: app_type, msg, time) =
+    case #mode app of
+      NORMAL_MODE modeData => NormalMode.update (app, modeData, msg, time)
+    | NORMAL_SEARCH_MODE modeData =>
+        NormalSearchMode.update (app, modeData, msg, time)
+end