Removed unneeded function from Setup.hs.
commitb28630f577fd149580b18a300252cd0e1f173574
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateMon 15 Oct 2012, 19:11 (14 years ago)
parent4cc3801
Setup.hs−6
@@ -95,9 +95,3 @@ modifiedDependencies file dependencies = do
9595 let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
9696 return $ catMaybes modified
9797
98−-- | Perform an IO action in a directory.
99−inDirectory :: FilePath -> IO a -> IO a
100−inDirectory dir action = do
101− oldDir <- getCurrentDirectory
102− bracket_ (setCurrentDirectory dir) (setCurrentDirectory oldDir) action
103−