diff --git a/happstack-hsp.cabal b/happstack-hsp.cabal --- a/happstack-hsp.cabal +++ b/happstack-hsp.cabal @@ -1,5 +1,5 @@ Name: happstack-hsp -Version: 7.3.1 +Version: 7.3.2 Synopsis: Support for using HSP templates in Happstack Description: Happstack is a web application framework. HSP is an XML templating solution. This package makes it easy to use HSP templates with Happstack. Homepage: http://www.happstack.com/ diff --git a/src/Happstack/Server/HSP/HTML.hs b/src/Happstack/Server/HSP/HTML.hs --- a/src/Happstack/Server/HSP/HTML.hs +++ b/src/Happstack/Server/HSP/HTML.hs @@ -1,6 +1,6 @@ -- | support for using HSP+Happstack for rendering HTML -{-# LANGUAGE FlexibleInstances, FlexibleContexts, TypeFamilies, OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-orphans -F -pgmFhsx2hs #-} +{-# LANGUAGE FlexibleInstances, FlexibleContexts, QuasiQuotes, TypeFamilies, OverloadedStrings #-} +{-# OPTIONS_GHC -fno-warn-orphans #-} module Happstack.Server.HSP.HTML ( defaultTemplate ) where @@ -12,6 +12,7 @@ import qualified Data.Text.Lazy.Encoding as TL import qualified Data.Text.Lazy as TL import Data.Text.Lazy (Text) +import Language.Haskell.HSX.QQ (hsx) import Control.Monad (liftM) import Happstack.Server @@ -46,7 +47,7 @@ -> body -- ^ content to put between the \ tags. -> m (XMLType m) defaultTemplate title headers body = - unXMLGenT $ + unXMLGenT $ [hsx| <% title %> @@ -56,3 +57,4 @@ <% body %> + |]