From 0cba27cba2b44756389d50bc113f23a2be87e978 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2016 00:19:55 +0100
Subject: Prevent to send multiple payments if the server is not answering

---
 src/server/Design/Helper.hs       | 2 +-
 src/server/Design/LoggedIn/Add.hs | 2 ++
 src/server/Main.hs                | 1 +
 3 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/server')

diff --git a/src/server/Design/Helper.hs b/src/server/Design/Helper.hs
index bd11766..40218f8 100644
--- a/src/server/Design/Helper.hs
+++ b/src/server/Design/Helper.hs
@@ -47,7 +47,7 @@ iconButton backgroundCol textCol h = do
     display inlineBlock
     marginLeft (px 20)
   i ? do
-    marginLeft (px 20)
+    marginLeft (px 15)
     marginRight (px 20)
   hover & i ? transform (scale 1.2 1.2)
 
diff --git a/src/server/Design/LoggedIn/Add.hs b/src/server/Design/LoggedIn/Add.hs
index 579cead..3bdfb65 100644
--- a/src/server/Design/LoggedIn/Add.hs
+++ b/src/server/Design/LoggedIn/Add.hs
@@ -65,6 +65,8 @@ addDesign =
       defaultButton C.red C.white (px inputHeight)
       paddingLeft (px 15)
       paddingRight (px 15)
+      i ? marginLeft (px 10)
+      ".waitingServer" & ("cursor" -: "not-allowed")
 
     ".name.error" <> ".cost.error" ? do
       input ? borderColor C.redError
diff --git a/src/server/Main.hs b/src/server/Main.hs
index 3ac489e..9f21873 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -5,6 +5,7 @@ import Web.Scotty
 import Network.Wai.Middleware.Static
 
 import Control.Concurrent (forkIO)
+
 import MonthlyPaymentJob (monthlyPaymentJobListener)
 
 import Data.Text (Text)
-- 
cgit v1.2.3