@@ -28,7 +28,7 @@ import qualified Control.Monad.Trans.State.Lazy as L
2828import Control.Monad.Error (ErrorT(..), MonadError)
2929import Control.Monad.Error.Class (MonadError(..))
3030
31−import Data.List (intercalate, isPrefixOf, nub, sortBy, isInfixOf)
31+import Data.List (intercalate, isPrefixOf, nub, sortBy, isInfixOf, sort)
3232import Data.Maybe (mapMaybe)
3333import Data.Foldable (traverse_)
3434import Data.Version (showVersion)
@@ -313,7 +313,7 @@ handleShowLoadedModules = do
313313 PSCiState { psciLoadedModules = loadedModules } <- PSCI $ lift get
314314 psciIO $ readModules loadedModules >>= putStrLn
315315 return ()
316− where readModules = return . unlines . nub . map toModuleName
316+ where readModules = return . unlines . sort . nub . map toModuleName
317317 toModuleName = N.runModuleName . (\ (D.Module mdName _ _) -> mdName) . snd
318318
319319-- |
@@ -324,7 +324,7 @@ handleShowImportedModules = do
324324 PSCiState { psciImportedModuleNames = importedModuleNames } <- PSCI $ lift get
325325 psciIO $ readModules importedModuleNames >>= putStrLn
326326 return ()
327− where readModules = return . unlines . map N.runModuleName
327+ where readModules = return . unlines . sort . map N.runModuleName
328328
329329-- |
330330-- Imports a module, preserving the initial state on failure.
@@ -379,8 +379,8 @@ handleBrowse moduleName = do
379379 readModuleTypes _ (Left err) = return err
380380 readModuleTypes loadedModules (Right modName) =
381381 return $ case lookup modName loadedModules of
382− Just mName -> unlines $ signatures mName
383− _ -> "Module '" ++ modName ++ "' not found!"
382+ Just mName -> (unlines . sort . signatures) mName
383+ _ -> "Module '" ++ modName ++ "' not found!"
384384
385385-- |
386386-- Takes a value and prints its type