module Web.View.Hubs.Edit where
import Web.Types
import Generated.Types
import IHP.Prelude
import IHP.ViewPrelude
data EditView = EditView { hub :: !Hub }
instance View EditView where
html EditView { .. } = [hsx|
Edit Hub
{renderForm hub}
|]
renderForm :: Hub -> Html
renderForm hub = formFor hub [hsx|
{textField #name}
{(textField #slug) { helpText = "Lowercase, URL-safe identifier" }}
{textField #domain}
{submitButton}
|]