aboutsummaryrefslogtreecommitdiff
path: root/CabalHelper/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'CabalHelper/Main.hs')
-rw-r--r--CabalHelper/Main.hs5
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 ->