18 lines
341 B
Haskell
18 lines
341 B
Haskell
|
module Web.View.Probes.Edit where
|
||
|
|
|
||
|
|
import Web.View.Prelude
|
||
|
|
|
||
|
|
data EditView = EditView { probe :: Probe }
|
||
|
|
|
||
|
|
instance View EditView where
|
||
|
|
html EditView { .. } = [hsx|
|
||
|
|
<h1>Edit Probe</h1>
|
||
|
|
{renderForm probe}
|
||
|
|
|]
|
||
|
|
|
||
|
|
renderForm :: Probe -> Html
|
||
|
|
renderForm probe = formFor probe [hsx|
|
||
|
|
{textField #name}
|
||
|
|
{submitButton}
|
||
|
|
|]
|