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)
-- code for `:show'
showCmd :: String -> GHCi ()
-showCmd str = do
+showCmd str = withFlattenedDynflags $ do
st <- getGHCiState
case words str of
["args"] -> io $ putStrLn (show (args st))