Make sure cabal-helper is ready before invoking dumpsym

Language/Haskell/GhcMod/CabalHelper.hs

@@ -20,6 +20,7 @@ module Language.Haskell.GhcMod.CabalHelper
   ( getComponents
   , getGhcMergedPkgOptions
   , getPackageDbStack
+  , prepareCabalHelper
   )
 #endif
   where
@@ -126,6 +127,14 @@ getComponents = chCached Cached {
                  , a == a'
                  ]
 
+prepareCabalHelper :: (IOish m, GmEnv m, GmLog m) => m ()
+prepareCabalHelper = do
+  crdl <- cradle
+  let projdir = cradleRootDir crdl
+      distdir = projdir </> "dist"
+  readProc <- gmReadProcess
+  liftIO $ prepare readProc projdir distdir
+
 withCabal :: (IOish m, GmEnv m, GmLog m) => m a -> m a
 withCabal action = do
     crdl <- cradle

Language/Haskell/GhcMod/Internal.hs

@@ -52,6 +52,7 @@ module Language.Haskell.GhcMod.Internal (
   , GmComponent(..)
   , GmComponentType(..)
   , GmModuleGraph(..)
+  , prepareCabalHelper
   ) where
 
 import GHC.Paths (libdir)
@@ -65,6 +66,7 @@ import Language.Haskell.GhcMod.Monad
 import Language.Haskell.GhcMod.Types
 import Language.Haskell.GhcMod.Utils
 import Language.Haskell.GhcMod.World
+import Language.Haskell.GhcMod.CabalHelper
 
 -- | Obtaining the directory for ghc system libraries.
 ghcLibDir :: FilePath

src/GHCMod.hs

@@ -371,6 +371,7 @@ globalCommands _       = Nothing
 legacyInteractive :: IOish m => GhcModT m ()
 legacyInteractive = do
     opt <- options
+    prepareCabalHelper
     symdbreq <- liftIO $ newSymDbReq opt
     world <- getCurrentWorld
     legacyInteractiveLoop symdbreq world