From 5edb77eb806fc45912582f7f49f31c089445c84f Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 30 Mar 2014 09:38:36 +0300
Subject: [PATCH] Use defaultShouldDisplayException

---
 yesod-core/Yesod/Core/Dispatch.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/yesod-core/Yesod/Core/Dispatch.hs b/yesod-core/Yesod/Core/Dispatch.hs
index e6f489da..c612b8e5 100644
--- a/yesod-core/Yesod/Core/Dispatch.hs
+++ b/yesod-core/Yesod/Core/Dispatch.hs
@@ -64,6 +64,7 @@ import Network.Wai.Middleware.MethodOverride
 import qualified Network.Wai.Handler.Warp
 import System.Log.FastLogger
 import Control.Monad.Logger
+import Control.Monad (when)
 import qualified Paths_yesod_core
 import Data.Version (showVersion)
 
@@ -163,6 +164,7 @@ warp port site = do
                 ]
             -}
             , Network.Wai.Handler.Warp.settingsOnException = const $ \e ->
+                when (shouldLog' e) $
                 messageLoggerSource
                     site
                     logger
@@ -171,6 +173,13 @@ warp port site = do
                     LevelError
                     (toLogStr $ "Exception from Warp: " ++ show e)
             }
+  where
+    shouldLog' =
+#if MIN_VERSION_wai(2,1,3)
+        Warp.defaultShouldDisplayException
+#else
+        const True
+#endif
 
 -- | A default set of middlewares.
 --