From af1fc53a157c179854fd0e03e0a8e17c2295e547 Mon Sep 17 00:00:00 2001 From: Sergei Trofimovich Date: Thu, 7 Aug 2014 18:48:03 +0300 Subject: ghci: tweak option list indentation in ':show packages' 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 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 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ghc/InteractiveUI.hs') diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 386d4df17d..3d871d9d1d 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -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 -- cgit v1.2.1