Lookup module and package defining <<x>?

[Marc Weber]

> $ghc-pkg --where-from ParseError
> package parsec: defining modules: Text.ParserCombinators.Parsec.Error, Text.ParserCombinators.Parsec
> 
> ?

This is what I've done by now... It took me some days to notice that the
./ghc-pkg symlinks to ghc-pkg-6.5xxxx which calls the ghc-pkg from /usr/lib/...
but not my modified version ;) ./ghc-pkg.bin   was what I was looking for..
By now you can only search for modules...
I want to add support for functions..
I could use  ghc -show-iface.. Problem: ghc takes about 0.2 s to launch on my
system. Dumping all installed ifaces (ghc -show-iface <list of all hi files>)
doesn't take much additional time..
That's why I want to include the MkIface module from ghc.. (beeing in another directory)
I'm not sure where to add the -i option in the makefile so that ghc can find the module..
One way would be adding the option to EXTRA_SRCS but I hope there is a better possibility 

Marc

< {-# OPTIONS -fglasgow-exts #-}
---
> whereFrom OPTIONS -fglasgow-exts #-}
18,20d17
< #ifdef WHERE_FROM
< import MkIface
< #endif
185,189d181
< #ifdef WHERE_FROM
<   "  $p where-from {id}\n" ++
<   "    Which package/module contains this module/ declaration?\n" ++
<   "\n" ++
< #endif
237,240d228
< #ifdef WHERE_FROM
<     ["where-from", id] -> do
<       whereFrom cli id
< #endif
469,500d456
< #ifdef WHERE_FROM
< -- -----------------------------------------------------------------------------
< -- Where from find the modul or package containing the id
< 
< whereFrom :: [Flag] -> String -> IO ()
< whereFrom flags id = 
<   let simple_output = FlagSimpleOutput `elem` flags
<   in do db_stack <- getPkgDatabases False flags
<       let all_pkgs = concat (map snd db_stack) :: [InstalledPackageInfo]
<       -- looking for modules with name id
<       let exposedModulesMatches = ("exposed matching modules", 
<             concatMap (getPkgNameAndModule exposedModules) all_pkgs ) :: (String, [String])
<       let hiddenModulesMatches = ("hidden matching modules", 
<             concatMap (getPkgNameAndModule hiddenModules) all_pkgs )
<       -- looking for data
<       -- looking for type
<       -- looking for newtype
<       -- looking for functions
<       let matchingResult = filter ((/= []).snd) [exposedModulesMatches, hiddenModulesMatches]
<       case matchingResult of
<         [] -> putStrLn "no matches found"
<         results -> do putStrLn "maches :"
<                       mapM_ (\(category, matches) -> putStrLn (category ++ ":") >> mapM_ putStrLn matches) results
<         
<   where getPkgNameAndModule modules pkginfo = [ formatFoundModule ((showPackageId.package) pkginfo) m | m <- modules pkginfo, (m == id) ]
<       formatFoundModule pkg module_ = pkg ++ ": " ++ module_
<       scanPackage pkg scanModule = lifM2 (++) (concatMap (scanModule "") (exposedModules pkg))  
<                                               (concatMap (scanModule "hidden") (hiddenModules pkg))
<         where scanModule hidden_text module_ =
<       
< #endif