catch more exceptions
Just in case a non-IO exception might somehow be thrown.
This commit is contained in:
parent
35b3c891af
commit
be5caeaf51
2 changed files with 2 additions and 2 deletions
|
@ -410,7 +410,7 @@ retrieveExportWithContentIdentifierM dir loc cid dest mkkey p =
|
|||
|
||||
storeExportWithContentIdentifierM :: FilePath -> FilePath -> Key -> ExportLocation -> [ContentIdentifier] -> MeterUpdate -> Annex (Either String ContentIdentifier)
|
||||
storeExportWithContentIdentifierM dir src _k loc overwritablecids p =
|
||||
catchIO go (return . Left . show)
|
||||
catchNonAsync go (return . Left . show)
|
||||
where
|
||||
go = do
|
||||
liftIO $ createDirectoryUnder dir destdir
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue