Fix find being slow on legacy-interactive

2015-08-14 06:48:56 +02:00
parent 887ab3c599
commit 623cddd8ca
3 changed files with 11 additions and 9 deletions
--- a/src/Misc.hs
+++ b/src/Misc.hs
@@ -20,9 +20,9 @@ import Language.Haskell.GhcMod.Internal hiding (MonadIO,liftIO)
 type SymDbReqAction = (Either GhcModError SymbolDb, GhcModLog)
 data SymDbReq = SymDbReq (IORef (Async SymDbReqAction)) (IO SymDbReqAction)

-newSymDbReq :: Options -> IO SymDbReq
-newSymDbReq opt = do
-    let act = runGhcModT opt loadSymbolDb
+newSymDbReq :: Options -> FilePath -> IO SymDbReq
+newSymDbReq opt dir = do
+    let act = runGhcModT opt $ loadSymbolDb dir
    req <- async act
    ref <- newIORef req
    return $ SymDbReq ref act