diff options
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/Design/Helper.hs | 2 | ||||
| -rw-r--r-- | src/server/Design/LoggedIn/Add.hs | 2 | ||||
| -rw-r--r-- | src/server/Main.hs | 1 |
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) |