module Model.Position ( positionEncoder ) where import Json.Encode (..) positionEncoder : (Int, Int) -> Value positionEncoder (x, y) = object [ ("x", int x) , ("y", int y) ]