withFlattenedDynflags :: GHC.GhcMonad m => m a -> m a
withFlattenedDynflags m
= do dflags <- GHC.getSessionDynFlags
- gbracket (GHC.setSessionDynFlags (ensureFlattenedLanguageFlags dflags))
+ gbracket (GHC.setSessionDynFlags (ensureFlattenedExtensionFlags dflags))
(\_ -> GHC.setSessionDynFlags dflags)
(\_ -> m)