Use simple-form for search and set style

4 files changed, 3 insertions, 6 deletions

diff --git a/src/server/Design/Form.hs b/src/server/Design/Form.hs
index bb7d7db..2ad6a9c 100644
--- a/src/server/Design/Form.hs
+++ b/src/server/Design/Form.hs
@@ -8,10 +8,7 @@ import Data.Monoid ((<>))
 
 import Clay
 
--- import Design.Constants
 import Design.Color as Color
--- import qualified Design.Media as Media
-
 
 design :: Css
 design = do
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 864add0..68cff68 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -26,7 +26,7 @@ global = do
   header ? HeaderDesign.design
   ".signIn" ? SignInDesign.design
   ".loggedIn" ? LoggedInDesign.design
-  form ? Form.design
+  Form.design
 
   allKeyframes
 
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index d34eea3..4ef8663 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -63,7 +63,7 @@ data Key =
   | PaymentsTitle
   | Payment
   | Payments
-  | Search
+  | SearchText
 
   -- Statistics
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index 2060611..c7a2043 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -240,7 +240,7 @@ m l Payment =
     English -> "payment"
     French  -> "paiement"
 
-m l Search =
+m l SearchText =
   case l of
     English -> "Search"
     French  -> "Recherche"