remove unused function

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