From 2a04410571fd85e3253a2bc0056a28a6b0a72c68 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 20 Sep 2010 16:05:27 +0200
Subject: [PATCH] Include message in default site template

---
 Yesod/Helpers/Auth.hs | 2 +-
 Yesod/Yesod.hs        | 3 +++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Yesod/Helpers/Auth.hs b/Yesod/Helpers/Auth.hs
index aa9ea994..da4bb32e 100644
--- a/Yesod/Helpers/Auth.hs
+++ b/Yesod/Helpers/Auth.hs
@@ -571,7 +571,7 @@ $maybe fb f
     %p
         %a!href=$f$ Login via Facebook
 $maybe rpxnowSettings.y r
-    %h3 OpenID
+    %h3 Rpxnow
     %p
         %a!onclick="return false;"!href="https://$rpxnowApp.r$.rpxnow.com/openid/v2/signin?token_url=@tm.RpxnowR@"
             Login via Rpxnow
diff --git a/Yesod/Yesod.hs b/Yesod/Yesod.hs
index f87ab328..ffcebc88 100644
--- a/Yesod/Yesod.hs
+++ b/Yesod/Yesod.hs
@@ -112,6 +112,7 @@ class Eq (Route a) => Yesod a where
     defaultLayout :: GWidget sub a () -> GHandler sub a RepHtml
     defaultLayout w = do
         p <- widgetToPageContent w
+        mmsg <- getMessage
         hamletToRepHtml [$hamlet|
 !!!
 %html
@@ -119,6 +120,8 @@ class Eq (Route a) => Yesod a where
         %title $pageTitle.p$
         ^pageHead.p^
     %body
+        $maybe mmsg msg
+            %p.message $msg$
         ^pageBody.p^
 |]