refactoring Browse.

Browse.hs

@@ -44,21 +44,19 @@ browse opt mdlName = withGHC $ do
 processModule :: ModuleInfo -> Ghc [String]
 processModule minfo = do
     dynFlags <- getDynFlags
-      let processName :: Name -> Ghc String
-          processName nm = do
+    mapM (processName dynFlags) names
+  where
+    names = modInfoExports minfo
+    processName :: DynFlags -> Name -> Ghc String
+    processName dynFlags nm = do
         tyInfo <- modInfoLookupName minfo nm
         -- If nothing found, load dependent module and lookup global
-              tyResult <- maybe inOtherModule (return . Just) tyInfo
-              return $ fromMaybe name (tyResult >>= showThing dynFlags)
-            where
-              inOtherModule :: Ghc (Maybe TyThing)
-              inOtherModule = do
+        tyResult <- maybe (inOtherModule nm) (return . Just) tyInfo
+        return $ fromMaybe (getOccString nm) (tyResult >>= showThing dynFlags)
+    inOtherModule :: Name -> Ghc (Maybe TyThing)
+    inOtherModule nm = do
         _ <- getModuleInfo (nameModule nm) -- FIXME
         lookupGlobalName nm
-              name = getOccString nm
-      mapM processName exports
-        where
-          exports = modInfoExports minfo
 
 showThing :: DynFlags -> TyThing -> Maybe String
 showThing dflags t = case t of