restores Admin sessions

src/Page.elm

@@ -90,7 +90,7 @@ view page =
                         Session.Player data ->
                             data.player.name
 
-                        Session.Admin ->
+                        Session.Admin _ ->
                             "Administration"
 
                 Nothing ->
@@ -109,7 +109,7 @@ view page =
                                 text ""
                             ]
 
-                        Session.Admin ->
+                        Session.Admin _ ->
                             [ navLink "fas fa-store-alt" Route.Merchant page ]
 
                 Nothing ->
@@ -173,7 +173,7 @@ viewSessionBar session controls =
                            )
                         |> List.map (Html.map Wealth)
 
-                Just Session.Admin ->
+                Just (Session.Admin _) ->
                     [ text "Admin" ]
 
         notifications =
@@ -471,7 +471,7 @@ applyUpdate u user =
                 Api.ClaimRemoved claim ->
                     Session.Player { data | claims = List.filter (\c -> c.id /= claim.id) data.claims }
 
-        Session.Admin ->
+        Session.Admin _ ->
             user