Humza Shahid
f3a4e15ed5
git-subtree-dir: dotscape git-subtree-mainline:6b91d64fc3git-subtree-split:f306501a68
10 lines
226 B
Standard ML
10 lines
226 B
Standard ML
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
|