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

---
 git-union-merge.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'git-union-merge.hs')

diff --git a/git-union-merge.hs b/git-union-merge.hs
index 2c2e7a46b..0e4cd644c 100644
--- a/git-union-merge.hs
+++ b/git-union-merge.hs
@@ -28,7 +28,7 @@ setup :: Git.Repo -> IO ()
 setup = cleanup -- idempotency
 
 cleanup :: Git.Repo -> IO ()
-cleanup g = whenM (doesFileExist $ tmpIndex g) $ removeFile $ tmpIndex g
+cleanup g = nukeFile $ tmpIndex g
 
 parseArgs :: IO [String]
 parseArgs = do
-- 
cgit v1.2.3