feedc0de/qt-creator
1
0
Fork 0
forked from qt-creator/qt-creator
Code Pull Requests Activity

Haskell: Use new setup pattern for StackBuildStep

Browse Source 
Change-Id: Id78047e755a3419499d804ada3edb7ec75fa61d1
Reviewed-by: Jarek Kobus <jaroslaw.kobus@qt.io>
This commit is contained in:
hjk
2023-11-20 12:13:01 +01:00
parent 2b88b514da
commit e28110f6fd
3 changed files with 46 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
src/plugins/haskell/stackbuildstep.cpp
View File

@@ -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,43 +15,54 @@
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
{
if (AbstractProcessStep::init()) {
const auto projectDir = QDir(project()->projectDirectory().toString());
processParameters()->setCommandLine(
{settings().stackPath(),
{"build", "--work-dir", projectDir.relativeFilePath(buildDirectory().toString())}});
processParameters()->setEnvironment(buildEnvironment());
public:
StackBuildStep(BuildStepList *bsl, Utils::Id id)
: AbstractProcessStep(bsl, id)
{
setDefaultDisplayName(trDisplayName());
}
return true;
}
StackBuildStepFactory::StackBuildStepFactory()
QWidget *createConfigWidget() final
{
return new QWidget;
}
bool init() final
{
if (AbstractProcessStep::init()) {
const auto projectDir = QDir(project()->projectDirectory().toString());
processParameters()->setCommandLine(
{settings().stackPath(),
{"build", "--work-dir", projectDir.relativeFilePath(buildDirectory().toString())}});
processParameters()->setEnvironment(buildEnvironment());
}
return true;
}
};
class StackBuildStepFactory final : public BuildStepFactory
{
registerStep<StackBuildStep>(Constants::C_STACK_BUILD_STEP_ID);
setDisplayName(StackBuildStep::StackBuildStep::trDisplayName());
setSupportedStepList(ProjectExplorer::Constants::BUILDSTEPS_BUILD);
public:
StackBuildStepFactory()
{
registerStep<StackBuildStep>(Constants::C_STACK_BUILD_STEP_ID);
setDisplayName(trDisplayName());
setSupportedStepList(ProjectExplorer::Constants::BUILDSTEPS_BUILD);
}
};
void setupHaskellStackBuildStep()
{
static StackBuildStepFactory theStackBuildStepFactory;
}
} // namespace Internal
} // namespace Haskell
} // Haskell::Internal