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.hs12
2 files changed, 10 insertions, 4 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index 219206a..141aed0 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -11,8 +11,6 @@ import Control.Monad.IO.Class (liftIO)
import Data.Text (Text)
-import Database.Persist.Sqlite (unSqlBackendKey)
-
import qualified Secure
import Model.Database
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 54533c2..bdf4cdb 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -73,7 +73,10 @@ global = do
fontSize (px 22)
verticalAlign middle
cursor cursorText
- input ? defaultInput inputHeight
+ borderRadius (px 0) (px 3) (px 3) (px 0)
+ input ? do
+ defaultInput inputHeight
+ borderRadius (px 3) (px 0) (px 0) (px 3)
"input:focus + label" ? backgroundColor C.grey
".name" ? do
@@ -111,6 +114,11 @@ global = do
fontSize (px iconFontSize)
lineHeight (px 70)
+ ".category" & width (pct 40)
+ ".cost" & width (pct 20)
+ ".user" & width (pct 20)
+ ".date" & width (pct 20)
+
tr ? do
fontSize (px 20)
lineHeight (px 60)
@@ -162,7 +170,7 @@ defaultInput :: Integer -> Css
defaultInput inputHeight = do
height (px inputHeight)
padding (px 10) (px 10) (px 10) (px 10)
- borderRadius (px 0) (px 0) (px 0) (px 0)
+ borderRadius (px 3) (px 3) (px 3) (px 3)
border solid (px 1) C.darkgrey
focus & borderColor C.grey
verticalAlign middle