Add isPro info

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