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|
Hubs / {hub.name} / Edit

Edit Hub

{renderForm hub}
|] renderForm :: Hub -> Html renderForm hub = formFor hub [hsx| {textField #name} {(textField #slug) { helpText = "Lowercase, URL-safe identifier" }} {textField #domain} {submitButton} |]