removing the third argument from initializeFlagsWithCradle.

This commit is contained in:
Kazu Yamamoto
2014-04-28 13:00:25 +09:00
parent 117d01a52a
commit 000076223f
7 changed files with 10 additions and 10 deletions

View File

@@ -33,7 +33,7 @@ newtype SymMdlDb = SymMdlDb (Map Symbol [ModuleString])
-- | Find modules to which the symbol belong.
findSymbol :: Options -> Cradle -> Symbol -> IO String
findSymbol opt cradle sym = withGHC' $ do
initializeFlagsWithCradle opt cradle []
initializeFlagsWithCradle opt cradle
lookupSym opt sym <$> getSymMdlDb
-- | Creating 'SymMdlDb'.