blazehelpers.hs

{-# LANGUAGE OverloadedStrings #-}

module BlazeHelpers where

import Text.Blaze ((!))
import Text.Blaze.Html5
import qualified Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes
import qualified Text.Blaze.Html5.Attributes as A
import Text.Blaze.Renderer.Pretty

stylesheet :: String -> Html
stylesheet uri = link ! rel "stylesheet" ! type_ "text/css" ! href (toValue uri)

stylesheets :: [String] -> Html
stylesheets uris = sequence_ $ Prelude.map stylesheet uris