module Web.View.DecisionRecords.New where import Web.Types import Generated.Types import IHP.Prelude import IHP.ViewPrelude data NewView = NewView { record :: !DecisionRecord , requirements :: ![Requirement] , candidates :: ![RequirementCandidate] , users :: ![User] } instance View NewView where html NewView { .. } = [hsx|
Decisions / New

New Decision Record

{renderForm record requirements candidates users CreateDecisionRecordAction}
|] renderForm :: DecisionRecord -> [Requirement] -> [RequirementCandidate] -> [User] -> action -> Html renderForm record requirements candidates users submitAction = [hsx|
{hiddenField "authenticity_token"}

Outcome cannot be changed after creation.

Cancel
|]