Files
sml-projects/dotscape/fcore/app-update.sml

10 lines
226 B
Standard ML
Raw Normal View History

2025-07-06 02:49:38 +01:00
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)
2025-07-06 02:49:38 +01:00
end