23 lines
533 B
Haskell
23 lines
533 B
Haskell
|
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>
|
||
|
|
|]
|