26 lines
610 B
Haskell
26 lines
610 B
Haskell
module Web.View.Entries.New where
|
|
import Web.View.Prelude
|
|
|
|
data NewView = NewView { entry :: Entry }
|
|
|
|
instance View NewView where
|
|
html NewView { .. } = [hsx|
|
|
{breadcrumb}
|
|
<h1>New Entry</h1>
|
|
{renderForm entry}
|
|
|]
|
|
where
|
|
breadcrumb = renderBreadcrumb
|
|
[ breadcrumbLink "Entries" EntriesAction
|
|
, breadcrumbText "New Entry"
|
|
]
|
|
|
|
renderForm :: Entry -> Html
|
|
renderForm entry = formFor entry [hsx|
|
|
{(textField #till)}
|
|
{(textField #day)}
|
|
{(textField #comment)}
|
|
{(textField #isfree)}
|
|
{submitButton}
|
|
|
|
|] |