aboutsummaryrefslogtreecommitdiff
path: root/client/src/Client.elm
diff options
context:
space:
mode:
Diffstat (limited to 'client/src/Client.elm')
-rw-r--r--client/src/Client.elm3
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm
index aa6194e..e3ecbf6 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -53,7 +53,8 @@ viewOpponent : Messages.Opponent -> Html msg
viewOpponent opponent = Html.div [] <|
[ Html.text opponent.name
] ++
- if opponent.ready then [Html.text " ✅"] else []
+ (if opponent.admin then [Html.text " 👑"] else []) ++
+ (if opponent.ready then [Html.text " ✅"] else [])
view : Model -> List (Html Msg)
view model = case model of