aboutsummaryrefslogtreecommitdiff
path: root/src/server
diff options
context:
space:
mode:
Diffstat (limited to 'src/server')
-rw-r--r--src/server/Controller/Payment.hs2
-rw-r--r--src/server/Design/Global.hs3
2 files changed, 3 insertions, 2 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index b3fe07a..0a40771 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -36,7 +36,7 @@ createPaymentAction :: Text -> Int -> ActionM ()
createPaymentAction name cost =
Secure.loggedAction (\user -> do
_ <- liftIO . runDb $ createPayment (entityKey user) name cost
- ok200
+ status ok200
)
deletePaymentAction :: Text -> ActionM ()
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 5efb2bf..45b1cbc 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -169,8 +169,10 @@ global = do
".pages" ? do
padding (px 30) (px 30) (px 30) (px 30)
+ textAlign (alignSide (sideCenter))
clearFix
".page" ? do
+ display inlineBlock
border solid (px 2) C.darkGrey
borderRadius (px 2) (px 2) (px 2) (px 2)
marginRight (px 10)
@@ -180,7 +182,6 @@ global = do
height (px side)
lineHeight (px side)
textAlign (alignSide (sideCenter))
- float floatLeft
fontWeight bold
".current" & do