Use buttons or links when elements are clickable

1 files changed, 4 insertions, 5 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 80498f8..4c8277b 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -52,7 +52,6 @@ global = do
       lineHeight (px iconHeight)
       backgroundColor C.white
       color C.red
-      borderWidth (px 0)
       fontSize iconFontSize
       hover & transform (scale 1.2 1.2)
 
@@ -72,7 +71,7 @@ global = do
         lineHeight (px inputHeight)
         ".userName" ? marginRight (px 10)
 
-    form # ".add" ? do
+    form ? do
       centeredWithMargin
       clearFix
 
@@ -111,7 +110,7 @@ global = do
         label ? width (pct 30)
         paddingRight (pct 5)
 
-      ".frequency" ? do
+      button # ".frequency" ? do
         fontSize (pct 90)
         float floatLeft
         width (pct 15)
@@ -126,7 +125,7 @@ global = do
         ".punctual" ? borderRadius radius radius 0 0
         ".monthly" ? borderRadius 0 0 radius radius
 
-      button ? do
+      button # ".add" ? do
         defaultButton C.red C.white inputHeight
         float floatLeft
         width (pct 15)
@@ -211,6 +210,7 @@ global = do
       padding (px 30) (px 30) (px 30) (px 30)
       textAlign (alignSide (sideCenter))
       clearFix
+
       ".page" ? do
         display inlineBlock
         border solid (px 2) C.darkGrey
@@ -267,7 +267,6 @@ defaultButton :: Color -> Color -> Integer -> Css
 defaultButton backgroundCol textCol pxHeight = do
   backgroundColor backgroundCol
   color textCol
-  borderWidth (px 0)
   borderRadius radius radius radius radius
   verticalAlign middle
   cursor pointer