summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-16 15:39:21 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-16 15:39:21 -0400
commit4f4aa0bdfd524682facb8245cf840048006bc59b (patch)
tree3b0aa2133c262d1ce2008e6bb2c17d4d22d3c4c8 /Utility
parentcae29d4029d4ba96f673ee4f91d18b9e798b5880 (diff)
remove unused function
Diffstat (limited to 'Utility')
-rw-r--r--Utility/Directory.hs11
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