summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--shareguard-authnz-external.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/shareguard-authnz-external.hs b/shareguard-authnz-external.hs
index f20f363..8a0bdbb 100644
--- a/shareguard-authnz-external.hs
+++ b/shareguard-authnz-external.hs
@@ -42,7 +42,7 @@ main = do
passwords <- D.withDB cnf $ \db -> getUserPw db
let dbpass = snd $ head $ filter ((==user).fst) passwords
alldirs <- D.withDB cnf $ \db -> getUserDirs db
- let dirs = map snd (filter ((==user).fst) alldirs)
+ let dirs = map ('/' :) (map snd (filter ((user ==) . fst) alldirs))
if isValidRequest (AuthQuery user pw uri) dbpass dirs
then exitWith (ExitSuccess)
else exitWith (ExitFailure 1)