From a84d6952cb9efe2390a7146e52b4a3f9e948d04b Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 28 Apr 2010 17:02:59 +0900
Subject: [PATCH] lookupModule does not exist in GHC 6.10, sigh.

---
 Browse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Browse.hs b/Browse.hs
index 15a0e04..f642b7b 100644
--- a/Browse.hs
+++ b/Browse.hs
@@ -20,7 +20,7 @@ browse :: String -> IO [String]
 browse mdlName = withGHCAPI (maybeNamesToStrings <$> lookupModuleInfo)
 
   where
-    lookupModuleInfo = lookupModule (mkModuleName mdlName) Nothing >>= getModuleInfo
+    lookupModuleInfo = findModule (mkModuleName mdlName) Nothing >>= getModuleInfo
     maybeNamesToStrings = maybe [] (map getOccString . modInfoExports)
 
 withGHCAPI :: Ghc a -> IO a