diff options
| author | Clint Adams <clint@softwarefreedom.org> | 2011-07-12 16:02:55 -0400 |
|---|---|---|
| committer | Clint Adams <clint@softwarefreedom.org> | 2011-07-12 16:02:55 -0400 |
| commit | 901c0e782d8adb1e445672ce45eb40e660379b0d (patch) | |
| tree | 417cd14dc456e5340da7018e6bd5aeb0ece43d9e | |
| parent | efc395dfbec772d09703b4cfbeead17c3f38a2cb (diff) | |
Prepend slash to stash name before comparing directories.
| -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) |