summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Backend/Worm.hs6
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))