inter-hub-haskell/Web/View/WebhookSubscriptions/New.hs

module Web.View.WebhookSubscriptions.New where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()

webhookTopics :: [Text]
webhookTopics =
    [ "interaction_event.created"
    , "annotation.created"
    , "requirement_candidate.created"
    , "decision_record.created"
    , "deployment_record.created"
    , "outcome_signal.created"
    ]

data NewView = NewView
    { subscription :: !WebhookSubscription
    , consumer     :: !ApiConsumer
    }

instance View NewView where
    html NewView { .. } = [hsx|
        <div class="max-w-lg">
            <h1 class="text-2xl font-semibold mb-2">New Webhook Subscription</h1>
            <p class="text-sm text-gray-500 mb-6">Consumer: <strong>{consumer.name}</strong></p>
            <form method="POST" action={CreateWebhookSubscriptionAction} class="space-y-4">
                <input type="hidden" name="id" value={show subscription.id} />
                <input type="hidden" name="apiConsumerId" value={show consumer.id} />
                <div>
                    <label class="block text-sm font-medium text-gray-700 mb-1">Event Topic *</label>
                    <select name="eventType" class="border rounded px-3 py-2 text-sm w-full">
                        {forEach webhookTopics topicOption}
                    </select>
                </div>
                <div>
                    <label class="block text-sm font-medium text-gray-700 mb-1">Target URL *</label>
                    <input type="text" name="targetUrl" value={subscription.targetUrl}
                           class="border rounded px-3 py-2 text-sm w-full" required />
                    <p class="text-xs text-gray-400 mt-1">Must be HTTPS. IHF will POST JSON payloads with X-IHF-Signature header.</p>
                </div>
                <div class="pt-2 flex gap-3">
                    <button type="submit" class="bg-indigo-600 text-white text-sm font-medium px-4 py-2 rounded hover:bg-indigo-700">
                        Create Subscription
                    </button>
                    <a href={ShowApiConsumerAction consumer.id} class="text-sm text-gray-500 px-4 py-2 hover:text-gray-700">Cancel</a>
                </div>
            </form>
        </div>
    |]
      where
        topicOption t = [hsx|<option value={t}>{t}</option>|]