haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typo in how description meta tags are laid out

Browse Source
This commit is contained in:
Isaac van Bakel 2022-04-21 14:32:49 +01:00
parent f338e519f2
commit 1295f1c643
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-core/src/Yesod/Core/Class/Yesod.hs
View File

@ -88,7 +88,7 @@ class RenderRoute site => Yesod site where
<head> <head>
<title>#{pageTitle p} <title>#{pageTitle p}
$maybe description <- pageDescription p $maybe description <- pageDescription p
<meta type="description" content="#{description}"> <meta name="description" content="#{description}">
^{pageHead p} ^{pageHead p}
<body> <body>
$forall (status, msg) <- msgs $forall (status, msg) <- msgs

2
yesod-core/test/YesodCoreTest/Meta.hs
View File

@ -48,7 +48,7 @@ metaTest = describe "Setting page metadata" $ do
res <- request defaultRequest res <- request defaultRequest
{ pathInfo = ["desc"] { pathInfo = ["desc"]
} }
assertBody "<!DOCTYPE html>\n<html><head><title></title><meta type=\"description\" content=\"Second description\"></head><body></body></html>" res assertBody "<!DOCTYPE html>\n<html><head><title></title><meta name=\"description\" content=\"Second description\"></head><body></body></html>" res
runner :: Session () -> IO () runner :: Session () -> IO ()
runner f = toWaiAppPlain App >>= runSession f runner f = toWaiAppPlain App >>= runSession f