Make input label clickable again

1 files changed, 6 insertions, 7 deletions

diff --git a/server/src/Design/Form.hs b/server/src/Design/Form.hs
index 0f236f7..506343d 100644
--- a/server/src/Design/Form.hs
+++ b/server/src/Design/Form.hs
@@ -15,10 +15,6 @@ design = do
   let inputTop = 22
   let inputPaddingBottom = 3
 
-  label ? do
-    cursor pointer
-    color Color.silver
-
   ".textInput" ? do
     position relative
     marginBottom (em 2)
@@ -40,7 +36,9 @@ design = do
         borderWidth (px 2)
         paddingBottom (px $ inputPaddingBottom - 1)
 
-    label ? do
+    ".label" ? do
+      zIndex (-1)
+      color Color.silver
       lineHeight (px inputHeight)
       position absolute
       top (px inputTop)
@@ -56,7 +54,7 @@ design = do
       hover & svg ? "path" ?
         ("fill" -: Color.toString (Color.silver -. 25))
 
-    (input # ".filled" |+ label) <> (input # focus |+ label) ? do
+    (input # ".filled" |+ ".label") <> (input # focus |+ ".label") ? do
       top (px 0)
       fontSize (pct 80)
 
@@ -81,7 +79,8 @@ design = do
   ".selectInput" ? do
     marginBottom (em 2)
 
-    label ? do
+    ".label" ? do
+      color Color.silver
       display block
       marginBottom (px 10)
       fontSize (pct 80)