19 lines
665 B
Haskell
19 lines
665 B
Haskell
module Web.View.Entries.Today where
|
|
import Web.View.Prelude
|
|
|
|
data TodayView = TodayView { entries :: [Entry] }
|
|
|
|
instance View TodayView where
|
|
html TodayView { .. } = [hsx|
|
|
{breadcrumb}
|
|
<h1>TodayView</h1>
|
|
<button id="today-button" style="width:800px; height:600px">
|
|
<input type="image" src="/time_on.svg" width="100%" height="100%" />
|
|
</button>
|
|
<div>0H 0:00H</div>
|
|
|]
|
|
where
|
|
breadcrumb = renderBreadcrumb
|
|
[ breadcrumbLink "Todays" EntriesAction
|
|
, breadcrumbText "TodayView"
|
|
] |