module Web.View.StewardshipRoles.Show where import Web.Types import Generated.Types import IHP.Prelude import IHP.ViewPrelude import Web.Routes () data ShowView = ShowView { role :: !StewardshipRole , hub :: !Hub } instance View ShowView where html ShowView { .. } = [hsx|
Stewards /

{role.roleName}

{renderRoleStatusBadge (isNothing role.revokedAt)}
Hub
{hub.name}
Assigned To
{role.assignedTo}
Granted At
{show role.grantedAt}
Revoked At
{maybe "–" show role.revokedAt}
{maybe mempty renderRoleNotes role.notes}
{if isNothing role.revokedAt then renderRevokeLink role.id else mempty}
|] renderRoleStatusBadge :: Bool -> Html renderRoleStatusBadge True = [hsx|active|] renderRoleStatusBadge False = [hsx|revoked|] renderRoleNotes :: Text -> Html renderRoleNotes n = [hsx|
Notes
{n}
|] renderRevokeLink :: Id StewardshipRole -> Html renderRevokeLink rid = [hsx|
Revoke Role
|]