Merge pull request #2532 from commercialhaskell/runghc

Use a supported way to pass ghc args via runghc
commercialhaskell · Aug 24, 2016 · b79dae1 · b79dae1
2 parents 8619824 + e84c548
commit b79dae1
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/main/Main.hs b/src/main/Main.hs
@@ -770,7 +770,8 @@ execCmd ExecOpts {..} go@GlobalOpts{..} =
 
       getPkgOpts menv wc pkgs = do
           ids <- mapM (getPkgId menv wc) pkgs
-          return $ map ("-package-id " ++) ids
+          let pkgIdOpts x = ["--ghc-arg=-package-id", "--ghc-arg=" ++ x]
+          return $ concatMap pkgIdOpts ids
 
       getGhcCmd prefix menv pkgs args = do
           wc <- getWhichCompiler