diff options
Diffstat (limited to 'Command/Add.hs')
| -rw-r--r-- | Command/Add.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/Add.hs b/Command/Add.hs index ef839b2a3..7029a9c16 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -12,7 +12,7 @@ import Annex.Exception import Command import qualified Annex import qualified Annex.Queue -import qualified Backend +import Backend import Logs.Location import Annex.Content import Utility.Touch @@ -46,8 +46,9 @@ start file = notBareRepo $ ifAnnexed file fixup add perform :: FilePath -> CommandPerform perform file = do - backend <- Backend.chooseBackend file - Backend.genKey file backend >>= go + let source = KeySource { keyFilename = file, contentLocation = file} + backend <- chooseBackend file + genKey source backend >>= go where go Nothing = stop go (Just (key, _)) = do |