From 287d8483e90fded899601a37b7b5e34229072325 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 23 Oct 2010 21:04:42 +0000 Subject: Remove the need to explicitly flatten the dynflags --- ghc/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ghc/InteractiveUI.hs') diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 11a3c98f10..7249ef4c46 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1194,7 +1194,7 @@ shellEscape str = io (system str >> return False) withFlattenedDynflags :: GHC.GhcMonad m => m a -> m a withFlattenedDynflags m = do dflags <- GHC.getSessionDynFlags - gbracket (GHC.setSessionDynFlags (ensureFlattenedExtensionFlags dflags)) + gbracket (GHC.setSessionDynFlags dflags) (\_ -> GHC.setSessionDynFlags dflags) (\_ -> m) -- cgit v1.2.1