From 9624d4bf66552989058d4ba31f95823fd2f83a46 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 26 Dec 2012 16:41:24 +0200
Subject: [PATCH] Add error logging for all internal server errors (#335)

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

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