aboutsummaryrefslogtreecommitdiff
path: root/src/View/Html/Design.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/View/Html/Design.hs')
-rw-r--r--src/View/Html/Design.hs40
1 files changed, 0 insertions, 40 deletions
diff --git a/src/View/Html/Design.hs b/src/View/Html/Design.hs
deleted file mode 100644
index 662c4d0..0000000
--- a/src/View/Html/Design.hs
+++ /dev/null
@@ -1,40 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module View.Html.Design
- ( definitionList
- , definitionDescription
- , price
- , pro
- ) where
-
-import Data.Text.Lazy (Text)
-import qualified Data.Text.Lazy as T
-
-import Clay
-
-definitionList :: Text
-definitionList = inlineRender $ do
- fontWeight bold
- fontSize (px 16)
-
-definitionDescription :: Text
-definitionDescription = inlineRender $ do
- marginLeft (px 0)
- marginBottom (px 10)
- color orangered
-
-pro :: Text
-pro = inlineRender $ do
- marginLeft (px 10)
- color (rgb 122 179 88)
-
-price :: Text
-price = inlineRender $ do
- marginLeft (px 10)
- color orangered
-
-inlineRender :: Css -> Text
-inlineRender =
- T.dropEnd 1
- . T.drop 1
- . renderWith compact []