summaryrefslogtreecommitdiff
path: root/Annex/Content.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-06 13:13:13 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-06 13:13:13 -0400
commit993e6459a38817a9062aafae7552a668c2db7a31 (patch)
tree900b38c923644d9f8b7eaf92ec240aa610551780 /Annex/Content.hs
parent723eb19bbf30d502cb6979655b8013de49ce0b5e (diff)
factor out nukeFile
Diffstat (limited to 'Annex/Content.hs')
-rw-r--r--Annex/Content.hs2
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,