From 0f5127e695c81bff09c0ddeba503a63d0b4c58d6 Mon Sep 17 00:00:00 2001 From: Alan Zimmerman Date: Sat, 6 Jan 2018 14:47:07 +0200 Subject: When a component uses an internal backpack module, use cabal opts Which includes inserting the inplace directory for package includes --- tests/GhcSession.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'tests/GhcSession.hs') diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs index 12b9b6f..939fd7a 100644 --- a/tests/GhcSession.hs +++ b/tests/GhcSession.hs @@ -69,6 +69,7 @@ setup topdir act (srcdir, min_cabal_ver) = do putStrLn $ "Skipping test '" ++ srcdir ++ "' because " ++ reason ++ "." return [] Nothing -> do + putStrLn $ "Running test '" ++ srcdir ++ "' ------------------------------" withSystemTempDirectory "cabal-helper.ghc-session.test" $ \dir -> do setCurrentDirectory $ topdir srcdir run "cabal" [ "sdist", "--output-dir", dir ] @@ -88,7 +89,6 @@ run x xs = do test :: FilePath -> IO [Bool] test dir = do let qe = mkQueryEnv dir (dir "dist") - let packageDir = dir "dist" "package.conf.inplace" cs <- runQuery qe $ components $ (,,,) <$> entrypoints <.> ghcOptions <.> needsBuildOutput forM cs $ \(ep, opts, nb, cn) -> do @@ -97,11 +97,7 @@ test dir = do when (nb == ProduceBuildOutput) $ do run "cabal" [ "build" ] - exists <- doesDirectoryExist packageDir - let opts' = if exists - then ("-package-db " ++ packageDir) : "-Werror" : opts - else "-Werror" : opts - -- let opts' = "-Werror" : opts + let opts' = "-Werror" : opts let sopts = intercalate " " $ map formatArg $ "\nghc" : opts' putStrLn $ "\n" ++ show cn ++ ": " ++ sopts -- cgit v1.2.3