ghci: tweak option list indentation in ':show packages'
authorSergei Trofimovich <slyfox@gentoo.org>
Thu, 7 Aug 2014 15:48:03 +0000 (18:48 +0300)
committerSergei Trofimovich <slyfox@gentoo.org>
Thu, 7 Aug 2014 15:48:03 +0000 (18:48 +0300)
Summary:
Caught by './validate --slow' in 'ghci/scripts/ghci024'.

Commit 207875293fea07aa90efe215369629b657d1875a changed indentation a bit:

    --- ./ghci/scripts/ghci024.stdout       2014-07-31 12:05:34.000000000 +0300
    +++ ./ghci/scripts/ghci024.run.stdout   2014-08-07 17:19:23.000000000 +0300
    @@ -33,4 +33,4 @@
     active package flags: none
     ~~~~~~~~~~ Testing :show packages, including the ghc package
     active package flags:
    -  -package ghc
    +-package ghc

Patch restores indentation.

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Test Plan: passed validate, tested manually

Reviewers: austin, ezyang

Reviewed By: ezyang

Subscribers: phaskell, simonmar, relrod, ezyang, carter

Differential Revision: https://phabricator.haskell.org/D126

ghc/InteractiveUI.hs

index 386d4df..3d871d9 100644 (file)
@@ -2331,9 +2331,9 @@ showPackages :: GHCi ()
 showPackages = do
   dflags <- getDynFlags
   let pkg_flags = packageFlags dflags
-  liftIO $ putStrLn $ showSDoc dflags $ vcat $
-    text ("active package flags:"++if null pkg_flags then " none" else "")
-    : map pprFlag pkg_flags
+  liftIO $ putStrLn $ showSDoc dflags $
+    text ("active package flags:"++if null pkg_flags then " none" else "") $$
+      nest 2 (vcat (map pprFlag pkg_flags))
 
 showPaths :: GHCi ()
 showPaths = do