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