Use package dbs defined by current cradle when dealing with SymbolDBs

This commit is contained in:
Sergey Vinokurov
2015-06-01 15:59:38 +03:00
parent fbe0800856
commit 57e2c112dc
2 changed files with 36 additions and 33 deletions

View File

@@ -75,7 +75,7 @@ getDb (SymDbReq ref _) = do
checkDb :: IOish m => SymDbReq -> SymbolDb -> GhcModT m SymbolDb
checkDb (SymDbReq ref act) db = do
outdated <- liftIO $ isOutdated db
outdated <- isOutdated db
if outdated then do
-- async and wait here is unnecessary because this is essentially
-- synchronous. But Async can be used a cache.