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

11 lines
284 B
Standard ML
Raw Normal View History

2024-10-06 09:32:56 +01:00
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)
2024-10-06 09:32:56 +01:00
end