module Web.View.FederatedPolicyOverlays.Show where import Web.Types import Generated.Types import IHP.Prelude import IHP.ViewPrelude import Web.View.FederatedPolicyOverlays.Index (statusBadge) data ShowView = ShowView { overlay :: !FederatedPolicyOverlay , hubs :: ![Hub] } instance View ShowView where html ShowView { .. } = [hsx|
Policies /

{overlay.title}

" text-sm px-2 py-0.5 rounded font-medium"}> {overlay.status}

Policy Text

{overlay.policyText}
Enforced From
{maybe "–" show overlay.enforcedFrom}
Created
{show overlay.createdAt}
{whenJust overlay.notes \n -> [hsx|
Notes
{n}
|]}
{if overlay.status == "draft" then [hsx| Edit Activate |] else mempty} {if overlay.status == "active" then [hsx| Retire |] else mempty}
|]