From 5ce45a64862344b46abf03290153b21bf427a2fa Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 17 Sep 2015 21:47:43 +0200
Subject: [PATCH] fix, compiling dub proj, was always executed afterward

---
 src/ce_dubproject.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index 4bfdcb90..a4a49da3 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -191,10 +191,11 @@ begin
   str := TStringList.Create;
   try
     str.Add('dub' + exeExt);
+    str.Add('build');
     if fBuiltTypeIx <> 0 then
-      str.Add('build=' + fBuildTypes.Strings[fBuiltTypeIx]);
+      str.Add('--build=' + fBuildTypes.Strings[fBuiltTypeIx]);
     if fConfigIx <> 0 then
-      str.Add('config=' + fConfigs.Strings[fConfigIx]);
+      str.Add('--config=' + fConfigs.Strings[fConfigIx]);
     result := str.Text;
   finally
     str.Free;
@@ -299,6 +300,7 @@ begin
     dubproc.Options := dubproc.Options + [poStderrToOutPut, poUsePipes];
     dubproc.CurrentDirectory := extractFilePath(fFilename);
     dubproc.ShowWindow := swoHIDE;
+    dubproc.Parameters.Add('build');
     if fBuiltTypeIx <> 0 then
       dubproc.Parameters.Add('--build=' + fBuildTypes.Strings[fBuiltTypeIx]);
     if fConfigIx <> 0 then