From 993e6459a38817a9062aafae7552a668c2db7a31 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 6 Jun 2012 13:13:13 -0400
Subject: factor out nukeFile

---
 Annex/Content.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Annex')

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,
-- 
cgit v1.2.3