29 lines
582 B
Elm
29 lines
582 B
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 )
|
|
]
|
|
)
|
|
)
|