2013-09-03 02:49:35 +00:00
|
|
|
module Dir where
|
2013-02-12 05:06:22 +00:00
|
|
|
|
2013-02-12 07:24:33 +00:00
|
|
|
import System.Directory
|
|
|
|
|
import Control.Exception as E
|
2013-02-12 05:06:22 +00:00
|
|
|
|
2013-03-05 01:22:33 +00:00
|
|
|
withDirectory_ :: FilePath -> IO a -> IO a
|
|
|
|
|
withDirectory_ dir action = bracket getCurrentDirectory
|
2013-03-05 01:44:17 +00:00
|
|
|
setCurrentDirectory
|
|
|
|
|
(\_ -> setCurrentDirectory dir >> action)
|
2013-03-05 01:22:33 +00:00
|
|
|
|
|
|
|
|
withDirectory :: FilePath -> (FilePath -> IO a) -> IO a
|
|
|
|
|
withDirectory dir action = bracket getCurrentDirectory
|
|
|
|
|
setCurrentDirectory
|
|
|
|
|
(\d -> setCurrentDirectory dir >> action d)
|
