use basename as key

1 files changed, 4 insertions, 2 deletions

diff --git a/Backend/Worm.hs b/Backend/Worm.hs
index 26fffab52..ba79428ef 100644
--- a/Backend/Worm.hs
+++ b/Backend/Worm.hs
@@ -5,12 +5,14 @@ module Backend.Worm (backend) where
 
 import qualified Backend.File
 import BackendTypes
+import Utility
+import System.FilePath
 
 backend = Backend.File.backend {
 	name = "WORM",
 	getKey = keyValue
 }
 
--- direct mapping from filename to key
+-- direct mapping from basename of filename to key
 keyValue :: FilePath -> Annex (Maybe Key)
-keyValue file = return $ Just $ Key ((name backend), file)
+keyValue file = return $ Just $ Key ((name backend), (takeFileName file))