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

Better formatting of error messages

Browse Source
This commit is contained in:
Michael Snoyman 2012-11-12 11:24:32 +02:00
parent 21090b9314
commit a598846bd3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-core/Yesod/Internal/Core.hs
View File

@ -540,14 +540,14 @@ defaultErrorHandler (InternalError e) =
[hamlet| [hamlet|
$newline never $newline never
<h1>Internal Server Error <h1>Internal Server Error
<p>#{e} <pre>#{e}
|] |]
defaultErrorHandler (BadMethod m) = defaultErrorHandler (BadMethod m) =
applyLayout' "Bad Method" applyLayout' "Bad Method"
[hamlet| [hamlet|
$newline never $newline never
<h1>Method Not Supported <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. -- | Return the same URL if the user is authorized to see it.