param(
    [string] $Platform = $null
)

$ErrorActionPreference = "Stop";

function Invoke-Exe {
    param(
        [ScriptBlock] $Cmd,
        [int[]] $AllowedExitCodes = @(0)
    )

    $backupErrorActionPreference = $script:ErrorActionPreference
    $script:ErrorActionPreference = 'Continue'

    try {
        & $Cmd
        if ($AllowedExitCodes -notcontains $LastExitCode) {
            throw "External command failed with exit code ${LastExitCode}: $Cmd"
        }
    } finally {
        $script:ErrorActionPreference = $backupErrorActionPreference
    }
}

function Test-AppVeyor {
    return Test-Path env:APPVEYOR
}

function Get-StackUrl {
    param(
        [Parameter(Mandatory=$true)]
        [string] $Platform
    )

    if ($Platform -eq 'x86_64') {
        return 'https://get.haskellstack.org/stable/windows-x86_64.zip'
    } else {
        return 'https://get.haskellstack.org/stable/windows-i386.zip'
    }
}

function Install-Stack {
    param(
        [Parameter(Mandatory=$true)]
        [string] $Platform
    )

    Invoke-Exe { curl.exe --silent --show-error --output C:\stack.zip --location --insecure -- $(Get-StackUrl -Platform $Platform) }
    Invoke-Exe { 7z.exe x -oC:\sr C:\stack.zip }
    $env:STACK_ROOT = 'C:\sr'
}

function Build-Project {
    param(
        [Parameter(Mandatory=$true)]
        [string] $Platform
    )

    Invoke-Exe { C:\sr\stack.exe build --install-ghc --arch $Platform }
}

if (Test-AppVeyor) {
    $cwd = pwd
    $Platform = $env:PLATFORM
}

Install-Stack -Platform $Platform
Build-Project -Platform $Platform

if (Test-AppVeyor) {
    cd $cwd
}