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

{role.roleName}

{if isNothing role.revokedAt then [hsx|active|] else [hsx|revoked|]}
Hub
{hub.name}
Assigned To
{role.assignedTo}
Granted At
{show role.grantedAt}
Revoked At
{maybe "–" show role.revokedAt}
{whenJust role.notes \n -> [hsx|
Notes
{n}
|]}
{if isNothing role.revokedAt then [hsx|
Revoke Role
|] else mempty}
|]