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

Include message in default site template

Browse Source
This commit is contained in:
Michael Snoyman 2010-09-20 16:05:27 +02:00
parent 7064e8bdcc
commit 2a04410571
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Helpers/Auth.hs
View File

@ -571,7 +571,7 @@ $maybe fb f
%p %p
%a!href=$f$ Login via Facebook %a!href=$f$ Login via Facebook
$maybe rpxnowSettings.y r $maybe rpxnowSettings.y r
%h3 OpenID %h3 Rpxnow
%p %p
%a!onclick="return false;"!href="https://$rpxnowApp.r$.rpxnow.com/openid/v2/signin?token_url=@tm.RpxnowR@" %a!onclick="return false;"!href="https://$rpxnowApp.r$.rpxnow.com/openid/v2/signin?token_url=@tm.RpxnowR@"
Login via Rpxnow Login via Rpxnow

3
Yesod/Yesod.hs
View File

@ -112,6 +112,7 @@ class Eq (Route a) => Yesod a where
defaultLayout :: GWidget sub a () -> GHandler sub a RepHtml defaultLayout :: GWidget sub a () -> GHandler sub a RepHtml
defaultLayout w = do defaultLayout w = do
p <- widgetToPageContent w p <- widgetToPageContent w
mmsg <- getMessage
hamletToRepHtml [$hamlet| hamletToRepHtml [$hamlet|
!!! !!!
%html %html
@ -119,6 +120,8 @@ class Eq (Route a) => Yesod a where
%title $pageTitle.p$ %title $pageTitle.p$
^pageHead.p^ ^pageHead.p^
%body %body
$maybe mmsg msg
%p.message $msg$
^pageBody.p^ ^pageBody.p^
|] |]