Add Release Info Path In Setting

(cherry picked from commit c53475b)

Author: soiamsoNG

package.json

@@ -146,6 +146,12 @@
           "default": "haskell-language-server",
           "description": "Which language server to use."
         },
+        "haskell.languageServerReleasesPath": {
+          "scope": "resource",
+          "type": "string",
+          "default": "https://api.github.com/repos/haskell/haskell-language-server/releases",
+          "description": "a path to a json file"
+        },
         "haskell.serverExecutablePath": {
           "scope": "resource",
           "type": "string",
@@ -229,4 +235,4 @@
     "vscode-languageclient": "6.1.3",
     "yauzl": "^2.10.0"
   }
-}
+}

src/hlsBinaries.ts

@@ -3,6 +3,7 @@ import * as fs from 'fs';
 import * as https from 'https';
 import * as os from 'os';
 import * as path from 'path';
+import * as url from 'url';
 import { promisify } from 'util';
 import { env, ExtensionContext, ProgressLocation, Uri, window, workspace, WorkspaceFolder } from 'vscode';
 import { downloadFile, executableExists, httpsGetSilently } from './utils';
@@ -160,9 +161,10 @@ async function getProjectGhcVersion(context: ExtensionContext, dir: string, rele
 }
 
 async function getLatestReleaseMetadata(context: ExtensionContext): Promise<IRelease | null> {
+  const releasesUrl = url.parse(workspace.getConfiguration('haskell').languageServerReleasesPath);
   const opts: https.RequestOptions = {
-    host: 'api.github.com',
-    path: '/repos/haskell/haskell-language-server/releases',
+    host: releasesUrl.host,
+    path: releasesUrl.path,
   };
 
   const offlineCache = path.join(context.globalStoragePath, 'latestApprovedRelease.cache.json');