diff options
author | Jasper Van der Jeugt | 2020-07-31 13:35:17 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-07-31 13:35:17 +0200 |
commit | 323ca81c96e4186747f06b6178d71d49e98c6066 (patch) | |
tree | 3d52febe85476fe31d64371e8335539c06ec83b3 /client/src/Client.elm | |
parent | 88e5fd7b4701fcfc9dd355208435a37bf129a92f (diff) |
Sync opponent proposals
Diffstat (limited to '')
-rw-r--r-- | client/src/Client.elm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm index 94e33cf..178e406 100644 --- a/client/src/Client.elm +++ b/client/src/Client.elm @@ -45,6 +45,12 @@ parseRoomId url = case String.split "/" url.path of _ :: "rooms" :: roomId :: _ -> Ok roomId _ -> Err <| "Invalid path: " ++ url.path +viewOpponent : Messages.Opponent -> Html msg +viewOpponent opponent = Html.div [] <| + [ Html.text opponent.name + ] ++ + if opponent.ready then [Html.text " ✅"] else [] + view : Model -> List (Html Msg) view model = case model of Error str -> @@ -58,7 +64,7 @@ view model = case model of Game game -> [ Html.h1 [] [Html.text "Opponents"] , Html.ul [] <| List.map - (\p -> Html.li [] [Html.text p]) + (\o -> Html.li [] [viewOpponent o]) game.view.opponents , Html.h1 [] [Html.text "You"] , Html.form |