@@ -367,7 +367,7 @@ handleBrowse moduleName = do
367 let namesEnv = P.names env'
367 let namesEnv = P.names env'
368 moduleNamesIdent = (filter ((== moduleName) . fst) . M.keys) namesEnv
368 moduleNamesIdent = (filter ((== moduleName) . fst) . M.keys) namesEnv
369 in case moduleNamesIdent of
369 in case moduleNamesIdent of
370− [] -> outputStrLn "A correct module name must be specified. See `:s loaded` command for a list of those."
370+ [] -> outputStrLn $ "Either you entered an invalid module name (see `:s loaded`) or the module '"++ P.runModuleName moduleName ++"' does not export functions."
371 _ -> ( outputStrLn
371 _ -> ( outputStrLn
372 . unlines
372 . unlines