Humza Shahid
6b91d64fc3
git-subtree-dir: shf git-subtree-mainline:401408448fgit-subtree-split:b6c5a95b66
11 lines
284 B
Standard ML
11 lines
284 B
Standard ML
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
|