browse takes a list of modules.

Browse.hs

@@ -3,7 +3,7 @@ module Browse (browseModule) where
 import Control.Applicative
 import Data.Char
 import Data.List
-import DynFlags
+import Exception
 import GHC
 import GHC.Paths (libdir)
 import Name
@@ -17,14 +17,12 @@ browseModule opt mdlName = convert opt . validate <$> browse mdlName
     validate = sort . filter (isAlpha.head)
 
 browse :: String -> IO [String]
-browse mdlName = withGHCAPI (maybeNamesToStrings <$> lookupModuleInfo)
-
+browse mdlName = ghandle ignore $ runGhc (Just libdir) $ do
+    initSession
+    maybeNamesToStrings <$> lookupModuleInfo
   where
+    initSession = getSessionDynFlags >>= setSessionDynFlags
     lookupModuleInfo = findModule (mkModuleName mdlName) Nothing >>= getModuleInfo
     maybeNamesToStrings = maybe [] (map getOccString . modInfoExports)
-
-withGHCAPI :: Ghc a -> IO a
-withGHCAPI body = defaultErrorHandler defaultDynFlags $
-    runGhc (Just libdir) $ do
-        getSessionDynFlags >>= setSessionDynFlags
-        body
+    ignore :: SomeException -> IO [String]
+    ignore _ = return []

GHCMod.hs

@@ -2,10 +2,11 @@ module Main where
 
 import Browse
 import Check
+import Control.Applicative
 import Control.Exception hiding (try)
+import Lang
 import List
 import Param
-import Lang
 import Prelude hiding (catch)
 import System.Console.GetOpt
 import System.Environment (getArgs)
@@ -50,7 +51,7 @@ main = flip catch handler $ do
     args <- getArgs
     let (opt,cmdArg) = parseArgs argspec args
     res <- case head cmdArg of
-      "browse" -> browseModule opt (cmdArg !! 1)
+      "browse" -> concat <$> mapM (browseModule opt) (tail cmdArg)
       "list"   -> listModules opt
       "check"  -> checkSyntax opt (cmdArg !! 1)
       "lang"   -> listLanguages opt