{-# LANGUAGE OverloadedStrings #-} module Web.Page.Hastache ( module X , template ) where import Web.Page.Types as X import qualified Data.Text as T import qualified Data.Text.Lazy as LT import Data.Monoid -- | We choose to not interpolate the @WebPage@ data type as a JSON Hastache -- template value because I don't want the portions of @WebPage@ visible by -- @content@. template :: WebPage LT.Text T.Text -> LT.Text -> LT.Text template page content = mconcat [ "" , "" , "
" , initScripts page , "