11 lines
234 B
Standard ML
11 lines
234 B
Standard ML
structure GameUpdate =
|
|
struct
|
|
fun update (game, input) =
|
|
let
|
|
val {player, walls, wallTree} = game
|
|
val player = Player.move (game, input)
|
|
in
|
|
{player = player, walls = walls, wallTree = wallTree}
|
|
end
|
|
end
|