This commit is contained in:
Kazu Yamamoto 2014-04-24 22:11:06 +09:00
parent 6cca65b11e
commit 13c5c2c5af

View File

@ -31,6 +31,7 @@ type Symbol = String
-- | Database from 'Symbol' to modules. -- | Database from 'Symbol' to modules.
newtype SymMdlDb = SymMdlDb (Map Symbol [ModuleString]) newtype SymMdlDb = SymMdlDb (Map Symbol [ModuleString])
-- | Find modules to which the symbol belong.
findSymbol :: Options -> Cradle -> Symbol -> IO String findSymbol :: Options -> Cradle -> Symbol -> IO String
findSymbol opt cradle sym = withGHC' $ do findSymbol opt cradle sym = withGHC' $ do
void $ initializeFlagsWithCradle opt cradle [] False void $ initializeFlagsWithCradle opt cradle [] False