From fc50718ed8a2da1d321a9b4e93bd184569c84a76 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 12 Aug 2014 14:38:53 -0400
Subject: WORM backend: When adding a file in a subdirectory, avoid including
 the subdirectory in the key name.

---
 Backend/WORM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Backend')

diff --git a/Backend/WORM.hs b/Backend/WORM.hs
index c972602ad..6ba513960 100644
--- a/Backend/WORM.hs
+++ b/Backend/WORM.hs
@@ -36,7 +36,7 @@ backend = Backend
 keyValue :: KeySource -> Annex (Maybe Key)
 keyValue source = do
 	stat <- liftIO $ getFileStatus $ contentLocation source
-	n <- genKeyName $ keyFilename source
+	n <- genKeyName $ takeFileName $ keyFilename source
 	return $ Just $ stubKey
 		{ keyName = n
 		, keyBackendName = name backend
-- 
cgit v1.2.3