diff options
author | defanor <defanor@uberspace.net> | 2019-02-16 10:56:07 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2019-02-16 10:56:07 +0300 |
commit | dd5d7650a7a45ad66b139f5fc7874264104e2095 (patch) | |
tree | bcd9623d229fea99c529bf34507e6a7639908002 | |
parent | 3c00d9f42a26808c6c1763f93f78371b318c5b06 (diff) |
Use credentials whenever they are provided
Not necessarily with auth=on.
-rw-r--r-- | Main.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -323,7 +323,7 @@ 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", Just (l, p)) -> + (_, Just (l, p)) -> serve xsltDir (connectdb (connString [("user", l), ("password", p)])) ps (Just "on", Nothing) -> requireAuth |