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 /git-union-merge.hs | |
| parent | 723eb19bbf30d502cb6979655b8013de49ce0b5e (diff) | |
factor out nukeFile
Diffstat (limited to 'git-union-merge.hs')
| -rw-r--r-- | git-union-merge.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |