browse takes a list of modules.

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