From e84c54889554d10796e2fdf683af7203e05fe8d4 Mon Sep 17 00:00:00 2001
From: Harendra Kumar <harendra.kumar@gmail.com>
Date: Wed, 24 Aug 2016 17:34:48 +0530
Subject: [PATCH] Use a supported way to pass ghc args via runghc

---
 src/main/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/main/Main.hs b/src/main/Main.hs
index 88492206a9..fab9c1f8c6 100644
--- 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