18 lines
460 B
Haskell
18 lines
460 B
Haskell
|
module Web.View.AgentRegistrations.Edit where
|
||
|
|
|
||
|
|
import Web.View.Prelude
|
||
|
|
import Web.View.AgentRegistrations.New (renderForm)
|
||
|
|
|
||
|
|
data EditView = EditView
|
||
|
|
{ agent :: !AgentRegistration
|
||
|
|
, hubs :: ![Hub]
|
||
|
|
}
|
||
|
|
|
||
|
|
instance View EditView where
|
||
|
|
html EditView { .. } = [hsx|
|
||
|
|
<div class="p-6 max-w-2xl">
|
||
|
|
<h1 class="text-2xl font-bold text-gray-900 mb-6">Edit Agent: {agent.name}</h1>
|
||
|
|
{renderForm agent hubs}
|
||
|
|
</div>
|
||
|
|
|]
|