{-# LANGUAGE TemplateHaskell #-}
module Web.View.Reset where
import Data.ByteString
import Data.FileEmbed
import Data.Text
{- | Default CSS to remove unintuitive default styles. This or 'cssResetLink' is required.
> import Data.String.Interpolate (i)
>
> toDocument :: Text -> Text
> toDocument cnt =
> [i|
>
>
>
> #{cnt}
> |]
-}
cssResetEmbed :: ByteString
cssResetEmbed = $(embedFile "embed/preflight.css")
{- | Alternatively, the reset is available as on a CDN
> import Data.String.Interpolate (i)
>
> toDocument :: Text -> Text
> toDocument cnt =
> [i|
>
>
>
> #{cnt}
> |]
-}
cssResetLink :: Text
cssResetLink = ""