From a26b34e52edca1c783d929f25157fd4a04432344 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 5 Sep 2015 09:28:21 +0200
Subject: Centering pages

---
 src/server/Controller/Payment.hs | 2 +-
 src/server/Design/Global.hs      | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3