diff options
| -rw-r--r-- | shareguard-authnz-external.hs | 2 |
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) |