Parse new isSuperAdmin on session

Author: hojberg

src/UnisonShare/Account.elm

@@ -19,6 +19,7 @@ type alias Account a =
         , pronouns : Maybe String
         , completedTours : List Tour
         , organizationMemberships : List OrganizationMembership
+        , isSuperAdmin : Bool
     }
 
 
@@ -88,18 +89,20 @@ isProjectOwner projectRef account =
 decodeSummary : Decode.Decoder AccountSummary
 decodeSummary =
     let
-        makeSummary handle name_ avatarUrl completedTours organizationMemberships =
+        makeSummary handle name_ avatarUrl completedTours organizationMemberships isSuperAdmin =
             { handle = handle
             , name = name_
             , avatarUrl = avatarUrl
             , pronouns = Nothing
             , completedTours = Maybe.withDefault [] completedTours
             , organizationMemberships = organizationMemberships
+            , isSuperAdmin = isSuperAdmin
             }
     in
-    Decode.map5 makeSummary
+    Decode.map6 makeSummary
         (field "handle" UserHandle.decodeUnprefixed)
         (maybe (field "name" string))
         (maybe (field "avatarUrl" decodeUrl))
         (maybe (field "completedTours" (Decode.list Tour.decode)))
         (field "organizationMemberships" (Decode.list (Decode.map OrganizationMembership UserHandle.decodeUnprefixed)))
+        (field "isSuperAdmin" Decode.bool)

src/UnisonShare/Page/ErrorPage.elm

@@ -17,7 +17,7 @@ view : Session -> Http.Error -> String -> String -> PageLayout msg
 view session error entityName className =
     let
         errorDetails =
-            if Session.isUnisonMember session then
+            if Session.isSuperAdmin session then
                 details [] [ summary [] [ text "Error Details" ], div [] [ text (Util.httpErrorToString error) ] ]
 
             else

src/UnisonShare/Session.elm

@@ -7,6 +7,7 @@ module UnisonShare.Session exposing
     , isOrganizationMember
     , isProjectOwner
     , isSignedIn
+    , isSuperAdmin
     , isUnisonMember
     )
 
@@ -41,6 +42,16 @@ isSignedIn session =
             True
 
 
+isSuperAdmin : Session -> Bool
+isSuperAdmin session =
+    case session of
+        Anonymous ->
+            False
+
+        SignedIn account_ ->
+            account_.isSuperAdmin
+
+
 isProjectOwner : ProjectRef -> Session -> Bool
 isProjectOwner projectRef session =
     isHandle (ProjectRef.handle projectRef) session