summaryrefslogtreecommitdiff
path: root/Backend/WORM.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-08-12 14:38:53 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-08-12 14:38:53 -0400
commitfc50718ed8a2da1d321a9b4e93bd184569c84a76 (patch)
tree8a7965c9eb179fff428d63a0ab71c7ac5bcc183a /Backend/WORM.hs
parenteff5e6b302b14dac025ec31370203740b6eede4e (diff)
WORM backend: When adding a file in a subdirectory, avoid including the subdirectory in the key name.
Diffstat (limited to 'Backend/WORM.hs')
-rw-r--r--Backend/WORM.hs2
1 files changed, 1 insertions, 1 deletions
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