@@ -358,18 +358,17 @@ handleBrowse :: P.ModuleName -> PSCI ()
358358handleBrowse moduleName = do
359359 st <- PSCI $ lift get
360360 e <- psciIO . runMake $ P.make modulesDir options (psciLoadedModules st) []
361− case e of
362− Left err -> PSCI $ outputStrLn err
363− Right env' ->
364− let namesEnv = P.names env'
365− moduleNamesIdent = (filter ((== moduleName) . fst) . M.keys) namesEnv
366− in case moduleNamesIdent of
367− [] -> (PSCI . outputStrLn) "A correct module name must be specified. See `:s loaded` command for a list of those."
368− _ -> ( PSCI
369− . outputStrLn
370− . unlines
371− . sort
372− . map (showType . findType namesEnv)) moduleNamesIdent
361+ PSCI $ case e of
362+ Left err -> outputStrLn err
363+ Right env' ->
364+ let namesEnv = P.names env'
365+ moduleNamesIdent = (filter ((== moduleName) . fst) . M.keys) namesEnv
366+ in case moduleNamesIdent of
367+ [] -> outputStrLn "A correct module name must be specified. See `:s loaded` command for a list of those."
368+ _ -> ( outputStrLn
369+ . unlines
370+ . sort
371+ . map (showType . findType namesEnv)) moduleNamesIdent
373372 where findType :: M.Map (P.ModuleName, P.Ident) (P.Type, P.NameKind, P.NameVisibility) -> (P.ModuleName, P.Ident) -> (P.Ident, Maybe (P.Type, P.NameKind, P.NameVisibility))
374373 findType envNames m@(_, mIdent) = (mIdent, M.lookup m envNames)
375374 showType :: (P.Ident, Maybe (P.Type, P.NameKind, P.NameVisibility)) -> String