summaryrefslogtreecommitdiff
path: root/Main.hs
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2019-02-03 22:57:11 +0300
committerdefanor <defanor@uberspace.net>2019-02-03 22:57:11 +0300
commitd032cdc98f1c05306cdab9cff41362db2e6bfa06 (patch)
tree8c82e3169f9b89764549932b6c837e98cd8c5714 /Main.hs
parent83a90895a5b6f1267ad272bfe23a6b604068d3c0 (diff)
Replace wai-cli with wai-handler-fastcgi
Another step towards making pgxhtml more lightweight, dependencies-wise.
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs4
1 files changed, 2 insertions, 2 deletions
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