GoUI/Go/Ws.elm

16 lines
391 B
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)