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

relative dir for testing.

Browse Source
This commit is contained in:
Kazu Yamamoto
2013-03-05 10:44:17 +09:00
parent 89dc02f185
commit 39954d9114
2 changed files with 53 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/Expectation.hs
View File

@@ -11,8 +11,8 @@ shouldContain containers element = do
withDirectory_ :: FilePath -> IO a -> IO a
withDirectory_ dir action = bracket getCurrentDirectory
setCurrentDirectory
(\_ -> setCurrentDirectory dir >> action)
setCurrentDirectory
(\_ -> setCurrentDirectory dir >> action)
withDirectory :: FilePath -> (FilePath -> IO a) -> IO a
withDirectory dir action = bracket getCurrentDirectory