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|

New Webhook Subscription

Consumer: {consumer.name}

Must be HTTPS. IHF will POST JSON payloads with X-IHF-Signature header.

Cancel
|] where topicOption t = [hsx||]