src/Model/Position.elm


1
2
3
4
5
6
7
8
9
10
11
12

module Model.Position exposing
  ( positionEncoder
  )

import Json.Encode exposing (..)

positionEncoder : (Int, Int) -> Value
positionEncoder (x, y) =
  object
    [ ("x", int x)
    , ("y", int y)
    ]