HaskellApplicationCommandLineState.java

package com.haskforce.run;

import com.haskforce.settings.HaskellBuildSettings;
import com.intellij.execution.ExecutionException;
import com.intellij.execution.configurations.CommandLineState;
import com.intellij.execution.configurations.GeneralCommandLine;
import com.intellij.execution.configurations.ParametersList;
import com.intellij.execution.process.OSProcessHandler;
import com.intellij.execution.runners.ExecutionEnvironment;
import org.jetbrains.annotations.NotNull;

public class HaskellApplicationCommandLineState extends CommandLineState {

    private final HaskellApplicationRunConfiguration myConfig;

    protected HaskellApplicationCommandLineState(ExecutionEnvironment environment, HaskellApplicationRunConfiguration runConfiguration) {
        super(environment);
        myConfig = runConfiguration;
    }

    @NotNull
    @Override
    protected OSProcessHandler startProcess() throws ExecutionException {
        ExecutionEnvironment env = getEnvironment();
        GeneralCommandLine commandLine = new GeneralCommandLine();
        commandLine.setWorkDirectory(env.getProject().getBasePath());
        // TODO: This should probably be a bit more generic than relying on `cabal run`.
        final HaskellBuildSettings buildSettings = HaskellBuildSettings.getInstance(myConfig.getProject());
        commandLine.setExePath(buildSettings.getCabalPath());
        ParametersList parametersList = commandLine.getParametersList();
        parametersList.add("run");
        parametersList.add("--with-ghc=" + buildSettings.getGhcPath());
        parametersList.addParametersString(myConfig.programArguments);
        return new OSProcessHandler(commandLine);
    }
}