diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-06 13:13:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-06 13:13:13 -0400 |
| commit | 993e6459a38817a9062aafae7552a668c2db7a31 (patch) | |
| tree | 900b38c923644d9f8b7eaf92ec240aa610551780 /Annex/Content.hs | |
| parent | 723eb19bbf30d502cb6979655b8013de49ce0b5e (diff) | |
factor out nukeFile
Diffstat (limited to 'Annex/Content.hs')
| -rw-r--r-- | Annex/Content.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/Content.hs b/Annex/Content.hs index 26b332e24..232b43b2c 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -168,7 +168,7 @@ withTmp :: Key -> (FilePath -> Annex a) -> Annex a withTmp key action = do tmp <- prepTmp key res <- action tmp - liftIO $ whenM (doesFileExist tmp) $ liftIO $ removeFile tmp + liftIO $ nukeFile tmp return res {- Checks that there is disk space available to store a given key, |