diff options
Diffstat (limited to 'src/View/Html/Design.hs')
-rw-r--r-- | src/View/Html/Design.hs | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/src/View/Html/Design.hs b/src/View/Html/Design.hs index 6ef5659..71fa09d 100644 --- a/src/View/Html/Design.hs +++ b/src/View/Html/Design.hs @@ -1,9 +1,10 @@ {-# LANGUAGE OverloadedStrings #-} module View.Html.Design - ( dlDesign - , ddDesign - , priceDesign + ( definitionList + , definitionDescription + , price + , pro ) where import Data.Text.Lazy (Text) @@ -11,19 +12,24 @@ import qualified Data.Text.Lazy as T import Clay -dlDesign :: Text -dlDesign = inlineRender $ do +definitionList :: Text +definitionList = inlineRender $ do fontWeight bold fontSize (px 16) -ddDesign :: Text -ddDesign = inlineRender $ do +definitionDescription :: Text +definitionDescription = inlineRender $ do marginLeft (px 0) marginBottom (px 10) color orangered -priceDesign :: Text -priceDesign = inlineRender $ do +pro :: Text +pro = inlineRender $ do + marginLeft (px 10) + color blue + +price :: Text +price = inlineRender $ do marginLeft (px 10) color orangered |