diff options
| author | Joris Guyonvarch | 2015-08-13 23:13:59 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-13 23:13:59 +0200 |
| commit | c23ec2aed46b3e766cffbf3662fe529426ad1b84 (patch) | |
| tree | 4d3338f235ccb5c2f85f446e20c03d764ad46123 /src/server | |
| parent | 359f837511597354bc6462cfc4200f54d647d728 (diff) | |
Payment input rounded and payment columns fixed percentagewise
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/Controller/Payment.hs | 2 | ||||
| -rw-r--r-- | src/server/Design/Global.hs | 12 |
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 |