From 4a8f674ba110bb8a525b88f1e980e1f31f02144e Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 12 Apr 2010 21:56:32 -0700 Subject: [PATCH] Minor Hamlet changes --- Yesod/Yesod.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Yesod/Yesod.hs b/Yesod/Yesod.hs index 3daf4687..c5b891e4 100644 --- a/Yesod/Yesod.hs +++ b/Yesod/Yesod.hs @@ -26,8 +26,8 @@ import Web.Mime import Web.Encodings (parseHttpAccept) import Web.Routes (Site (..), encodePathInfo, decodePathInfo) import Data.List (intercalate) -import Text.Hamlet hiding (Content, Html) -- FIXME do not export -import qualified Text.Hamlet as Hamlet +import Text.Hamlet +import Text.Hamlet.Monad (outputHtml) import qualified Network.Wai as W import Network.Wai.Middleware.CleanPath @@ -47,12 +47,12 @@ class YesodSite y where -> Site (Routes y) (YesodApp y) data PageContent url = PageContent - { pageTitle :: Hamlet url IO Hamlet.Html + { pageTitle :: Hamlet url IO HtmlContent , pageHead :: Hamlet url IO () , pageBody :: Hamlet url IO () } -simpleContent :: String -> Hamlet.Html -> PageContent url +simpleContent :: String -> HtmlContent -> PageContent url simpleContent title body = PageContent { pageTitle = return $ Unencoded $ cs title , pageHead = return () @@ -79,7 +79,7 @@ class YesodSite a => Yesod a where -> Request -> Hamlet (Routes a) IO () applyLayout _ p _ = [$hamlet| - +!!! %html %head %title $pageTitle$