diff options
author | Joris | 2020-10-31 15:24:26 +0100 |
---|---|---|
committer | Joris | 2020-10-31 15:24:26 +0100 |
commit | 1e167679f6827c7119d616633b21fffef269cd75 (patch) | |
tree | 9c846c03913366936a093976a329e7a774002283 /css/Body.hs | |
parent | c9c0a6e8651da823b41e4186a736f2dbb48919db (diff) |
Use only HTML and CSS
Diffstat (limited to 'css/Body.hs')
-rw-r--r-- | css/Body.hs | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/css/Body.hs b/css/Body.hs deleted file mode 100644 index 0ff8df0..0000000 --- a/css/Body.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - -module Body - ( style - ) where - -import Clay hiding (style) -import Prelude hiding ((**)) - -import qualified Color -import qualified Link -import qualified Media -import qualified Size - -style :: Css -style = do - - ".Body__Container" ** p ? do - Media.desktop $ marginRight (pct 20) - lineHeight (px 28) - - ".Body__Container" ** ul ? do - paddingLeft (px 0) - Media.desktop $ margin (px 20) (px 0) (px 20) (px 30) - Media.tablet $ margin (px 15) (px 0) (px 15) (px 20) - Media.mobile $ marginBottom Size.listItemSep - - ".Body__Container" ** li ? do - Size.lineHeight - before & do - content (stringContent "•") - color Color.red - display inlineBlock - marginRight (px 10) - - Link.style (".Body__Container" ** a) |