From 0a4d3c8f12dc5797a919a00b6bcaf759947687cc Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 17 Jun 2018 23:24:47 +0200
Subject: Add ouest france parser

---
 src/View/Html/Design.hs | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 src/View/Html/Design.hs

(limited to 'src/View/Html/Design.hs')

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 []
-- 
cgit v1.2.3