module Web.View.WidgetOwnerships.Show where import Web.Types import Generated.Types import IHP.Prelude import IHP.ViewPrelude import Web.Routes () import Web.View.WidgetOwnerships.Index (typeBadge) data ShowView = ShowView { ownership :: !WidgetOwnership , widget :: !Widget , ownerHub :: !Hub , mStewardHub :: !(Maybe Hub) } instance View ShowView where html ShowView { .. } = [hsx|
Ownerships /

Ownership Record

" text-sm px-3 py-1 rounded-full font-medium"}> {ownership.ownershipType}
Widget
{widget.name}
Owner Hub
{ownerHub.name}
Steward Hub
{maybe "Same as owner" (.name) mStewardHub}
Effective From
{show ownership.effectiveFrom}
Effective Until
{maybe "–" show ownership.effectiveUntil}
Created
{show ownership.createdAt}
{maybe mempty renderOwnershipNotesDt ownership.notes}
Edit
|] renderOwnershipNotesDt :: Text -> Html renderOwnershipNotesDt n = [hsx|
Notes
{n}
|]