From b28630f577fd149580b18a300252cd0e1f173574 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 15 Oct 2012 19:11:19 -0700
Subject: Removed unneeded function from Setup.hs.

---
 Setup.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'Setup.hs')

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
-
-- 
cgit v1.2.3