forked from janek/compareware
17 lines
469 B
Haskell
17 lines
469 B
Haskell
module Web.View.Items.Edit where
|
|
import Web.View.Prelude
|
|
import Web.View.Items.New (renderForm)
|
|
|
|
data EditView = EditView { item :: Include "tags" Item }
|
|
|
|
instance View EditView where
|
|
html EditView { .. } = [hsx|
|
|
{breadcrumb}
|
|
<h1>Edit Item</h1>
|
|
{renderForm item}
|
|
|]
|
|
where
|
|
breadcrumb = renderBreadcrumb
|
|
[ breadcrumbLink "Items" ItemsAction
|
|
, breadcrumbText "Edit Item"
|
|
] |