Types.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ExtendedDefaultRules #-}

module Lucid.Foundation.Typography.Types where

import Lucid.Base
import Lucid.Html5
import qualified Data.Text as T
import Data.Monoid


subheader_ :: T.Text
subheader_ = " subheader "

disc_ :: T.Text
disc_ = " disc "

circle_ :: T.Text
circle_ = " circle "

square_ :: T.Text
square_ = " square "

no_bullet_ :: T.Text
no_bullet_ = " no-bullet "