Internal exports extra Monad stuff.

This commit is contained in:
Kazu Yamamoto
2014-07-18 15:42:05 +09:00
parent 30ddd655cd
commit 0080f9b68c
3 changed files with 26 additions and 4 deletions

View File

@@ -68,7 +68,8 @@ packageConfDir = "package.conf.d"
----------------------------------------------------------------
-- | Finding modules to which the symbol belong.
-- | Looking up 'SymbolDb' with 'Symbol' to \['ModuleString'\]
-- which will be concatenated. 'loadSymbolDb' is called internally.
findSymbol :: IOish m => Symbol -> GhcModT m String
findSymbol sym = liftIO loadSymbolDb >>= lookupSymbol sym