summaryrefslogtreecommitdiff
path: root/Utility/Directory.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Utility/Directory.hs')
-rw-r--r--Utility/Directory.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/Utility/Directory.hs b/Utility/Directory.hs
index 0a7690b44..13e6168cb 100644
--- a/Utility/Directory.hs
+++ b/Utility/Directory.hs
@@ -93,8 +93,10 @@ moveFile src dest = tryIO (rename src dest) >>= onrename
- Note that an exception is thrown if the file exists but
- cannot be removed. -}
nukeFile :: FilePath -> IO ()
+nukeFile file = void $ tryWhenExists go
+ where
#ifndef mingw32_HOST_OS
-nukeFile = removeLink
+ go = removeLink file
#else
-nukeFile = removeFile
+ go = removeFile file
#endif