diff options
Diffstat (limited to 'src/View/Html/Ad.hs')
| -rw-r--r-- | src/View/Html/Ad.hs | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/src/View/Html/Ad.hs b/src/View/Html/Ad.hs index d8a3bae..53e63bf 100644 --- a/src/View/Html/Ad.hs +++ b/src/View/Html/Ad.hs @@ -32,7 +32,7 @@ import Model.URL import Conf (Conf) import qualified Conf -import View.Html.Design +import qualified View.Html.Design as Design renderAds :: Conf -> [Ad] -> Text renderAds conf = toStrict . renderHtml . (adsHtml conf) @@ -56,10 +56,18 @@ resumeHtml resume = do Just price -> H.span ! A.class_ "price" - ! A.style (textValue . toStrict $ priceDesign) + ! A.style (textValue . toStrict $ Design.price) $ toHtml price Nothing -> H.span "" + if Resume.isPro resume + then + H.span + ! A.class_ "pro" + ! A.style (textValue . toStrict $ Design.pro) + $ "PRO" + else + "" linkHtml (Resume.url resume) detailHtml :: Conf -> Detail -> Html @@ -75,7 +83,7 @@ detailHtml conf detail = do propertiesHtml :: [Text] -> Map Text Text -> Html propertiesHtml keys properties = H.dl - ! A.style (textValue . toStrict $ dlDesign) + ! A.style (textValue . toStrict $ Design.definitionList) $ sequence_ (catMaybes $ map (propertyHtml properties) keys) propertyHtml :: Map Text Text -> Text -> Maybe Html @@ -83,7 +91,7 @@ propertyHtml properties key = fmap (\value -> do H.dt $ (toHtml key) - H.dd ! A.style (textValue . toStrict $ ddDesign) $ (toHtml value) + H.dd ! A.style (textValue . toStrict $ Design.definitionDescription) $ (toHtml value) ) (M.lookup key properties) |