Heist.hs

{-# LANGUAGE OverloadedStrings #-}
-- | This module contains convenience functions for helping render
-- Heist templates from Snap.
module Snap.Heist where

------------------------------------------------------------------------------
import           Control.Applicative
import           Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B
import           Snap.Types
import           Snap.Util.FileServe
import           Text.Templating.Heist


------------------------------------------------------------------------------
-- | This is a convenience function.  It calls 'render' with the
-- content type set to @text/html; charset=utf-8@.
renderHtml :: (MonadSnap m) => TemplateState m -> ByteString -> m ()
renderHtml = render "text/html; charset=utf-8"


------------------------------------------------------------------------------
-- | Renders a template with the provided content type.  If the
-- template cannot be loaded, 'pass' is called and the next handler is tried.
render :: (MonadSnap m)
       => ByteString      -- ^ the content type to include in the response
       -> TemplateState m -- ^ the TemplateState that contains the template
       -> ByteString      -- ^ the name of the template
       -> m ()
render contentType ts template = do
    bytes <- renderTemplate ts template
    flip (maybe pass) bytes $ \x -> do
        modifyResponse $ setContentType contentType
                       . setContentLength (fromIntegral $ B.length x)
        writeBS x


------------------------------------------------------------------------------
-- | Handles the rendering of any template in TemplateState.
handleAllTemplates :: (MonadSnap m)
                   => TemplateState m -> m ()
handleAllTemplates ts =
    ifTop (renderHtml ts "index") <|>
    (renderHtml ts . B.pack =<< getSafePath)