@@ -95,9 +95,3 @@ modifiedDependencies file dependencies = do
95 let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
95 let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
96 return $ catMaybes modified
96 return $ catMaybes modified
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