diff --git a/Go.elm b/Go.elm index d6f3cbd..04d3a17 100644 --- a/Go.elm +++ b/Go.elm @@ -32,7 +32,7 @@ update : Msg -> Model -> (Model, Cmd Msg) update msg model = case msg of Place c -> case verify c model of Nothing -> ( { model | error = Just "Can't place piece" }, Cmd.none) - Just c -> ( { model | board = c::model.board }, Cmd.none) + Just c -> ( { model | board = c::model.board }, sendMove model c) Update s -> case decodeUpdatestring s of Ok (c, xs) -> ( { model | board = xs, currentColor = Just c }, Cmd.none) Err s -> ( { model | error = Just "Can't parse server response" }, Cmd.none)