From ba33dfef23d070bfff92d6322808507c1b7d2814 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 29 Jun 2016 23:33:40 +0200
Subject: Responsive home page

---
 src/server/Design/Helper.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

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

diff --git a/src/server/Design/Helper.hs b/src/server/Design/Helper.hs
index c8b3070..36cedb0 100644
--- a/src/server/Design/Helper.hs
+++ b/src/server/Design/Helper.hs
@@ -2,8 +2,8 @@
 
 module Design.Helper
   ( clearFix
-  , defaultButton
-  , defaultInput
+  , button
+  , input
   , iconButton
   , centeredWithMargin
   , verticalCentering
@@ -11,7 +11,7 @@ module Design.Helper
 
 import Prelude hiding (span)
 
-import Clay
+import Clay hiding (button, input)
 
 import Data.Monoid ((<>))
 
@@ -26,8 +26,8 @@ clearFix =
     display D.table
     clear both
 
-defaultButton :: Color -> Color -> Size a -> (Color -> Color) -> Css
-defaultButton backgroundCol textCol h focusOp = do
+button :: Color -> Color -> Size a -> (Color -> Color) -> Css
+button backgroundCol textCol h focusOp = do
   backgroundColor backgroundCol
   padding (px 0) (px 10) (px 0) (px 10)
   color textCol
@@ -42,7 +42,7 @@ defaultButton backgroundCol textCol h focusOp = do
 
 iconButton :: Color -> Color -> Size Abs -> (Color -> Color) -> Css
 iconButton backgroundCol textCol h focusOp = do
-  defaultButton backgroundCol textCol h focusOp
+  button backgroundCol textCol h focusOp
   i <> span ? do
     height h
     lineHeight h
@@ -53,8 +53,8 @@ iconButton backgroundCol textCol h focusOp = do
     marginLeft (px 15)
     marginRight (px 20)
 
-defaultInput :: Integer -> Css
-defaultInput h = do
+input :: Integer -> Css
+input h = do
   height (px h)
   padding (px 10) (px 10) (px 10) (px 10)
   borderRadius radius radius radius radius
-- 
cgit v1.2.3