use Control.Exception's brackets

1 files changed, 2 insertions, 3 deletions

diff --git a/test.hs b/test.hs
index d4c1366d0..e625fbd75 100644
--- a/test.hs
+++ b/test.hs
@@ -11,7 +11,7 @@ import Test.QuickCheck
 
 import System.Posix.Directory (changeWorkingDirectory)
 import System.Posix.Files
-import IO (bracket_, bracket)
+import Control.Exception (bracket_, bracket)
 import System.IO.Error
 import System.Posix.Env
 import qualified Control.Exception.Extensible as E
@@ -523,8 +523,7 @@ indir dir a = do
 	-- Assertion failures throw non-IO errors; catch
 	-- any type of error and change back to cwd before
 	-- rethrowing.
-	r <- bracket_ (changeToTmpDir dir)
-		(\_ -> changeWorkingDirectory cwd)
+	r <- bracket_ (changeToTmpDir dir) (changeWorkingDirectory cwd)
 		(E.try (a)::IO (Either E.SomeException ()))
 	case r of
 		Right () -> return ()