Prevent to send multiple payments if the server is not answering

3 files changed, 4 insertions, 1 deletions

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)