From d032cdc98f1c05306cdab9cff41362db2e6bfa06 Mon Sep 17 00:00:00 2001 From: defanor Date: Sun, 3 Feb 2019 22:57:11 +0300 Subject: Replace wai-cli with wai-handler-fastcgi Another step towards making pgxhtml more lightweight, dependencies-wise. --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index e26cac6..48f2d85 100644 --- a/Main.hs +++ b/Main.hs @@ -49,7 +49,7 @@ import Data.Text.Encoding (encodeUtf8) import Network.Wai.Middleware.HttpAuth (extractBasicAuth) import Network.HTTP.Types.Header (hWWWAuthenticate) import Network.Wai.Middleware.Timeout (timeout) -import Network.Wai.Cli (defWaiMain) +import Network.Wai.Handler.FastCGI (run) import Control.Monad (join) import Control.Arrow ((***)) import Control.Exception (bracket, finally, catches, Handler(..)) @@ -250,7 +250,7 @@ main = do conf <- decodeEnv case conf of Left err -> putStrLn err - Right conf' -> defWaiMain + Right conf' -> run $ timeout (connectionTimeout conf') $ \req respond -> case ("authorised" `elem` pathInfo req, extractBasicAuth =<< lookup hAuthorization (requestHeaders req)) of -- cgit v1.2.3