From b85bac5ed74d735b3bac7a56e0080470d8fb0cdb Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 25 Jul 2010 13:53:20 +0000 Subject: [PATCH] Flatten flags for ghci's :show --- ghc/InteractiveUI.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 4b48c98..9a578df 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1580,7 +1580,7 @@ optToStr RevertCAFs = "r" -- 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)) -- 1.7.10.4