bornhack-website/schedule/src/WebSocketCalls.elm

module WebSocketCalls exposing (scheduleServer, sendInitMessage)

-- Internal modules

import Messages exposing (Msg)


-- External modules

import WebSocket
import Json.Encode


scheduleServer : String
scheduleServer =
    "ws://localhost:8000/schedule/"


sendInitMessage : String -> Cmd Msg
sendInitMessage camp_slug =
    WebSocket.send scheduleServer
        (Json.Encode.encode 0
            (Json.Encode.object
                [ ( "action", Json.Encode.string "init" )
                , ( "camp_slug", Json.Encode.string camp_slug )
                ]
            )
        )