diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-26 23:26:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-26 23:26:10 -0400 |
| commit | 748609e54c6bc6ca9d6ac68da04b8dd430416876 (patch) | |
| tree | 127be7bfcaa82c00c85b093615f08a0f3c421380 /Remote/Directory.hs | |
| parent | 24c1d3fe0b720ad78399284a3645d0bb6dc15b0d (diff) | |
improve exception handling
Push it down from needing to be done in every Storer,
to being checked once inside ChunkedEncryptable.
Also, catch exceptions from PrepareStorer and PrepareRetriever,
just in case..
Diffstat (limited to 'Remote/Directory.hs')
| -rw-r--r-- | Remote/Directory.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs index 6b6a4b1ce..2ebf608cb 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -117,7 +117,7 @@ store d chunkconfig k b p = do void $ tryIO $ createDirectoryIfMissing True tmpdir case chunkconfig of LegacyChunks chunksize -> Legacy.store chunksize finalizer k b p tmpdir destdir - _ -> flip catchNonAsync (\e -> warningIO (show e) >> return False) $ do + _ -> do let tmpf = tmpdir </> keyFile k meteredWriteFile p tmpf b finalizer tmpdir destdir |