Use a supported way to pass ghc args via runghc

commercialhaskell · Aug 24, 2016 · e84c548 · e84c548
1 parent 8619824
commit e84c548
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