module Web.View.AiGovernancePolicies.New where import Web.View.Prelude data NewView = NewView { policy :: !AiGovernancePolicy , hubs :: ![Hub] , agents :: ![AgentRegistration] } renderHubOption :: Hub -> Html renderHubOption h = [hsx||] renderAgentOption :: AgentRegistration -> Html renderAgentOption a = [hsx||] renderActionOption :: (Text, Text) -> Html renderActionOption (val, lbl) = [hsx| |] allowedActionOptions :: [(Text, Text)] allowedActionOptions = [ ("read", "read — agent may read artifacts") , ("propose", "propose — agent may create proposals") , ("delegate", "delegate — agent may delegate to other agents") , ("auto_apply", "auto_apply — agent may apply changes without human review") ] instance View NewView where html NewView { .. } = [hsx|