12 lines
244 B
Haskell
12 lines
244 B
Haskell
|
module Web.View.Probes.Show where
|
||
|
|
|
||
|
|
import Web.View.Prelude
|
||
|
|
|
||
|
|
data ShowView = ShowView { probe :: Probe }
|
||
|
|
|
||
|
|
instance View ShowView where
|
||
|
|
html ShowView { .. } = [hsx|
|
||
|
|
<h1>{probe.name}</h1>
|
||
|
|
<a href={ProbesAction}>Back</a>
|
||
|
|
|]
|