Haskell: Use new setup pattern for StackBuildStep

Change-Id: Id78047e755a3419499d804ada3edb7ec75fa61d1
Reviewed-by: Jarek Kobus <jaroslaw.kobus@qt.io>

src/plugins/haskell/haskellplugin.cpp

@@ -31,7 +31,6 @@ class HaskellPluginPrivate
 public:
     HaskellEditorFactory editorFactory;
     HaskellBuildConfigurationFactory buildConfigFactory;
-    StackBuildStepFactory stackBuildStepFactory;
     HaskellRunConfigurationFactory runConfigFactory;
     ProjectExplorer::SimpleTargetRunnerFactory runWorkerFactory{{Constants::C_HASKELL_RUNCONFIG_ID}};
 };
@@ -59,6 +58,8 @@ private:
     {
         d = new HaskellPluginPrivate;
 
+        setupHaskellStackBuildStep();
+
         ProjectExplorer::ProjectManager::registerProjectType<HaskellProject>(
             Constants::C_HASKELL_PROJECT_MIMETYPE);
         TextEditor::SnippetProvider::registerGroup(Constants::C_HASKELLSNIPPETSGROUP_ID,

src/plugins/haskell/stackbuildstep.cpp

@@ -7,6 +7,7 @@
 #include "haskellsettings.h"
 #include "haskelltr.h"
 
+#include <projectexplorer/abstractprocessstep.h>
 #include <projectexplorer/buildconfiguration.h>
 #include <projectexplorer/processparameters.h>
 #include <projectexplorer/project.h>
@@ -14,27 +15,29 @@
 
 using namespace ProjectExplorer;
 
-namespace Haskell {
-namespace Internal {
+namespace Haskell::Internal {
 
-StackBuildStep::StackBuildStep(ProjectExplorer::BuildStepList *bsl, Utils::Id id)
-    : AbstractProcessStep(bsl, id)
-{
-    setDefaultDisplayName(trDisplayName());
-}
-
-QWidget *StackBuildStep::createConfigWidget()
-{
-    return new QWidget;
-}
-
-QString StackBuildStep::trDisplayName()
+static QString trDisplayName()
 {
     return Tr::tr("Stack Build");
 }
 
-bool StackBuildStep::init()
+class StackBuildStep final : public AbstractProcessStep
 {
+public:
+    StackBuildStep(BuildStepList *bsl, Utils::Id id)
+        : AbstractProcessStep(bsl, id)
+    {
+        setDefaultDisplayName(trDisplayName());
+    }
+
+    QWidget *createConfigWidget() final
+    {
+        return new QWidget;
+    }
+
+    bool init() final
+    {
         if (AbstractProcessStep::init()) {
             const auto projectDir = QDir(project()->projectDirectory().toString());
             processParameters()->setCommandLine(
@@ -43,14 +46,23 @@ bool StackBuildStep::init()
             processParameters()->setEnvironment(buildEnvironment());
         }
         return true;
-}
+    }
+};
 
-StackBuildStepFactory::StackBuildStepFactory()
+class StackBuildStepFactory final : public BuildStepFactory
 {
+public:
+    StackBuildStepFactory()
+    {
         registerStep<StackBuildStep>(Constants::C_STACK_BUILD_STEP_ID);
-    setDisplayName(StackBuildStep::StackBuildStep::trDisplayName());
+        setDisplayName(trDisplayName());
         setSupportedStepList(ProjectExplorer::Constants::BUILDSTEPS_BUILD);
+    }
+};
+
+void setupHaskellStackBuildStep()
+{
+    static StackBuildStepFactory theStackBuildStepFactory;
 }
 
-} // namespace Internal
-} // namespace Haskell
+} // Haskell::Internal

src/plugins/haskell/stackbuildstep.h

@@ -3,31 +3,8 @@
 
 #pragma once
 
-#include <projectexplorer/abstractprocessstep.h>
+namespace Haskell::Internal {
 
-namespace Haskell {
-namespace Internal {
+void setupHaskellStackBuildStep();
 
-class StackBuildStep : public ProjectExplorer::AbstractProcessStep
-{
-    Q_OBJECT
-
-public:
-    StackBuildStep(ProjectExplorer::BuildStepList *bsl, Utils::Id id);
-
-    QWidget *createConfigWidget() override;
-
-    static QString trDisplayName();
-
-protected:
-    bool init() override;
-};
-
-class StackBuildStepFactory : public ProjectExplorer::BuildStepFactory
-{
-public:
-    StackBuildStepFactory();
-};
-
-} // namespace Internal
-} // namespace Haskell
+} // Haskell::Internal