Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Removed unneeded function from Setup.hs.

Browse source
This commit is contained in:
John MacFarlane 2012-10-15 19:11:19 -07:00
parent 4cc3801fb0
commit b28630f577
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Setup.hs
View file

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