Merge pull request #313 from soiamsoNG/MirrorSupport

Mirror support

Author: lukel97

package.json

@@ -146,6 +146,12 @@
           "default": "haskell-language-server",
           "description": "Which language server to use."
         },
+        "haskell.languageServerReleasesPath": {
+          "scope": "resource",
+          "type": "string",
+          "default": "",
+          "description": "An optional path to override where to check for haskell-language-server releases"
+        },
         "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,10 +161,18 @@ async function getProjectGhcVersion(context: ExtensionContext, dir: string, rele
 }
 
 async function getLatestReleaseMetadata(context: ExtensionContext): Promise<IRelease | null> {
-  const opts: https.RequestOptions = {
-    host: 'api.github.com',
-    path: '/repos/haskell/haskell-language-server/releases',
-  };
+  const releasesUrl = workspace.getConfiguration('haskell').languageServerReleasesPath
+    ? url.parse(workspace.getConfiguration('haskell').languageServerReleasesPath)
+    : undefined;
+  const opts: https.RequestOptions = releasesUrl
+    ? {
+        host: releasesUrl.host,
+        path: releasesUrl.path,
+      }
+    : {
+        host: 'api.github.com',
+        path: '/repos/haskell/haskell-language-server/releases',
+      };
 
   const offlineCache = path.join(context.globalStoragePath, 'latestApprovedRelease.cache.json');
 

src/utils.ts

@@ -41,11 +41,25 @@ export async function httpsGetSilently(options: https.RequestOptions): Promise<s
     let data: string = '';
     https
       .get(opts, (res) => {
-        res.on('data', (d) => (data += d));
-        res.on('error', reject);
-        res.on('close', () => {
-          resolve(data);
-        });
+        if (res.statusCode === 301 || res.statusCode === 302) {
+          if (!res.headers.location) {
+            console.error('301/302 without a location header');
+            return;
+          }
+          https.get(res.headers.location, (resAfterRedirect) => {
+            resAfterRedirect.on('data', (d) => (data += d));
+            resAfterRedirect.on('error', reject);
+            resAfterRedirect.on('close', () => {
+              resolve(data);
+            });
+          });
+        } else {
+          res.on('data', (d) => (data += d));
+          res.on('error', reject);
+          res.on('close', () => {
+            resolve(data);
+          });
+        }
       })
       .on('error', reject);
   });