diff options
Diffstat (limited to 'Utility/Directory.hs')
| -rw-r--r-- | Utility/Directory.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/Utility/Directory.hs b/Utility/Directory.hs index e6609caf9..cf72952d6 100644 --- a/Utility/Directory.hs +++ b/Utility/Directory.hs @@ -94,14 +94,3 @@ moveFile src dest = tryIO (rename src dest) >>= onrename - cannot be removed. -} nukeFile :: FilePath -> IO () nukeFile file = whenM (doesFileExist file) $ removeFile file - -{- Runs an action in another directory. -} -bracketCd :: FilePath -> IO a -> IO a -bracketCd dir a = go =<< getCurrentDirectory - where - go cwd - | dirContains dir cwd = a - | otherwise = bracket_ - (changeWorkingDirectory dir) - (changeWorkingDirectory cwd) - a |