From a598846bd3177ae945c6adcbc7b68bc0bf6c6986 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 12 Nov 2012 11:24:32 +0200
Subject: [PATCH] Better formatting of error messages

---
 yesod-core/Yesod/Internal/Core.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/yesod-core/Yesod/Internal/Core.hs b/yesod-core/Yesod/Internal/Core.hs
index 3e48c9f2..4fedabeb 100644
--- a/yesod-core/Yesod/Internal/Core.hs
+++ b/yesod-core/Yesod/Internal/Core.hs
@@ -540,14 +540,14 @@ defaultErrorHandler (InternalError e) =
         [hamlet|
 $newline never
 <h1>Internal Server Error
-<p>#{e}
+<pre>#{e}
 |]
 defaultErrorHandler (BadMethod m) =
     applyLayout' "Bad Method"
         [hamlet|
 $newline never
 <h1>Method Not Supported
-<p>Method "#{S8.unpack m}" not supported
+<p>Method <code>#{S8.unpack m}</code> not supported
 |]
 
 -- | Return the same URL if the user is authorized to see it.