GoUI/Go.elm

import Go.Types exposing (..)
import Go.Game exposing (verify)
import Go.Decoders exposing (decodeUpdateString)
import Go.Ws exposing (..)
import Go.View exposing (..)
import WebSocket
import Html exposing (Html, div, text)

init : Flags -> (Model, Cmd Msg)
init flags = (Model 
    (if flags.black then Black else White)
    flags.url
    flags.id
    flags.size
    Nothing
    Nothing
    [], Cmd.none)

initDummy : (Model, Cmd Msg)
initDummy = (Model
    Black
    "ws://localhost:3000"
    "debug"
    9
    Nothing
    Nothing
    [], Cmd.none)

view : Model -> Html Msg
view m = div [] 
    [ renderBoard m.sessionSize m.board
    ]

update : Msg -> Model -> (Model, Cmd Msg)
update msg model = case msg of
    Place indx -> case verify (indx, model.sessionColor) model of
        Nothing -> ( { model | error = Just "Can't place piece" }, 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)
    DismissError -> ({ model | error = Nothing }, Cmd.none)

subscriptions : Model -> Sub Msg
subscriptions m = 
    WebSocket.listen (wsUrl m) Update

main = Html.programWithFlags { init = init, update = update, subscriptions = subscriptions, view = view }