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|