module Web.View.WidgetAdapterSpecs.New where import Web.Types import Generated.Types import IHP.Prelude import IHP.ViewPrelude import Web.Routes () data NewView = NewView { spec :: !WidgetAdapterSpec , envelopes :: ![EnvelopeEmissionContract] , reportings :: ![InteractionReportingContract] } instance View NewView where html NewView { .. } = [hsx|
← Adapter Specs

Register Adapter Spec

{renderForm spec envelopes reportings} |] renderForm :: WidgetAdapterSpec -> [EnvelopeEmissionContract] -> [InteractionReportingContract] -> Html renderForm spec envelopes reportings = formFor spec [hsx|
{textField #name}

Unique identifier, e.g. react-18, vue-3, web-component

{textField #framework}

e.g. react, vue, angular, vanilla

{textField #version}

Adapter spec version, e.g. 1.0

{textareaField #notes}
{submitButton} Cancel
|] renderEnvelopeOption :: EnvelopeEmissionContract -> Html renderEnvelopeOption e = [hsx||] renderReportingOption :: InteractionReportingContract -> Html renderReportingOption r = [hsx||]