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

module Web.View.Hubs.New where

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

data NewView = NewView { hub :: !Hub }

instance View NewView where
    html NewView { .. } = [hsx|
        <div class="max-w-lg">
            <h1 class="text-2xl font-semibold mb-6">New Hub</h1>
            {renderForm hub}
        </div>
    |]

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