inter-hub-haskell/Web/View/FederatedPolicyOverlays/Edit.hs

module Web.View.FederatedPolicyOverlays.Edit where

import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
import Web.Routes ()

data EditView = EditView
    { overlay :: !FederatedPolicyOverlay
    , hubs    :: ![Hub]
    }

instance View EditView where
    html EditView { .. } = [hsx|
        <div class="max-w-2xl">
            <h1 class="text-2xl font-semibold mb-6">Edit Policy Overlay</h1>
            <p class="text-sm text-amber-700 bg-amber-50 border border-amber-200 rounded p-3 mb-4">
                Only draft overlays can be edited. Once activated, this policy becomes immutable.
            </p>
            {renderForm overlay}
        </div>
    |]

renderForm :: FederatedPolicyOverlay -> Html
renderForm overlay = formFor overlay [hsx|
    {textField #title}
    {textareaField #policyText}
    {(textareaField #notes){ fieldLabel = "Notes (optional)" }}
    {submitButton}
|]