1 files changed, 105 insertions, 0 deletions
diff --git a/plugins/haskell/stackbuildstep.cpp b/plugins/haskell/stackbuildstep.cpp
new file mode 100644
index 0000000..f4b1cfb
--- /dev/null
+++ b/plugins/haskell/stackbuildstep.cpp
@@ -0,0 +1,105 @@
+/****************************************************************************
+**
+** Copyright (C) 2017 The Qt Company Ltd.
+** Contact: https://www.qt.io/licensing/
+**
+** This file is part of Qt Creator.
+**
+** Commercial License Usage
+** Licensees holding valid commercial Qt licenses may use this file in
+** accordance with the commercial license agreement provided with the
+** Software or, alternatively, in accordance with the terms contained in
+** a written agreement between you and The Qt Company. For licensing terms
+** and conditions see https://www.qt.io/terms-conditions. For further
+** information use the contact form at https://www.qt.io/contact-us.
+**
+** GNU General Public License Usage
+** Alternatively, this file may be used under the terms of the GNU
+** General Public License version 3 as published by the Free Software
+** Foundation with exceptions as appearing in the file LICENSE.GPL3-EXCEPT
+** included in the packaging of this file. Please review the following
+** information to ensure the GNU General Public License requirements will
+** be met: https://www.gnu.org/licenses/gpl-3.0.html.
+**
+****************************************************************************/
+
+#include "stackbuildstep.h"
+
+#include "haskellmanager.h"
+
+#include <projectexplorer/buildconfiguration.h>
+#include <projectexplorer/project.h>
+
+using namespace ProjectExplorer;
+
+const char C_STACK_BUILD_STEP_ID[] = "Haskell.Stack.Build";
+
+namespace Haskell {
+namespace Internal {
+
+StackBuildStep::StackBuildStep(ProjectExplorer::BuildStepList *bsl)
+    : AbstractProcessStep(bsl, C_STACK_BUILD_STEP_ID)
+{
+    setDefaultDisplayName(trDisplayName());
+
+    const auto updateArguments = [this] {
+        const auto projectDir = QDir(project()->projectDirectory().toString());
+        processParameters()->setArguments(
+            "build --work-dir \""
+            + projectDir.relativeFilePath(buildConfiguration()->buildDirectory().toString()) + "\"");
+    };
+    const auto updateEnvironment = [this] {
+        processParameters()->setEnvironment(buildConfiguration()->environment());
+    };
+    processParameters()->setCommand(HaskellManager::stackExecutable().toString());
+    updateArguments();
+    processParameters()->setWorkingDirectory(project()->projectDirectory().toString());
+    updateEnvironment();
+    connect(HaskellManager::instance(),
+            &HaskellManager::stackExecutableChanged,
+            this,
+            [this](const Utils::FileName &stackExe) {
+                processParameters()->setCommand(stackExe.toString());
+            });
+    connect(buildConfiguration(), &BuildConfiguration::buildDirectoryChanged, this, updateArguments);
+    connect(buildConfiguration(), &BuildConfiguration::environmentChanged, this, updateEnvironment);
+}
+
+BuildStepConfigWidget *StackBuildStep::createConfigWidget()
+{
+    return new SimpleBuildStepConfigWidget(this);
+}
+
+QString StackBuildStep::trDisplayName()
+{
+    return tr("Stack Build");
+}
+
+QList<BuildStepInfo> StackBuildStepFactory::availableSteps(BuildStepList *parent) const
+{
+    Q_UNUSED(parent)
+    return {BuildStepInfo(C_STACK_BUILD_STEP_ID, StackBuildStep::trDisplayName())};
+}
+
+BuildStep *StackBuildStepFactory::create(BuildStepList *parent, Core::Id id)
+{
+    Q_UNUSED(id)
+    return new StackBuildStep(parent);
+}
+
+BuildStep *StackBuildStepFactory::restore(BuildStepList *parent, const QVariantMap &map)
+{
+    auto step = new StackBuildStep(parent);
+    step->fromMap(map);
+    return step;
+}
+
+BuildStep *StackBuildStepFactory::clone(BuildStepList *parent, BuildStep *product)
+{
+    auto step = new StackBuildStep(parent);
+    step->fromMap(product->toMap());
+    return step;
+}
+
+} // namespace Internal
+} // namespace Haskell