module Web.View.WidgetAdapterSpecs.Edit where import Web.Types import Generated.Types import IHP.Prelude import IHP.ViewPrelude import Web.Routes () data EditView = EditView { spec :: !WidgetAdapterSpec , envelopes :: ![EnvelopeEmissionContract] , reportings :: ![InteractionReportingContract] } instance View EditView where html EditView { .. } = [hsx|
Only status and notes can be changed once a spec is registered. Name, framework, version, and linked contracts are immutable.
{renderForm spec} |] renderForm :: WidgetAdapterSpec -> Html renderForm spec = formFor spec [hsx| |]