diff --git a/yesod-core/src/Yesod/Core/Class/Yesod.hs b/yesod-core/src/Yesod/Core/Class/Yesod.hs index 3a3756c6..7a66aa81 100644 --- a/yesod-core/src/Yesod/Core/Class/Yesod.hs +++ b/yesod-core/src/Yesod/Core/Class/Yesod.hs @@ -88,7 +88,7 @@ class RenderRoute site => Yesod site where #{pageTitle p} $maybe description <- pageDescription p - <meta type="description" content="#{description}"> + <meta name="description" content="#{description}"> ^{pageHead p} <body> $forall (status, msg) <- msgs diff --git a/yesod-core/test/YesodCoreTest/Meta.hs b/yesod-core/test/YesodCoreTest/Meta.hs index 6bd9af28..03e6e8ac 100644 --- a/yesod-core/test/YesodCoreTest/Meta.hs +++ b/yesod-core/test/YesodCoreTest/Meta.hs @@ -48,7 +48,7 @@ metaTest = describe "Setting page metadata" $ do res <- request defaultRequest { pathInfo = ["desc"] } - assertBody "<!DOCTYPE html>\n<html><head><title>" res + assertBody "\n" res runner :: Session () -> IO () runner f = toWaiAppPlain App >>= runSession f