addurl: Was broken by a typo introduced 2 released ago, now fixed. Closes: #677576

This commit is contained in:
Joey Hess 2012-06-14 20:20:03 -04:00
parent 06caf52f03
commit ca9d94a0ad
2 changed files with 3 additions and 1 deletions

View file

@ -73,7 +73,7 @@ download url file = do
liftIO $ createDirectoryIfMissing True (parentDir tmp)
stopUnless (downloadUrl [url] tmp) $ do
backend <- chooseBackend file
let source = KeySource { keyFilename = file, contentLocation = file}
let source = KeySource { keyFilename = file, contentLocation = tmp }
k <- genKey source backend
case k of
Nothing -> stop