module Web.View.ModelRoutingPolicies.New where import Web.View.Prelude data NewView = NewView { policy :: !ModelRoutingPolicy , hubs :: ![Hub] , agents :: ![AgentRegistration] } taskTypeOptions :: [Text] taskTypeOptions = [ "requirement_draft" , "triage" , "synthesis" , "policy_check" , "implementation" ] instance View NewView where html NewView { .. } = [hsx|

Add Routing Policy

{formFor policy [hsx|
{(numberField #priority) { label = "Priority (higher wins)", placeholder = "0" }}
{submitButton { label = "Create Policy" }} Cancel
|]}
|]