Install Stack, GHC and Cabal to Windows Images

images/win/Windows2016-Azure.json

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

images/win/Windows2019-Azure.json

@@ -512,6 +512,18 @@
                 "{{ template_dir }}/scripts/Installers/Install-TypeScript.ps1"
             ]
         },
+        {
+            "type": "powershell",
+            "scripts":[
+                "{{ template_dir }}/scripts/Installers/Install-Haskell.ps1"
+            ]
+        },
+        {
+            "type": "powershell",
+            "scripts":[
+                "{{ template_dir }}/scripts/Installers/Install-Stack.ps1"
+            ]
+        },
         {
             "type": "powershell",
             "scripts":[
@@ -808,6 +820,18 @@
                 "{{ template_dir }}/scripts/Installers/Validate-TypeScript.ps1"
             ]
         },
+        {
+            "type": "powershell",
+            "scripts":[
+                "{{ template_dir }}/scripts/Installers/Validate-Haskell.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-Haskell.ps1

@@ -0,0 +1,29 @@
+################################################################################
+##  File:  Install-Haskell.ps1
+##  Desc:  Install Haskell for Windows
+################################################################################
+
+# Get last 3 latest versions of GHC
+$ChocoVersionsOutput = & choco search ghc --allversions --limit-output
+$VersionsList = $ChocoVersionsOutput | Where-Object { $_.StartsWith("ghc|") } | ForEach-Object { $_.TrimStart("ghc|") } `
+| ForEach-Object { [Version]::Parse($_) } | Sort-Object -Descending
+
+$MajorMinorVersionsToInstall = $VersionsList | ForEach-Object { [System.Version]::Parse($_.ToString(2)) } `
+| Get-Unique | Sort-Object -Descending | Select-Object -First 3
+
+$LatestGhcVersions = $MajorMinorVersionsToInstall | ForEach-Object {
+    $version = $_
+    return $VersionsList | Where-Object {
+        return ($_.Major -eq $version.Major) -and ($_.Minor -eq $version.Minor)
+    } | Select-Object -First 1
+}
+
+# The latest version will be installed as a default
+ForEach ($version in $LatestGhcVersions)
+{
+    Write-Host "Installing ghc $version..."
+    Choco-Install -PackageName ghc -ArgumentList "--version", $version, "-m"
+}
+
+Write-Host "Installing cabal..."
+Choco-Install -PackageName cabal

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

@@ -0,0 +1,20 @@
+################################################################################
+##  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"
+$DownloadFilePattern = "windows-x86_64.zip"
+$DownloadUrl = $StackReleasesJson.assets | Where-Object { $_.name.EndsWith($DownloadFilePattern) } | 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-Haskell.ps1

@@ -0,0 +1,52 @@
+################################################################################
+##  File:  Validate-Haskell.ps1
+##  Desc:  Validate Haskell for Windows
+################################################################################
+
+# GHC validation
+if ((Get-Command -Name 'ghc'))
+{
+    Write-Host "ghc is on the path"
+}
+else
+{
+    Write-Host "ghc is not on path."
+    exit 1
+}
+
+$SoftwareName = "ghc"
+[String] $DefaultGhcVersion = & ghc --version
+$ChocoPackagesPath = Join-Path $env:ChocolateyInstall "lib"
+$GhcVersionList = Get-ChildItem -Path $ChocoPackagesPath -Filter "ghc.*" | ForEach-Object { $_.Name.TrimStart("ghc.") }
+
+$GhcVersionsDescription = $GhcVersionList | ForEach-Object {
+    $DefaultPostfix = if ($DefaultGhcVersion -match $_) { " (default)" } else { "" }
+    "ghc $($_) $DefaultPostfix `n"
+}
+
+$Description = @"
+_Version:_
+$GhcVersionsDescription<br/>
+"@
+
+Add-SoftwareDetailsToMarkdown -SoftwareName $SoftwareName -DescriptionMarkdown $Description
+
+
+# Cabal validation
+if ((Get-Command -Name 'cabal'))
+{
+    Write-Host "cabal is on the path"
+}
+else
+{
+    Write-Host "cabal is not on path."
+    exit 1
+}
+
+$SoftwareName = "cabal"
+
+$Description = @"
+_Version:_ $(cabal --version)<br/>
+"@
+
+Add-SoftwareDetailsToMarkdown -SoftwareName $SoftwareName -DescriptionMarkdown $Description

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