Removed unneeded function from Setup.hs.

1 files changed, 0 insertions, 6 deletions

diff --git a/Setup.hs b/Setup.hs
index 9f5b7c26e..324142a30 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -95,9 +95,3 @@ modifiedDependencies file dependencies = do
   let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
   return $ catMaybes modified
 
--- | Perform an IO action in a directory.
-inDirectory :: FilePath -> IO a -> IO a
-inDirectory dir action = do
-  oldDir <- getCurrentDirectory
-  bracket_ (setCurrentDirectory dir) (setCurrentDirectory oldDir) action
-