Merge branch 'master' into watch
This commit is contained in:
commit
53d2e81ffd
22 changed files with 249 additions and 24 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue