From 2d2481ac68afb824342eaef301ab471d2128c289 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Tue, 31 Mar 2020 13:25:40 -0700 Subject: Use production logging level --- Run/Que/Server.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Run/Que') 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' -- cgit v1.2.3