Update ghcup URIs

HACKING.md

@@ -26,7 +26,7 @@ They're a little safer (less Monoid weirdness with view) and have better error m
 vs optics
 
 ```
-view (_Just % to (++ "abc")) Nothing
+> view (_Just % to (++ "abc")) Nothing
 
 <interactive>:2:1: error:
     • An_AffineFold cannot be used as A_Getter

app/ghcup-gen/GHCupDownloads.hs

@@ -986,38 +986,32 @@ cabal_3200_64_darwin = DownloadInfo
 
 ghcup_010_32_linux :: DownloadInfo
 ghcup_010_32_linux = DownloadInfo
-  [uri|https://github.com/hasufell/ghcup-hs/releases/download/v0.1.0/i386-linux-ghcup-0.1.0|]
+  [uri|https://downloads.haskell.org/~ghcup/i386-linux-ghcup|]
   Nothing
   "ce95fd3044ea249c2ea02e122112a787d710cc4be2dcf1e78d8c68b540a70920"
 
 
 ghcup_010_64_linux :: DownloadInfo
 ghcup_010_64_linux = DownloadInfo
-  [uri|https://github.com/hasufell/ghcup-hs/releases/download/v0.1.0/x86_64-linux-ghcup-0.1.0|]
+  [uri|https://downloads.haskell.org/~ghcup/x86_64-linux-ghcup|]
   Nothing
   "9281da4d8db628bbfbf1d3f3b748a2556f828cc60308559bc87c5d657cb06bdf"
 
 
 ghcup_010_64_freebsd :: DownloadInfo
 ghcup_010_64_freebsd = DownloadInfo
-  [uri|https://github.com/hasufell/ghcup-hs/releases/download/v0.1.0/x86_64-portbld-freebsd-ghcup-0.1.0|]
+  [uri|https://downloads.haskell.org/~ghcup/x86_64-portbld-freebsd-ghcup|]
   Nothing
   "992a375cc4d296a9ceed3712b8bb329a0ac605a614b5a9b8a5f3dba05183d2a5"
 
 
 ghcup_010_64_darwin10_13 :: DownloadInfo
 ghcup_010_64_darwin10_13 = DownloadInfo
-  [uri|https://github.com/hasufell/ghcup-hs/releases/download/v0.1.0/x86_64-apple-darwin-10.13-ghcup-0.1.0|]
+  [uri|https://downloads.haskell.org/~ghcup/x86_64-apple-darwin-ghcup|]
   Nothing
   "adeaa6943611cf68c0c8224037788eac2a84a9136c59685eaea28ed16f3953c7"
 
 
-ghcup_010_64_darwin10_14 :: DownloadInfo
-ghcup_010_64_darwin10_14 = DownloadInfo
-  [uri|https://github.com/hasufell/ghcup-hs/releases/download/v0.1.0/x86_64-apple-darwin-10.14-ghcup-0.1.0|]
-  Nothing
-  "1f151e308622cfd010549bfb7ac06659794995f6c0a0eeb3ed14eed34573e237"
-
 
 
 
@@ -1888,14 +1882,7 @@ ghcupDownloads = M.fromList
           [ ( A_64
             , M.fromList
               [ (Linux UnknownLinux, M.fromList [(Nothing, ghcup_010_64_linux)])
-              , ( Darwin
-                , M.fromList
-                  [ (Nothing           , ghcup_010_64_darwin10_13)
-                  , (Just [vers|10.13|], ghcup_010_64_darwin10_13)
-                  , (Just [vers|10.14|], ghcup_010_64_darwin10_14)
-                  , (Just [vers|10.15|], ghcup_010_64_darwin10_14)
-                  ]
-                )
+              , (Darwin, M.fromList [(Nothing, ghcup_010_64_darwin10_13)])
               , (FreeBSD, M.fromList [(Nothing, ghcup_010_64_freebsd)])
               ]
             )

bootstrap-haskell

@@ -31,10 +31,10 @@ download_ghcup() {
         "linux"|"Linux")
 			case "${_arch}" in
 				x86_64|amd64)
-					_url=https://www.haskell.org/ghcup/bin/x86_64-linux-ghcup
+					_url=https://downloads.haskell.org/~ghcup/x86_64-linux-ghcup
 					;;
 				i*86)
-					_url=https://www.haskell.org/ghcup/bin/i386-linux-ghcup
+					_url=https://downloads.haskell.org/~ghcup/i386-linux-ghcup
 					;;
 				*) die "Unknown architecture: ${_arch}"
 					;;
@@ -50,7 +50,7 @@ download_ghcup() {
 				*) die "Unknown architecture: ${_arch}"
 					;;
 			esac
-			_url=https://www.haskell.org/ghcup/bin/x86_64-portbld-freebsd-ghcup
+			_url=https://downloads.haskell.org/~ghcup/x86_64-portbld-freebsd-ghcup
             ;;
         "Darwin"|"darwin")
 			case "${_arch}" in
@@ -62,13 +62,7 @@ download_ghcup() {
 				*) die "Unknown architecture: ${_arch}"
 					;;
 			esac
-			case "$(sw_vers -productVersion || echo "none")" in
-				10.15.*) _url=https://www.haskell.org/ghcup/bin/x86_64-apple-darwin-10.14-ghcup ;;
-				10.14.*) _url=https://www.haskell.org/ghcup/bin/x86_64-apple-darwin-10.14-ghcup ;;
-				10.13.*) _url=https://www.haskell.org/ghcup/bin/x86_64-apple-darwin-10.13-ghcup ;;
-				*) _url=https://www.haskell.org/ghcup/bin/x86_64-apple-darwin-10.13-ghcup ;;
-			esac
-            ;;
+			_url=https://downloads.haskell.org/~ghcup/x86_64-apple-darwin-ghcup ;;
         *) die "Unknown platform: ${_plat}"
 			;;
     esac