diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-05-20 08:42:21 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-05-20 08:42:21 +0000 |
| commit | 90b9566607ef837329434657c8fabc4bdffdf1af (patch) | |
| tree | b26265c1a2b9986d4ec284172da8400ac75d0952 /compiler/ghci/InteractiveUI.hs | |
| parent | f7963d3f11e67375b8c6ecbd71e56f0d0ac262dd (diff) | |
| download | haskell-90b9566607ef837329434657c8fabc4bdffdf1af.tar.gz | |
sort the output of :show packages
Diffstat (limited to 'compiler/ghci/InteractiveUI.hs')
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index 26d548d089..26c4a88fe3 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -1635,7 +1635,7 @@ showPackages = do pkg_ids <- fmap (preloadPackages . pkgState) getDynFlags io $ putStrLn $ showSDoc $ vcat $ text "packages currently loaded:" - : map (nest 2 . text . packageIdString) pkg_ids + : map (nest 2 . text . packageIdString) (sort pkg_ids) where showFlag (ExposePackage p) = text $ " -package " ++ p showFlag (HidePackage p) = text $ " -hide-package " ++ p showFlag (IgnorePackage p) = text $ " -ignore-package " ++ p |