Allow to overwrite metadata url

Author: hasufell

README.md

@@ -91,6 +91,8 @@ or set `haskell.serverExecutablePath` to a valid executable.
 
 You can also tell HLS to use your system provided ghcup by setting `haskell.useSystemGHCup` to `true` (default is `false`).
 
+If you need to set mirrors for ghcup download info, check the settings `haskell.metadataURL` and `haskell.releasesURL`.
+
 ### Supported GHC versions
 
 These are the versions of GHC that there are binaries of `haskell-language-server-1.6.1` for. Building from source may support more versions!

package.json

@@ -125,7 +125,13 @@
           "scope": "resource",
           "type": "string",
           "default": "",
-          "description": "An optional URL to override where to check for haskell-language-server releases"
+          "description": "An optional URL to override where ghcup checks for HLS-GHC compatibilty list (usually at: https://raw.githubusercontent.com/haskell/ghcup-metadata/master/hls-metadata-0.0.1.json)"
+        },
+        "haskell.metadataURL": {
+          "scope": "resource",
+          "type": "string",
+          "default": "",
+          "description": "An optional URL to override where ghcup checks for tool download info (usually at: https://raw.githubusercontent.com/haskell/ghcup-metadata/master/ghcup-0.0.7.yaml)"
         },
         "haskell.releasesDownloadStoragePath": {
           "scope": "resource",

src/hlsBinaries.ts

@@ -279,12 +279,14 @@ async function callGHCup(
   ) => void
 ): Promise<string> {
 
+  const metadataUrl = workspace.getConfiguration('haskell').metadataURL;
+
   const storagePath: string = await getStoragePath(context);
   const ghcup = (systemGHCup === true) ? `ghcup${exeExt}` : path.join(storagePath, `ghcup${exeExt}`);
   if (systemGHCup) {
-      return await callAsync('ghcup', ['--no-verbose'].concat(args), storagePath, logger, title, cancellable, undefined, callback);
+      return await callAsync('ghcup', ['--no-verbose'].concat(metadataUrl ? ['-s', metadataUrl] : []).concat(args), storagePath, logger, title, cancellable, undefined, callback);
   } else {
-      return await callAsync(ghcup, ['--no-verbose'].concat(args), storagePath, logger, title, cancellable, {
+      return await callAsync(ghcup, ['--no-verbose'].concat(metadataUrl ? ['-s', metadataUrl] : []).concat(args), storagePath, logger, title, cancellable, {
         GHCUP_INSTALL_BASE_PREFIX: storagePath,
       }, callback);
   }