Fix argument order

1 files changed, 3 insertions, 3 deletions

diff --git a/Distribution/Helper.hs b/Distribution/Helper.hs
index 648842a..38616a7 100644
--- a/Distribution/Helper.hs
+++ b/Distribution/Helper.hs
@@ -247,14 +247,14 @@ getSomeConfigState = ask >>= \(QueryEnv readProc progs projdir distdir) -> do
              , "ghc-merged-pkg-options"
              , "ghc-lang-options"
              , "licenses"
-             ] ++ progArgs
+             ]
 
   res <- liftIO $ do
     exe  <- findLibexecExe "cabal-helper-wrapper"
-    out <- readProc exe (projdir:distdir:args) ""
+    out <- readProc exe (progArgs ++ projdir:distdir:args) ""
     evaluate (read out) `E.catch` \(SomeException _) ->
       error $ concat ["getSomeConfigState", ": ", exe, " "
-                     , intercalate " " (map show $ distdir:args)
+                     , intercalate " " (map show $ progArgs ++ projdir:distdir:args)
                      , " (read failed)"]
 
   let [ Just (ChResponsePkgDbs pkgDbs),