inter-hub-haskell/Web/View/ModelRoutingPolicies/New.hs

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|
        <div class="p-6 max-w-xl">
            <h1 class="text-2xl font-bold text-gray-900 mb-6">Add Routing Policy</h1>
            {renderForm policy hubs agents}
        </div>
    |]

renderForm :: ModelRoutingPolicy -> [Hub] -> [AgentRegistration] -> Html
renderForm policy hubs agents = formFor policy [hsx|
    <div class="space-y-4">
        <div>
            <label class="block text-sm font-medium text-gray-700 mb-1">Hub</label>
            <select name="hubId" class="block w-full border-gray-300 rounded-md shadow-sm text-sm">
                {forEach hubs renderHubOption}
            </select>
        </div>
        <div>
            <label class="block text-sm font-medium text-gray-700 mb-1">Task Type</label>
            <select name="taskType" class="block w-full border-gray-300 rounded-md shadow-sm text-sm">
                {forEach taskTypeOptions renderTaskTypeOption}
            </select>
        </div>
        <div>
            <label class="block text-sm font-medium text-gray-700 mb-1">Agent</label>
            <select name="agentRegistrationId" class="block w-full border-gray-300 rounded-md shadow-sm text-sm">
                {forEach agents renderAgentOption}
            </select>
        </div>
        <div>{(numberField #priority) { fieldLabel = "Priority (higher wins)", placeholder = "0" }}</div>
        <div class="flex gap-3 pt-2">
            {submitButton { label = "Create Policy" }}
            <a href={ModelRoutingPoliciesAction}
               class="px-4 py-2 bg-gray-100 hover:bg-gray-200 rounded-md text-sm">Cancel</a>
        </div>
    </div>
|]

renderHubOption :: Hub -> Html
renderHubOption h = [hsx|<option value={show h.id}>{h.name}</option>|]

renderTaskTypeOption :: Text -> Html
renderTaskTypeOption t = [hsx|<option value={t}>{t}</option>|]

renderAgentOption :: AgentRegistration -> Html
renderAgentOption a = [hsx|<option value={show a.id}>{a.name} ({a.provider} / {a.modelName})</option>|]