Merge branch 'master' into watch

This commit is contained in:
Joey Hess 2012-06-15 15:20:11 -04:00
commit 53d2e81ffd
22 changed files with 249 additions and 24 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