summaryrefslogtreecommitdiff
path: root/Run
diff options
context:
space:
mode:
Diffstat (limited to 'Run')
-rw-r--r--Run/Que/Server.hs4
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'