diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-26 23:01:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-26 23:01:44 -0400 |
| commit | 0950b8314a21e125aec383db078afc648bd4444e (patch) | |
| tree | 59a37c2d90e73dfcbcb21e2dcc15e83f7e80715e /Remote/Directory.hs | |
| parent | 51a6a833c5e07d8ac57ab8857c649669502d9f6b (diff) | |
better exception display
Diffstat (limited to 'Remote/Directory.hs')
| -rw-r--r-- | Remote/Directory.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs index c30c3c263..6b6a4b1ce 100644 --- a/Remote/Directory.hs +++ b/Remote/Directory.hs @@ -114,10 +114,10 @@ prepareStore d chunkconfig k = ifM (checkDiskSpace (Just d) k 0) store :: FilePath -> ChunkConfig -> Storer store d chunkconfig k b p = do - void $ liftIO $ tryIO $ createDirectoryIfMissing True tmpdir + void $ tryIO $ createDirectoryIfMissing True tmpdir case chunkconfig of LegacyChunks chunksize -> Legacy.store chunksize finalizer k b p tmpdir destdir - _ -> flip catchNonAsync (\e -> print e >> return False) $ do + _ -> flip catchNonAsync (\e -> warningIO (show e) >> return False) $ do let tmpf = tmpdir </> keyFile k meteredWriteFile p tmpf b finalizer tmpdir destdir |