diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-10-23 21:04:42 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-10-23 21:04:42 +0000 |
| commit | 287d8483e90fded899601a37b7b5e34229072325 (patch) | |
| tree | a26f98215a32fdc07fbda4af789e50b7e0cec60e /ghc/InteractiveUI.hs | |
| parent | 28cb2d6d40264796fb84da1f352490fd2b8eb27f (diff) | |
| download | haskell-287d8483e90fded899601a37b7b5e34229072325.tar.gz | |
Remove the need to explicitly flatten the dynflags
Diffstat (limited to 'ghc/InteractiveUI.hs')
| -rw-r--r-- | ghc/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |