19 lines
367 B
Standard ML
19 lines
367 B
Standard ML
structure GameUpdate =
|
|
struct
|
|
open GameType
|
|
|
|
fun update (game: GameType.game_type, input) =
|
|
let
|
|
val {mode, userKeys} = game
|
|
|
|
val mode =
|
|
case mode of
|
|
LEVEL level =>
|
|
let val level = LevelUpdate.update (level, input)
|
|
in LEVEL level
|
|
end
|
|
in
|
|
{mode = mode, userKeys = userKeys}
|
|
end
|
|
end
|