From 901c0e782d8adb1e445672ce45eb40e660379b0d Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@softwarefreedom.org>
Date: Tue, 12 Jul 2011 16:02:55 -0400
Subject: Prepend slash to stash name before comparing directories.

---
 shareguard-authnz-external.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.1