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

Add error logging for all internal server errors (#335)

Browse Source
This commit is contained in:
Michael Snoyman 2012-12-26 16:41:24 +02:00
parent f240709ea1
commit 9624d4bf66
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,6 +41,7 @@ module Yesod.Internal.Core
import Yesod.Content import Yesod.Content
import Yesod.Handler hiding (lift, getExpires) import Yesod.Handler hiding (lift, getExpires)
import Control.Monad.Logger (logErrorS)
import Yesod.Routes.Class import Yesod.Routes.Class
@ -547,7 +548,8 @@ $newline never
$forall msg <- ia $forall msg <- ia
<li>#{msg} <li>#{msg}
|] |]
defaultErrorHandler (InternalError e) = defaultErrorHandler (InternalError e) = do
$logErrorS "yesod-core" e
applyLayout' "Internal Server Error" applyLayout' "Internal Server Error"
[hamlet| [hamlet|
$newline never $newline never