From 27e11b20b06f2f2dbfb56c0998a63169b4b8abc4 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 8 Nov 2017 23:47:26 +0100
Subject: Use a better project structure

---
 src/server/Design/Views.hs | 49 ----------------------------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 src/server/Design/Views.hs

(limited to 'src/server/Design/Views.hs')

diff --git a/src/server/Design/Views.hs b/src/server/Design/Views.hs
deleted file mode 100644
index bc6ac83..0000000
--- a/src/server/Design/Views.hs
+++ /dev/null
@@ -1,49 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Design.Views
-  ( design
-  ) where
-
-import Clay
-
-import qualified Design.View.Header as Header
-import qualified Design.View.Payment as Payment
-import qualified Design.View.SignIn as SignIn
-import qualified Design.View.Stat as Stat
-import qualified Design.View.Table as Table
-
-import qualified Design.Helper as Helper
-import qualified Design.Constants as Constants
-import qualified Design.Color as Color
-import qualified Design.Media as Media
-
-design :: Css
-design = do
-  header ? Header.design
-  ".payment" ? Payment.design
-  ".signIn" ? SignIn.design
-  ".stat" ? Stat.design
-  Table.design
-
-  ".withMargin" ? do
-    "margin" -: "0 2vw"
-
-  ".titleButton" ? do
-    h1 ? do
-      Media.tabletDesktop $ float floatLeft
-
-    button ? do
-      Helper.button Color.chestnutRose Color.white (px Constants.inputHeight) Constants.focusLighten
-      Media.tabletDesktop $ do
-        float floatRight
-        position relative
-        top (px (-8))
-      Media.mobile $ do
-        width (pct 100)
-        marginBottom (px 20)
-
-  ".tag" ? do
-    sym borderRadius (px 4)
-    sym2 padding (px 2) (px 5)
-    boxShadow (px 2) (px 2) (px 5) (rgba 0 0 0 0.3)
-    color Color.white
-- 
cgit v1.2.3