From 4c79ca374e030454f62a467fb4f2197d372e9bc1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Nov 2019 15:53:46 +0100
Subject: Fix select input style

---
 client/src/Component/Select.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'client')

diff --git a/client/src/Component/Select.hs b/client/src/Component/Select.hs
index 375ae06..70f5f58 100644
--- a/client/src/Component/Select.hs
+++ b/client/src/Component/Select.hs
@@ -35,7 +35,7 @@ view input = do
   rec
     let containerAttr = R.ffor showedError (\e ->
           M.singleton "class" $ T.intercalate " "
-            [ "input"
+            [ "input selectInput"
             , if Maybe.isJust e then "error" else ""
             ])
 
-- 
cgit v1.2.3