From 9a67f9cb8d0ce6da314b080228ac2cea55ee612a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 26 Nov 2011 12:08:54 -0400 Subject: [PATCH] use Control.Exception's brackets --- test.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/test.hs b/test.hs index d4c1366d09..e625fbd756 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 ()