hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add withDirectory_ to Utils

Browse Source
This commit is contained in:
Daniel Gröber 2014-05-01 02:10:42 +02:00
parent aec46dbd51
commit 19b56738c6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Language/Haskell/GhcMod/Utils.hs
View File

@ -18,3 +18,8 @@ readProcess' cmd opts = do
fail $ cmd ++ " " ++ unwords opts ++ " (exit " ++ show val ++ ")" fail $ cmd ++ " " ++ unwords opts ++ " (exit " ++ show val ++ ")"
ExitSuccess -> ExitSuccess ->
return output return output
withDirectory_ :: FilePath -> IO a -> IO a
withDirectory_ dir action =
bracket getCurrentDirectory setCurrentDirectory
(\_ -> setCurrentDirectory dir >> action)