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