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/GHCMod.hs
+++ b/src/GHCMod.hs
@@ -373,7 +373,8 @@ legacyInteractive :: IOish m => GhcModT m ()
 legacyInteractive = do
    opt <- options
    prepareCabalHelper
-    symdbreq <- liftIO $ newSymDbReq opt
+    tmpdir <- cradleTempDir <$> cradle
+    symdbreq <- liftIO $ newSymDbReq opt tmpdir
    world <- getCurrentWorld
    legacyInteractiveLoop symdbreq world