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}
|]