From: Ian Lynagh <igloo@earth.li>
Date: Sun, 25 Jul 2010 13:53:20 +0000 (+0000)
Subject: Flatten flags for ghci's :show
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=b85bac5ed74d735b3bac7a56e0080470d8fb0cdb

Flatten flags for ghci's :show
---

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))