package-db stack is global not per component

1 files changed, 1 insertions, 4 deletions

diff --git a/CabalHelper/Main.hs b/CabalHelper/Main.hs
index 35af775..077eaab 100644
--- a/CabalHelper/Main.hs
+++ b/CabalHelper/Main.hs
@@ -229,11 +229,8 @@ main = do
           pkgDbStr UserPackageDB   = "U"
           pkgDbStr (SpecificPackageDB s) = "S" ++ s
 
-      res <- map (\(c, opts) -> (c, map pkgDbStr $ ghcOptPackageDBs opts))
-         <$> componentOptions' lvd False [] (\_ _ x -> return x) id
-
       -- TODO: Setup.hs has access to the sandbox as well: ghc-mod#478
-      return $ Just $ ChResponseCompList $ (res :: [(ChComponentName, [String])]) ++ [(ChSetupHsName, [])]
+      return $ Just $ ChResponseList $ map pkgDbStr $ withPackageDB lbi
 
     "entrypoints":[] -> do
       eps <- componentsMap lbi v distdir $ \c clbi bi ->