From 7ff45befe94cd248ea5505e4ca74005358d5e329 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Tue, 4 Aug 2020 20:41:02 +0200
Subject: Small changes

---
 client/src/Client.elm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'client')

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)
 
-- 
cgit v1.2.3