diff options
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/Design/Global.hs | 18 | ||||
| -rw-r--r-- | src/server/View/Page.hs | 1 |
2 files changed, 12 insertions, 7 deletions
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs index 25b7d95..59e4171 100644 --- a/src/server/Design/Global.hs +++ b/src/server/Design/Global.hs @@ -64,19 +64,23 @@ global = do width (pct 49) label ? do display inlineBlock - width (pct 25) - paddingRight (pct 5) + width (pct 20) + textAlign (alignSide sideCenter) + color C.brown + height (px inputHeight) + lineHeight (px inputHeight) + fontSize (px 22) + verticalAlign middle input ? defaultInput inputHeight ".name" ? do float floatLeft - input ? width (pct 70) + input ? width (pct 75) ".cost" ? do float floatRight - input ? do - width (pct 45) - marginRight (pct 5) + input ? do width (pct 50) + label ? marginRight (pct 5) button ? do defaultButton width (pct 20) @@ -145,6 +149,7 @@ defaultButton = do color C.white borderWidth (px 0) borderRadius (px 3) (px 3) (px 3) (px 3) + verticalAlign middle defaultInput :: Integer -> Css defaultInput inputHeight = do @@ -153,3 +158,4 @@ defaultInput inputHeight = do borderRadius (px 0) (px 0) (px 0) (px 0) border solid (px 1) C.grey focus & borderColor C.green + verticalAlign middle diff --git a/src/server/View/Page.hs b/src/server/View/Page.hs index 5b9f06e..a397a96 100644 --- a/src/server/View/Page.hs +++ b/src/server/View/Page.hs @@ -5,7 +5,6 @@ module View.Page ) where import Data.Text.Internal.Lazy (Text) -import Data.Text.Internal.Lazy as TL import Text.Blaze.Html import Text.Blaze.Html5 |