1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
module ShowItem
( showItem
) where
import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A
import Models
showItem :: Item -> H.Html
showItem item = H.html $
H.div ! A.class_ "description" $ do
H.div ! A.class_ "description-column" $ do
H.img ! A.src "/assets/keeb.jpg"
H.div ! A.class_ "description-column" $ do
H.div ! A.class_ "info" $ do
H.p $ H.toHtml . Models.name $ item
H.p $ H.toHtml . Models.description $ item
|