module Web.View.Probes.Index where

import Web.View.Prelude

data IndexView = IndexView { probes :: [Probe] }

instance View IndexView where
    html IndexView { .. } = [hsx|
        <h1>Probes</h1>
        <a href={NewProbeAction}>New Probe</a>
        <ul>
            {forEach probes renderProbe}
        </ul>
    |]

renderProbe :: Probe -> Html
renderProbe probe = [hsx|
    <li>
        <a href={ShowProbeAction probe.id}>{probe.name}</a>
        <a href={DeleteProbeAction probe.id} class="js-delete">Delete</a>
    </li>
|]