GoUI/Go/Ws.elm

module Go.Ws exposing (..)
import Go.Types exposing (..)
import WebSocket

wsUrl : Model -> String
wsUrl m = (m.sessionUrl ++ "/game/" ++ (toString m.sessionId))

encodeCell : Cell -> String
encodeCell ((x, y), c) = "place "
    ++ (toString x) ++ " "
    ++ (toString y) ++ " "
    ++ (toString c)

sendMove : Model -> Cell -> Cmd Msg
sendMove m c = WebSocket.send (wsUrl m) (encodeCell c)