From 984356c796963bcba44dcbe261e460bd37385c35 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 9 Sep 2015 21:35:29 +0200
Subject: Authorizing refunds (negative payments) but stop authorizing null
 payments

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

(limited to 'src/server')

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 53a73eb..ec75287 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -190,7 +190,9 @@ global = do
       ".cell" ? do
         display tableCell
         ".category" & width (pct 40)
-        ".cost" & width (pct 17)
+        ".cost" & do
+          width (pct 17)
+          ".refund" & color C.greenSuccess
         ".user" & width (pct 20)
         ".date" & do
           width (pct 20)
diff --git a/src/server/Main.hs b/src/server/Main.hs
index 1c2bc08..1a151fc 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -22,15 +22,14 @@ import Config
 
 main :: IO ()
 main = do
+  runMigrations
   _ <- forkIO monthlyPaymentJobListener
   eitherConfig <- getConfig "config.txt"
   case eitherConfig of
     Left errorMessage ->
       TIO.putStrLn errorMessage
     Right config -> do
-      runMigrations
       scotty (port config) $ do
-
         middleware $
           staticPolicy (noDots >-> addBase "public")
 
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs
index 163a21f..3d915b9 100644
--- a/src/server/Model/Message/Key.hs
+++ b/src/server/Model/Message/Key.hs
@@ -45,7 +45,7 @@ data Key =
 
   | CategoryRequired
   | CostRequired
-  | CostMustBeNumber
+  | CostMustBeNonNullNumber
 
   -- Payments
 
diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
index a3603b8..79d177f 100644
--- a/src/server/Model/Message/Translations.hs
+++ b/src/server/Model/Message/Translations.hs
@@ -178,10 +178,10 @@ m l CostRequired =
     English -> "Type a cost."
     French  -> "Entre un coût."
 
-m l CostMustBeNumber =
+m l CostMustBeNonNullNumber =
   case l of
-    English -> "The cost must be a positive natural number."
-    French  -> "Le coût doit être un entier positif."
+    English -> "The cost must be a non-null integer."
+    French  -> "Le coût doit être un entier non nul."
 
 -- Payments
 
-- 
cgit v1.2.3