Install Stack, GHC and Cabal to Windows Images

images/win/Windows2016-Azure.json

@@ -533,6 +533,12 @@
                 "{{ template_dir }}/scripts/Installers/Install-TypeScript.ps1"
             ]
         },
+        {
+            "type": "powershell",
+            "scripts":[
+                "{{ template_dir }}/scripts/Installers/Install-Stack.ps1"
+            ]
+        },
         {
             "type": "powershell",
             "scripts":[
@@ -823,6 +829,12 @@
                 "{{ template_dir }}/scripts/Installers/Validate-TypeScript.ps1"
             ]
         },
+        {
+            "type": "powershell",
+            "scripts":[
+                "{{ template_dir }}/scripts/Installers/Validate-Stack.ps1"
+            ]
+        },
         {
             "type": "powershell",
             "scripts":[

images/win/Windows2019-Azure.json

@@ -512,6 +512,12 @@
                 "{{ template_dir }}/scripts/Installers/Install-TypeScript.ps1"
             ]
         },
+        {
+            "type": "powershell",
+            "scripts":[
+                "{{ template_dir }}/scripts/Installers/Install-Stack.ps1"
+            ]
+        },
         {
             "type": "powershell",
             "scripts":[
@@ -808,6 +814,12 @@
                 "{{ template_dir }}/scripts/Installers/Validate-TypeScript.ps1"
             ]
         },
+        {
+            "type": "powershell",
+            "scripts":[
+                "{{ template_dir }}/scripts/Installers/Validate-Stack.ps1"
+            ]
+        },
         {
             "type": "powershell",
             "scripts":[

images/win/scripts/ImageHelpers/InstallHelpers.ps1

@@ -221,12 +221,15 @@ function Start-DownloadWithRetry
     (
         [Parameter(Mandatory)]
         [string] $Url,
-        [Parameter(Mandatory)]
         [string] $Name,
         [string] $DownloadPath = "${env:Temp}",
         [int] $Retries = 20
     )
 
+    if ([String]::IsNullOrEmpty($Name)) {
+        $Name = [IO.Path]::GetFileName($Url)
+    }
+
     $filePath = Join-Path -Path $DownloadPath -ChildPath $Name
 
     #Default retry logic for the package.

images/win/scripts/Installers/Install-Stack.ps1

@@ -0,0 +1,19 @@
+################################################################################
+##  File:  Install-Stack.ps1
+##  Desc:  Install Stack for Windows
+################################################################################
+
+Write-Host "Get the latest Stack version..."
+$StackReleasesJson = Invoke-RestMethod "https://api.github.com/repos/commercialhaskell/stack/releases/latest"
+$DownloadUrl = $StackReleasesJson.assets | Where-Object { $_.name.EndsWith("windows-x86_64.zip") } | Select-Object -ExpandProperty "browser_download_url" -First 1
+
+Write-Host "Download stack archive"
+$DestinationPath = Join-Path $Env:AGENT_TOOLSDIRECTORY "stack\x64"
+$StackArchivePath = Start-DownloadWithRetry -Uri $DownloadUrl
+
+Write-Host "Expand stack archive"
+Extract-7Zip -Path $StackArchivePath -DestinationPath $DestinationPath
+
+New-Item -Name "x64.complete" -Path $DestinationPath
+
+Add-MachinePathItem -PathItem $DestinationPath

images/win/scripts/Installers/Validate-Stack.ps1

@@ -0,0 +1,27 @@
+################################################################################
+##  File:  Validate-Stack.ps1
+##  Desc:  Validate Stack for Windows
+################################################################################
+
+if((Get-Command -Name 'stack'))
+{
+    Write-Host "stack is on the path"
+}
+else
+{
+    Write-Host "stack is not on path."
+    exit 1
+}
+
+$StackVersion = $(stack --version --quiet)
+
+# Adding description of the software to Markdown
+$SoftwareName = "Stack"
+
+$Description = @"
+_Version:_ $StackVersion<br/>
+_Environment:_
+* PATH: contains location of stack.exe
+"@
+
+Add-SoftwareDetailsToMarkdown -SoftwareName $SoftwareName -DescriptionMarkdown $Description