CS-290/GoUI
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Send new move to the server.

Browse Source
This commit is contained in:
Danila Fedorin 2018-05-25 10:51:38 -07:00
parent b52b16e5df
commit 0283e060e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Go.elm
View File

@ -32,7 +32,7 @@ update : Msg -> Model -> (Model, Cmd Msg)
update msg model = case msg of update msg model = case msg of
Place c -> case verify c model of Place c -> case verify c model of
Nothing -> ( { model | error = Just "Can't place piece" }, Cmd.none) 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 Update s -> case decodeUpdatestring s of
Ok (c, xs) -> ( { model | board = xs, currentColor = Just c }, Cmd.none) Ok (c, xs) -> ( { model | board = xs, currentColor = Just c }, Cmd.none)
Err s -> ( { model | error = Just "Can't parse server response" }, Cmd.none) Err s -> ( { model | error = Just "Can't parse server response" }, Cmd.none)