snap-blaze-clay-0.1.0.0: src/Snap/Blaze/Clay.hs

{-# LANGUAGE OverloadedStrings #-}
module Snap.Blaze.Clay
    (clay,
     clayPretty
    ) where

import Text.Blaze.Html (Html, toHtml)
import Clay

-- / Renders compact css
clay :: Css -> Html
clay css = do
    toHtml (renderWith compact [] css)


-- / Renders pretty css
clayPretty :: Css -> Html
clayPretty css = do
    toHtml (renderWith pretty [] css)