diff options
| author | Ben Sima <ben@bsima.me> | 2020-03-31 13:25:40 -0700 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-03-31 13:25:40 -0700 |
| commit | 2d2481ac68afb824342eaef301ab471d2128c289 (patch) | |
| tree | 2b215e3a9433bda82e9f807932e316f4942265f3 /Run/Que/Server.hs | |
| parent | 91ebff5793573ddcfbd40ca13f8c900e8b41ab32 (diff) | |
Use production logging level
Diffstat (limited to 'Run/Que/Server.hs')
| -rw-r--r-- | Run/Que/Server.hs | 4 |
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' |