Use production logging level

1 files changed, 2 insertions, 2 deletions

diff --git a/Run/Que/Server.hs b/Run/Que/Server.hs
index fe88014..e30a96a 100644
--- a/Run/Que/Server.hs
+++ b/Run/Que/Server.hs
@@ -34,7 +34,7 @@ import qualified Network.Socket                as Socket
 import qualified Network.Wai                   as Wai
 import qualified Network.Wai.Handler.Warp      as Warp
 import           Network.Wai.Middleware.RequestLogger
-                                                ( logStdoutDev )
+                                                ( logStdout )
 import qualified System.Console.GetOpt         as Opt
 import qualified System.Environment            as Environment
 import qualified Web.Scotty.Trans              as Scotty
@@ -78,7 +78,7 @@ guardIP r = case Wai.remoteHost r of
 
 routes :: Scotty.ScottyT Text App ()
 routes = do
-  Scotty.middleware logStdoutDev
+  Scotty.middleware logStdout
 
   let quepath   = "^/([[:alnum:]_]*)/([[:alnum:]._/]*)$"
   let namespace = "^/([[:alnum:]_]*)/?$" -- matches '/ns' and '/ns/' but not '/ns/path'