summaryrefslogtreecommitdiff
path: root/Main.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'Main.hsc')
-rw-r--r--Main.hsc5
1 files changed, 3 insertions, 2 deletions
diff --git a/Main.hsc b/Main.hsc
index 53a9a2f..f75d69e 100644
--- a/Main.hsc
+++ b/Main.hsc
@@ -322,9 +322,10 @@ main = do
to <- maybe 10 read <$> lookupEnv "TIMEOUT"
maybe (respond 504 "") pure =<< timeout (to * 10 ^ (6 :: Int))
(case (lookup "auth" ps, baCredentials =<< BS.pack <$> ha) of
+ (Just "on", Nothing) -> respond 401 ""
+ (Just "try", Nothing) -> serve True xsltDir (connectdb "") ps
+ (Just "fail", _) -> serve True xsltDir (connectdb "") ps
(_, Just (l, p)) ->
serve False xsltDir
(connectdb (connString [("user", l), ("password", p)])) ps
- (Just "on", Nothing) -> respond 401 ""
- (Just "try", Nothing) -> serve True xsltDir (connectdb "") ps
_ -> serve False xsltDir (connectdb "") ps)