From c62166e67b46bd695b53c85b20a021ef842b26cb Mon Sep 17 00:00:00 2001
From: Ryan Desfosses <ryan@desfo.org>
Date: Mon, 13 Apr 2015 13:34:30 -0400
Subject: [PATCH] updated deprecated settingsPort, settingsHost,
 settingsOnException

---
 yesod/Yesod/Default/Main.hs | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/yesod/Yesod/Default/Main.hs b/yesod/Yesod/Default/Main.hs
index 44e094e4..2694825e 100644
--- a/yesod/Yesod/Default/Main.hs
+++ b/yesod/Yesod/Default/Main.hs
@@ -13,7 +13,7 @@ module Yesod.Default.Main
 import Yesod.Default.Config
 import Network.Wai (Application)
 import Network.Wai.Handler.Warp
-    (runSettings, defaultSettings, settingsPort, settingsHost, settingsOnException)
+    (runSettings, defaultSettings, setPort, setHost, setOnException)
 import qualified Network.Wai.Handler.Warp as Warp
 import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
 import Network.Wai.Middleware.Gzip (gzip, GzipFiles (GzipCacheFolder), gzipFiles, def)
@@ -48,10 +48,11 @@ defaultMain :: (Show env, Read env)
 defaultMain load getApp = do
     config <- load
     app <- getApp config
-    runSettings defaultSettings
-        { settingsPort = appPort config
-        , settingsHost = appHost config
-        } app
+    runSettings 
+        ( setPort (appPort config)
+        $ setHost (appHost config)
+        $ defaultSettings
+        ) app
 
 type LogFunc = Loc -> LogSource -> LogLevel -> LogStr -> IO ()
 
@@ -66,15 +67,16 @@ defaultMainLog :: (Show env, Read env)
 defaultMainLog load getApp = do
     config <- load
     (app, logFunc) <- getApp config
-    runSettings defaultSettings
-        { settingsPort = appPort config
-        , settingsHost = appHost config
-        , settingsOnException = const $ \e -> when (shouldLog' e) $ logFunc
+    runSettings 
+        ( setPort (appPort config)
+        $ setHost (appHost config)
+        $ setOnException (const $ \e -> when (shouldLog' e) $ logFunc
             $(qLocation >>= liftLoc)
             "yesod"
             LevelError
-            (toLogStr $ "Exception from Warp: " ++ show e)
-        } app
+            (toLogStr $ "Exception from Warp: " ++ show e))
+        $ defaultSettings
+        ) app
   where
     shouldLog' = Warp.defaultShouldDisplayException