mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix

Browse source
This commit is contained in:
Joey Hess 2013-12-30 13:41:11 -04:00
parent 4a36d569c3
commit 0cb1a0a605
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Utility/Tmp.hs
View file

@ -69,7 +69,8 @@ withTmpDirIn tmpdir template = bracket create remove
-- after a process has just written to it and exited. -- after a process has just written to it and exited.
-- Because it's crap, presumably. So, ignore failure -- Because it's crap, presumably. So, ignore failure
-- to delete the temp directory. -- to delete the temp directory.
void $ catchIO $ removeDirectoryRecursive d _ <- tryIO $ removeDirectoryRecursive d
return ()
#else #else
removeDirectoryRecursive d removeDirectoryRecursive d
#endif #endif