Game.elm

import Html exposing (text)

type alias Energy = Int
type alias Position = { x: Int, y: Int }
type alias GameObject = { pos: Position, kind: Kind }

type Kind = Lifeform Energy | Obstacle

moveTo: GameObject -> Position -> GameObject
moveTo obj newPos =
  case obj.kind of
    Lifeform eng -> { obj | pos = newPos }
    Obstacle -> obj
    
player: GameObject
player =
  { pos = { x = 0, y = 0 }
  , kind = Lifeform 100
  }

main =
  text (toString (moveTo player { x = 1, y = 1 }))