8 lines
150 B
Standard ML
8 lines
150 B
Standard ML
structure AppUpdate =
|
|
struct
|
|
open AppType
|
|
|
|
fun update (app, msg) =
|
|
case #mode app of NORMAL_MODE str => NormalMode.update (app, str, msg)
|
|
end
|