Improve the error message.
commit4f2b191d6843b9af5eb36bd1ee59651429ae1db6
authorAntoine R. Dumont <antoine.romain.dumont@gmail.com>
dateFri 31 Oct 2014, 20:12 (12 years ago)
parentd00c965
psci/Main.hs+1−1
@@ -367,7 +367,7 @@ handleBrowse moduleName = do
367367 let namesEnv = P.names env'
368368 moduleNamesIdent = (filter ((== moduleName) . fst) . M.keys) namesEnv
369369 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."
371371 _ -> ( outputStrLn
372372 . unlines
373373 . sort