From 9716f77d14ef43f96a1534d97bb9d336df1882be Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Jun 2016 18:21:19 +0200
Subject: Use simple-form for search and set style

---
 src/server/Design/Form.hs                | 3 ---
 src/server/Design/Global.hs              | 2 +-
 src/server/Model/Message/Key.hs          | 2 +-
 src/server/Model/Message/Translations.hs | 2 +-
 4 files changed, 3 insertions(+), 6 deletions(-)

(limited to 'src/server')

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"
-- 
cgit v1.2.3