aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--client/src/Client.elm5
1 files changed, 3 insertions, 2 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm
index 6b65091..f15952e 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -49,7 +49,8 @@ viewPlayer player = Html.div [] <|
[ Html.text player.name
] ++
(if player.admin then [Html.text " 👑"] else []) ++
- (if player.ready then [Html.text " ✅"] else [])
+ (if player.ready then [Html.text " ✅"] else []) ++
+ [Html.text <| " (" ++ String.fromInt player.points ++ " points)"]
view : Model -> List (Html Msg)
view model = case model of
@@ -62,7 +63,7 @@ view model = case model of
[ Html.h1 [] [Html.text "Players"]
, Html.ul [] <| List.map
(\o -> Html.li [] [viewPlayer o])
- game.view.players
+ (game.view.me :: game.view.players)
, Html.h1 [] [Html.text "You"]
, Html.form
[ Html.Attributes.action ""