aboutsummaryrefslogtreecommitdiff
path: root/client
diff options
context:
space:
mode:
Diffstat (limited to 'client')
-rw-r--r--client/src/Client.elm12
1 files changed, 6 insertions, 6 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm
index 2d43ae2..54081c2 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -48,20 +48,20 @@ type Model
viewPlayers : List Messages.PlayerView -> Html msg
viewPlayers players = Html.table [] <|
Html.tr []
- [ Html.th
+ [ Html.th [] []
+ , Html.th [] []
+ , Html.th
[Html.Attributes.style "width" "100%"]
[Html.text "Name"]
, Html.th [] [Html.text "Score"]
] ::
List.map (\player -> Html.tr []
- [ Html.td [] [Html.text player.name]
+ [ Html.td [] [Html.text <| if player.admin then " 👑" else ""]
+ , Html.td [] [Html.text <| if player.ready then " ✅" else " ⌛"]
+ , Html.td [] [Html.text player.name]
, Html.td
[Html.Attributes.style "text-align" "right"]
[Html.text <| String.fromInt player.points]
- , Html.td []
- (if player.admin then [Html.text " 👑"] else [])
- , Html.td []
- (if player.ready then [Html.text " ✅"] else [])
])
(List.sortBy (\player -> (-player.points, player.name)) players)