From 1e167679f6827c7119d616633b21fffef269cd75 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 31 Oct 2020 15:24:26 +0100 Subject: Use only HTML and CSS --- css/Media.hs | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 css/Media.hs (limited to 'css/Media.hs') diff --git a/css/Media.hs b/css/Media.hs deleted file mode 100644 index f9b56e1..0000000 --- a/css/Media.hs +++ /dev/null @@ -1,36 +0,0 @@ -module Media - ( mobile - , mobileTablet - , tablet - , tabletDesktop - , desktop - ) where - -import Clay hiding (query) -import qualified Clay -import qualified Clay.Media as Media -import Clay.Stylesheet (Feature) - -mobile :: Css -> Css -mobile = query [Media.maxWidth mobileTabletLimit] - -mobileTablet :: Css -> Css -mobileTablet = query [Media.maxWidth tabletDesktopLimit] - -tablet :: Css -> Css -tablet = query [Media.minWidth mobileTabletLimit, Media.maxWidth tabletDesktopLimit] - -tabletDesktop :: Css -> Css -tabletDesktop = query [Media.minWidth mobileTabletLimit] - -desktop :: Css -> Css -desktop = query [Media.minWidth tabletDesktopLimit] - -query :: [Feature] -> Css -> Css -query = Clay.query Media.screen - -mobileTabletLimit :: Size LengthUnit -mobileTabletLimit = (px 520) - -tabletDesktopLimit :: Size LengthUnit -tabletDesktopLimit = (px 950) -- cgit v1.2.3