Better formatting of error messages

2012-11-12 11:24:32 +02:00 · 2012-11-12 11:24:32 +02:00 · a598846bd3
commit a598846bd3
parent 21090b9314
1 changed files with 2 additions and 2 deletions
--- 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.