restores Admin sessions

2019-12-05 16:16:34 +01:00
parent ced3f5763c
commit 2ec3e28f59
7 changed files with 119 additions and 86 deletions
--- a/src/Page/GroupChest.elm
+++ b/src/Page/GroupChest.elm
@@ -34,7 +34,7 @@ getClaimsFromSession session =
            else
                []

-        Session.Admin ->
+        Session.Admin _ ->
            []


@@ -66,7 +66,7 @@ view model =
                let
                    ( isPlayer, isGroup ) =
                        case Session.user model.session of
-                            Session.Admin ->
+                            Session.Admin _ ->
                                ( False, False )

                            Session.Player data ->