diff options
Diffstat (limited to 'Backend/WORM.hs')
| -rw-r--r-- | Backend/WORM.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Backend/WORM.hs b/Backend/WORM.hs index 3471eedc1..60db42f56 100644 --- a/Backend/WORM.hs +++ b/Backend/WORM.hs @@ -11,6 +11,7 @@ import Common.Annex import Types.Backend import Types.Key import Types.KeySource +import Backend.Utilities backends :: [Backend] backends = [backend] @@ -33,9 +34,10 @@ backend = Backend keyValue :: KeySource -> Annex (Maybe Key) keyValue source = do stat <- liftIO $ getFileStatus $ contentLocation source - return $ Just Key { - keyName = takeFileName $ keyFilename source, - keyBackendName = name backend, - keySize = Just $ fromIntegral $ fileSize stat, - keyMtime = Just $ modificationTime stat - } + n <- genKeyName $ keyFilename source + return $ Just Key + { keyName = n + , keyBackendName = name backend + , keySize = Just $ fromIntegral $ fileSize stat + , keyMtime = Just $ modificationTime stat + } |