inter-hub-haskell/Web/View/EnvelopeEmissionContracts/Show.hs

module Web.View.EnvelopeEmissionContracts.Show where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Application.Helper.View (adapterStatusBadge)

data ShowView = ShowView
    { contract :: !EnvelopeEmissionContract
    }

instance View ShowView where
    html ShowView { .. } = [hsx|
        <div class="mb-6">
            <a href={EnvelopeEmissionContractsAction} class="text-sm text-gray-500 hover:text-gray-800">
                ← Envelope Contracts
            </a>
        </div>

        <div class="flex items-center gap-3 mb-6">
            <h1 class="text-2xl font-semibold">
                Envelope Contract <span class="font-mono">v{contract.contractVersion}</span>
            </h1>
            <span class={adapterStatusBadge contract.status <> " text-xs px-2 py-0.5 rounded font-medium"}>
                {contract.status}
            </span>
        </div>

        {forEach (contractDescription contract) (\d -> [hsx|
            <p class="text-sm text-gray-600 mb-6">{d}</p>
        |])}

        <div class="grid grid-cols-1 gap-4">
            <div class="bg-white rounded-lg border border-gray-200 p-5">
                <h2 class="text-sm font-semibold text-gray-700 mb-3">Required Attributes</h2>
                <pre class="text-xs bg-gray-50 rounded p-3 overflow-auto">{tshow contract.requiredAttributes}</pre>
            </div>

            <div class="bg-white rounded-lg border border-gray-200 p-5">
                <h2 class="text-sm font-semibold text-gray-700 mb-3">Optional Attributes</h2>
                <pre class="text-xs bg-gray-50 rounded p-3 overflow-auto">{tshow contract.optionalAttributes}</pre>
            </div>

            <div class="bg-white rounded-lg border border-gray-200 p-5">
                <h2 class="text-sm font-semibold text-gray-700 mb-3">Validation Rules</h2>
                <pre class="text-xs bg-gray-50 rounded p-3 overflow-auto">{tshow contract.validationRules}</pre>
            </div>
        </div>

        <div class="mt-6 text-xs text-gray-400">
            Created: {show contract.createdAt}
        </div>
    |]

contractDescription :: EnvelopeEmissionContract -> [Text]
contractDescription c = case c.description of
    Just d  -> [d]
    Nothing -> []