web: remove debug print
This commit is contained in:
parent
a8045c7c32
commit
86020e8f4a
@ -124,7 +124,6 @@ server opts args l =
|
|||||||
runWithConfig (ServerConf tcpport hostname) $ -- (Env -> IO Response) -> IO ()
|
runWithConfig (ServerConf tcpport hostname) $ -- (Env -> IO Response) -> IO ()
|
||||||
\env -> do -- IO Response
|
\env -> do -- IO Response
|
||||||
-- general request handler
|
-- general request handler
|
||||||
printf $ "request\n"
|
|
||||||
let a = intercalate "+" $ reqparam env "a"
|
let a = intercalate "+" $ reqparam env "a"
|
||||||
p = intercalate "+" $ reqparam env "p"
|
p = intercalate "+" $ reqparam env "p"
|
||||||
opts' = opts ++ [Period p]
|
opts' = opts ++ [Period p]
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user