Fix

Fix CI for 32bit build
Further CI fixes
2020-07-08 00:19:33 +02:00 · 2020-07-08 00:08:18 +02:00 · 2020-07-07 23:52:16 +02:00 · 2020-07-07 22:04:43 +02:00 · 2020-07-07 21:43:12 +02:00 · 2020-07-06 23:32:50 +02:00
63 changed files with 1868 additions and 960 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -5,10 +5,3 @@ dist-newstyle/
 cabal.project.local
 .stack-work/
 bin/
-/*.prof
-/*.ps
-/*.hp
-tags
-TAGS
-/tmp/
-.entangled
--- a/.gitlab-ci.yml
+++ b/.gitlab-ci.yml
@@ -97,13 +97,13 @@ variables:
 test:linux:recommended:
  extends: .test_ghcup_version:linux
  variables:
-    GHC_VERSION: "8.8.4"
+    GHC_VERSION: "8.6.5"
    CABAL_VERSION: "3.2.0.0"

 test:linux:latest:
  extends: .test_ghcup_version:linux
  variables:
-    GHC_VERSION: "8.10.1"
+    GHC_VERSION: "8.8.3"
    CABAL_VERSION: "3.2.0.0"
  allow_failure: true

@@ -113,13 +113,13 @@ test:linux:latest:
 test:mac:recommended:
  extends: .test_ghcup_version:darwin
  variables:
-    GHC_VERSION: "8.8.4"
+    GHC_VERSION: "8.6.5"
    CABAL_VERSION: "3.2.0.0"

 test:mac:latest:
  extends: .test_ghcup_version:darwin
  variables:
-    GHC_VERSION: "8.10.1"
+    GHC_VERSION: "8.8.3"
    CABAL_VERSION: "3.2.0.0"
  allow_failure: true

@@ -129,13 +129,13 @@ test:mac:latest:
 test:freebsd:recommended:
  extends: .test_ghcup_version:freebsd
  variables:
-    GHC_VERSION: "8.8.4"
+    GHC_VERSION: "8.6.5"
    CABAL_VERSION: "3.2.0.0"

 test:freebsd:latest:
  extends: .test_ghcup_version:freebsd
  variables:
-    GHC_VERSION: "8.10.1"
+    GHC_VERSION: "8.8.3"
    CABAL_VERSION: "3.2.0.0"
  allow_failure: true

@@ -150,7 +150,7 @@ release:linux:64bit:
    - ./.gitlab/before_script/linux/alpine/install_deps.sh
  variables:
    ARTIFACT: "x86_64-linux-ghcup"
-    GHC_VERSION: "8.8.4"
+    GHC_VERSION: "8.8.3"
    CABAL_VERSION: "3.2.0.0"


@@ -162,7 +162,7 @@ release:linux:32bit:
    - ./.gitlab/before_script/linux/alpine/install_deps.sh
  variables:
    ARTIFACT: "i386-linux-ghcup"
-    GHC_VERSION: "8.8.4"
+    GHC_VERSION: "8.8.3"
    CABAL_VERSION: "3.2.0.0"


@@ -193,6 +193,5 @@ release:freebsd:
    - ./.gitlab/before_script/freebsd/install_deps.sh
  variables:
    ARTIFACT: "x86_64-portbld-freebsd-ghcup"
-    GHC_VERSION: "8.8.3"
-    CABAL_VERSION: "3.2.0.0"
+    GHC_VERSION: "8.6.5"

--- a/.gitlab/before_script/freebsd/install_deps.sh
+++ b/.gitlab/before_script/freebsd/install_deps.sh
@@ -11,8 +11,15 @@ mkdir -p "${TMPDIR}"
 curl -sSfL https://downloads.haskell.org/~ghcup/x86_64-portbld-freebsd-ghcup > ./ghcup-bin
 chmod +x ghcup-bin

-./ghcup-bin install ${GHC_VERSION}
-./ghcup-bin install-cabal ${CABAL_VERSION}
-./ghcup-bin set ${GHC_VERSION}
+mkdir -p "${GHCUP_INSTALL_BASE_PREFIX}"/.ghcup/bin
+# ./ghcup-bin install ${GHC_VERSION}
+# ./ghcup-bin install-cabal ${CABAL_VERSION}
+# ./ghcup-bin set ${GHC_VERSION}
+
+# install cabal-3.2.0.0
+curl -sSfL -o cabal-install-3.2.0.0-x86_64-portbld-freebsd.tar.xz 'https://hasufell.de/d/d3e215db133e4fcaa61e/files/?p=/cabal-install-3.2.0.0-x86_64-portbld-freebsd.tar.xz&dl=1'
+tar xf cabal-install-3.2.0.0-x86_64-portbld-freebsd.tar.xz
+cp cabal "${GHCUP_INSTALL_BASE_PREFIX}/.ghcup/bin/cabal"
+chmod +x "${GHCUP_INSTALL_BASE_PREFIX}/.ghcup/bin/cabal"

 exit 0
--- a/.gitlab/before_script/linux/alpine/install_deps.sh
+++ b/.gitlab/before_script/linux/alpine/install_deps.sh
@@ -18,14 +18,31 @@ apk add --no-cache \
 	tar \
 	perl

+ln -sf libncurses.so /usr/lib/libtinfo.so
+ln -sf libncursesw.so.6 /usr/lib/libtinfow.so.6
+ln -sf libtinfow.so.6 /usr/lib/libtinfow.so
+
 if [ "${BIT}" = "32" ] ; then
-	curl -sSfL https://downloads.haskell.org/ghcup/i386-linux-ghcup > ./ghcup-bin
+	curl -sSfL https://downloads.haskell.org/~ghcup/0.1.5/i386-linux-ghcup-0.1.5 > ./ghcup-bin
 else
-	curl -sSfL https://downloads.haskell.org/ghcup/x86_64-linux-ghcup > ./ghcup-bin
+	curl -sSfL https://downloads.haskell.org/~ghcup/0.1.5/x86_64-linux-ghcup-0.1.5 > ./ghcup-bin
 fi
 chmod +x ghcup-bin
+./ghcup-bin upgrade
 ./ghcup-bin install ${GHC_VERSION}
-./ghcup-bin install-cabal ${CABAL_VERSION}
+# ./ghcup-bin install-cabal ${CABAL_VERSION}
+# install cabal-3.2.0.0
+if [ "${BIT}" = "32" ] ; then
+	curl -sSfL -o cabal-install-3.2.0.0-i386-alpine-linux-musl.tar.xz 'https://hasufell.de/d/d3e215db133e4fcaa61e/files/?p=/cabal-install-3.2.0.0-i386-alpine-linux-musl.tar.xz&dl=1'
+	tar xf cabal-install-3.2.0.0-i386-alpine-linux-musl.tar.xz
+	cp cabal-install-3.2.0.0-i386-alpine-linux-musl "${GHCUP_INSTALL_BASE_PREFIX}/.ghcup/bin/cabal"
+else
+	curl -sSfL -o cabal-install-3.2.0.0-x86_64-alpine-linux-musl.tar.xz 'https://hasufell.de/d/d3e215db133e4fcaa61e/files/?p=/cabal-install-3.2.0.0-x86_64-alpine-linux-musl.tar.xz&dl=1'
+	tar xf cabal-install-3.2.0.0-x86_64-alpine-linux-musl.tar.xz
+	cp cabal-install-3.2.0.0-x86_64-alpine-linux-musl "${GHCUP_INSTALL_BASE_PREFIX}/.ghcup/bin/cabal"
+fi
+chmod +x "${GHCUP_INSTALL_BASE_PREFIX}/.ghcup/bin/cabal"
+

 # utils
 apk add --no-cache \
@@ -45,3 +62,5 @@ apk add --no-cache \
 	xz-dev \
 	ncurses-static

+ln -sf libncursesw.a /usr/lib/libtinfow.a
+
--- a/.gitlab/script/ghcup_release.sh
+++ b/.gitlab/script/ghcup_release.sh
@@ -17,12 +17,13 @@ ecabal update

 if [ "${OS}" = "LINUX" ] ; then
 	if [ "${BIT}" = "32" ] ; then
-		ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static' -ftui -ftar
+		rm -r 3rdparty/libarchive
+		ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static'
 	else
 		ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static' -ftui
 	fi
 elif [ "${OS}" = "FREEBSD" ] ; then
-	ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections' --constraint="zlib static" -ftui
+	ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections' --constraint="zlib static"
 else
 	ecabal build -w ghc-${GHC_VERSION} --constraint="zlib static" --constraint="lzma static" -ftui
 fi
--- a/.travis/build.sh
+++ b/.travis/build.sh
@@ -18,7 +18,7 @@ ghcup set 8.8.3
 ## install ghcup

 cabal update
-cabal build --constraint="zlib static" --constraint="lzma static" -ftui
+cabal build --constraint="zlib static" --constraint="lzma static"
 cp "$(cabal new-exec --verbose=0 --offline sh -- -c 'command -v ghcup')" .
-strip ./ghcup
+strip -s ghcup
 cp ghcup "./${ARTIFACT}"
--- a/3rdparty/libarchive/c/archive_write_disk_posix.c
+++ b/3rdparty/libarchive/c/archive_write_disk_posix.c
@@ -546,7 +546,6 @@ _archive_write_disk_header(struct archive *_a, struct archive_entry *entry)
 {
 	struct archive_write_disk *a = (struct archive_write_disk *)_a;
 	struct fixup_entry *fe;
-	const char *linkname;
 	int ret, r;

 	archive_check_magic(&a->archive, ARCHIVE_WRITE_DISK_MAGIC,
@@ -591,17 +590,6 @@ _archive_write_disk_header(struct archive *_a, struct archive_entry *entry)
 	if (ret != ARCHIVE_OK)
 		return (ret);

-	/*
-	 * Check if we have a hardlink that points to itself.
-	 */
-	linkname = archive_entry_hardlink(a->entry);
-	if (linkname != NULL && strcmp(a->name, linkname) == 0) {
-		archive_set_error(&a->archive, ARCHIVE_ERRNO_MISC,
-		    "Skipping hardlink pointing to itself: %s",
-		    a->name);
-		return (ARCHIVE_WARN);
-	}
-
 	/*
 	 * Query the umask so we get predictable mode settings.
 	 * This gets done on every call to _write_header in case the
--- a/3rdparty/libarchive/c/autoconf-linux/config.h
+++ b/3rdparty/libarchive/c/autoconf-linux/config.h
@@ -606,7 +606,7 @@
 /* #undef HAVE_LCHFLAGS */

 /* Define to 1 if you have the `lchmod' function. */
-/* #undef HAVE_LCHMOD 1 */
+#define HAVE_LCHMOD 1

 /* Define to 1 if you have the `lchown' function. */
 #define HAVE_LCHOWN 1
@@ -1028,10 +1028,10 @@
 /* #undef HAVE_STRUCT_STAT_ST_UMTIME */

 /* Define to 1 if `tm_gmtoff' is a member of `struct tm'. */
-/* #undef HAVE_STRUCT_TM_TM_GMTOFF 1 */
+#define HAVE_STRUCT_TM_TM_GMTOFF 1

 /* Define to 1 if `__tm_gmtoff' is a member of `struct tm'. */
-/* #undef HAVE_STRUCT_TM___TM_GMTOFF 1 */
+#define HAVE_STRUCT_TM___TM_GMTOFF 1

 /* Define to 1 if the system has the type `struct vfsconf'. */
 /* #undef HAVE_STRUCT_VFSCONF */
--- a/3rdparty/os-release/.gitattributes
+++ b/3rdparty/os-release/.gitattributes
@@ -0,0 +1 @@
+*.golden	-text
--- a/3rdparty/os-release/.gitignore
+++ b/3rdparty/os-release/.gitignore
@@ -0,0 +1 @@
+dist-newstyle/
--- a/3rdparty/os-release/ChangeLog.rst
+++ b/3rdparty/os-release/ChangeLog.rst
@@ -0,0 +1,16 @@
+1.0.0
+=====
+
+- Redo of the entire API
+
+0.2.2
+=====
+
+- Fixes builds failing just due to -Werror
+
+- README.rst and ChangeLog.rst are distributed with cabal package
+
+0.2.1
+=====
+
+- Initial release
--- a/3rdparty/os-release/LICENSE
+++ b/3rdparty/os-release/LICENSE
@@ -0,0 +1,26 @@
+Copyright (c) 2014, Jan Matejka <yac@blesmrt.net>
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice,
+   this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the distribution.
+3. Neither the name of the cbugzilla nor the names of its
+   contributors may be used to endorse or promote products derived from
+   this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
--- a/3rdparty/os-release/README.rst
+++ b/3rdparty/os-release/README.rst
@@ -0,0 +1,17 @@
+##########
+os-release
+##########
+
+http://www.freedesktop.org/software/systemd/man/os-release.html
+
+Usage
+#####
+
+.. code-block:: haskell
+
+  import System.OsRelease
+  main = readOs >>= print
+
+.. code-block::
+
+  Right (fromList [(OsReleaseKey "ANSI_COLOR",OsReleaseValue "1;32"),(OsReleaseKey "BUG_REPORT_URL",OsReleaseValue "https://bugs.gentoo.org/"),(OsReleaseKey "HOME_URL",OsReleaseValue "http://www.gentoo.org/"),(OsReleaseKey "ID",OsReleaseValue "gentoo"),(OsReleaseKey "NAME",OsReleaseValue "Gentoo"),(OsReleaseKey "PRETTY_NAME",OsReleaseValue "Gentoo/Linux"),(OsReleaseKey "SUPPORT_URL",OsReleaseValue "http://www.gentoo.org/main/en/support.xml")])
--- a/3rdparty/os-release/Setup.hs
+++ b/3rdparty/os-release/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
--- a/3rdparty/os-release/library/System/OsRelease.hs
+++ b/3rdparty/os-release/library/System/OsRelease.hs
@@ -0,0 +1,192 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE TypeOperators #-}
+
+-- | A module to retrieve os-release information according to the
+-- freedesktop standard:
+-- https://www.freedesktop.org/software/systemd/man/os-release.html
+--
+-- Usage example:
+--
+-- @
+-- do
+--   Just (OsRelease {..}) <- fmap osRelease <$\> parseOsRelease
+--   putStrLn name
+-- @
+module System.OsRelease
+  (
+  -- * data types
+    OsReleaseResult(..)
+  , OsRelease(..)
+
+  -- * read/parse os-release
+  , parseOsRelease
+  , readOsRelease
+
+  -- * defaults
+  , defaultOsRelease
+  , defaultAssignments
+
+  -- * low-level
+  , parseAssignments
+  , parseAssignment
+  , getAllAssignments
+  , getOsRelease
+  , parseOsRelease'
+  )
+where
+
+import           System.OsRelease.Megaparsec
+
+import           Control.Applicative
+import           Control.Monad
+import           Control.Exception.Safe
+import           Data.Aeson
+import           Data.Aeson.TH
+import           Data.Char
+import           Data.Either
+import           Data.List
+import           Data.Maybe
+import           Data.Void
+import           GHC.Generics
+import           Prelude                 hiding ( id
+                                                )
+
+import qualified Data.HashMap.Strict           as HM
+import qualified Data.Text                     as T
+import qualified Text.Megaparsec               as MP
+
+
+data OsReleaseResult = OsReleaseResult {
+    osRelease :: !OsRelease
+  , unknown_fields :: [(String, String)]
+  , parse_errors :: [MP.ParseError String Void]
+} deriving (Show)
+
+
+-- | All the explicitly documented fields of @os-release@.
+data OsRelease = OsRelease {
+    name :: !(String)
+  , version :: !(Maybe String)
+  , id :: !(String)
+  , id_like :: !(Maybe String)
+  , version_codename :: !(Maybe String)
+  , version_id :: !(Maybe String)
+  , pretty_name :: !(String)
+  , ansi_color :: !(Maybe String)
+  , cpe_name :: !(Maybe String)
+  , home_url :: !(Maybe String)
+  , documentation_url :: !(Maybe String)
+  , support_url :: !(Maybe String)
+  , bug_report_url :: !(Maybe String)
+  , privacy_policy_url :: !(Maybe String)
+  , build_id :: !(Maybe String)
+  , variant :: !(Maybe String)
+  , variant_id :: !(Maybe String)
+  , logo :: !(Maybe String)
+} deriving (Generic, Show)
+
+
+class GetRecords a where
+  getRecords :: a -> [String]
+
+instance {-# OVERLAPPABLE #-} GetRecords (f p) => GetRecords (M1 i c f p) where
+  getRecords (M1 x) = getRecords x
+
+instance {-# OVERLAPPING #-} Selector c => GetRecords (M1 S c f p) where
+  getRecords x = [selName x]
+
+instance (GetRecords (a p), GetRecords (b p)) => GetRecords ((a :*: b) p) where
+  getRecords (a :*: b) = getRecords a ++ getRecords b
+
+
+
+-- | The defaults as per the spec:
+--
+-- @
+-- NAME=Linux
+-- ID=linux
+-- PRETTY_NAME=Linux
+-- @
+defaultOsRelease :: OsRelease
+defaultOsRelease = OsRelease { name               = "Linux"
+                             , version            = Nothing
+                             , id                 = "linux"
+                             , id_like            = Nothing
+                             , version_codename   = Nothing
+                             , version_id         = Nothing
+                             , pretty_name        = "Linux"
+                             , ansi_color         = Nothing
+                             , cpe_name           = Nothing
+                             , home_url           = Nothing
+                             , documentation_url  = Nothing
+                             , support_url        = Nothing
+                             , bug_report_url     = Nothing
+                             , privacy_policy_url = Nothing
+                             , build_id           = Nothing
+                             , variant            = Nothing
+                             , variant_id         = Nothing
+                             , logo               = Nothing
+                             }
+
+-- | Like `defaultOsRelease`, except as key-value pair.
+defaultAssignments :: [(String, String)]
+defaultAssignments =
+  [("NAME", "Linux"), ("ID", "linux"), ("PRETTY_NAME", "Linux")]
+
+
+-- | Get all allAssignments as @(key, val)@ from the @os-release@
+-- file contents.
+getAllAssignments :: String  -- ^ file contents of os-release
+                  -> [Either (MP.ParseError String Void) (String, String)]
+getAllAssignments = fromRight [] . MP.parse parseAssignments "os-release"
+
+
+-- | Parse the assignments into `OsRelease`. This is merged with the
+-- defaults as per the spec. In case of no assignments, also returns
+-- the defaults.
+getOsRelease :: [(String, String)]  -- ^ assignments
+             -> OsRelease
+getOsRelease =
+  (\case
+      Error   _ -> defaultOsRelease
+      Success v -> v
+    )
+    . fromJSON
+    . Object
+    . (\x -> HM.union x (HM.fromList . aesonify $ defaultAssignments))
+    . HM.fromList
+    . aesonify
+ where
+  aesonify = fmap (\(k, v) -> (T.toLower . T.pack $ k, String . T.pack $ v))
+
+
+-- | Tries to read @\"\/etc\/os-release\"@ and @\"\/usr\/lib\/os_release\"@ in order.
+--
+-- Throws @IOError@ if both files could not be read.
+readOsRelease :: IO String
+readOsRelease = readFile "/etc/os-release" <|> readFile "/usr/lib/os-release"
+
+
+-- | Tries to read @\"\/etc\/os-release\"@ and @\"\/usr\/lib\/os_release\"@ in order
+-- and parses into `OsReleaseResult`. Returns @Nothing@ if both files could
+-- not be read.
+parseOsRelease :: IO (Maybe OsReleaseResult)
+parseOsRelease =
+  handleIO (\_ -> pure Nothing) . fmap (Just . parseOsRelease') $ readOsRelease
+
+
+-- | Like `parseOsRelease`, except taking the input String explicitly.
+-- Primarily for tests.
+parseOsRelease' :: String -> OsReleaseResult
+parseOsRelease' s =
+  let (errs, ass) = partitionEithers . getAllAssignments $ s
+      osr         = getOsRelease ass
+      unknown_fields' =
+          HM.toList
+            . foldr (\x y -> HM.delete (fmap toUpper x) y) (HM.fromList ass)
+            $ (init . getRecords . from $ defaultOsRelease)
+  in  OsReleaseResult osr unknown_fields' errs
+
+
+deriveJSON defaultOptions ''OsRelease
--- a/3rdparty/os-release/library/System/OsRelease/Megaparsec.hs
+++ b/3rdparty/os-release/library/System/OsRelease/Megaparsec.hs
@@ -0,0 +1,102 @@
+{-# LANGUAGE CPP #-}
+
+module System.OsRelease.Megaparsec where
+
+import           Control.Applicative
+import           Control.Monad
+#if !MIN_VERSION_base(4,13,0)
+import           Control.Monad.Fail             ( MonadFail )
+#endif
+import           Data.Char
+import           Data.Functor
+import           Data.Void
+
+import qualified Text.Megaparsec               as MP
+import qualified Text.Megaparsec.Char          as MP
+
+
+-- | Parse the entire file, handling newlines and comments gracefully.
+--
+-- This parser generally shouldn't fail, but instead report a failed
+-- parsed line as @Left@ value.
+parseAssignments :: MP.Parsec
+                      Void
+                      String
+                      [Either (MP.ParseError String Void) (String, String)]
+parseAssignments =
+  (\xs x -> join xs ++ x) <$> many (line MP.eol) <*> line MP.eof
+ where
+  line eol = choice'
+    [ comment $> []
+    , blank $> []
+    , fmap
+      (: [])
+      ( MP.withRecovery (\e -> parseUntil eol $> Left e)
+      . fmap Right
+      $ (parseAssignment <* eol)
+      )
+    ]
+   where
+    comment = pWs *> MP.char '#' *> parseUntil eol *> eol
+    blank   = pWs *> eol
+
+
+-- | Parse a single line assignment and extract the right hand side.
+-- This is only a subset of a shell parser, refer to the spec for
+-- details.
+parseAssignment :: MP.Parsec Void String (String, String)
+parseAssignment =
+  (,) <$> (pWs *> key) <*> (MP.char '=' *> (MP.try qval <|> mempty) <* pWs)
+ where
+  dropSpace :: String -> String
+  dropSpace = reverse . dropWhile (\x -> x == ' ' || x == '\t') . reverse
+
+  key :: MP.Parsec Void String String
+  key = some (MP.try MP.alphaNumChar <|> MP.char '_')
+
+  qval :: MP.Parsec Void String String
+  qval = do
+    c <- MP.lookAhead MP.printChar
+    case c of
+      ' '  -> pure ""
+      '"'  -> MP.char c *> val c <* MP.char c
+      '\'' -> MP.char c *> val c <* MP.char c
+      -- no quote, have to drop trailing spaces
+      _    -> fmap
+        dropSpace
+        (some $ MP.satisfy (\x -> isAlphaNum x || (x `elem` ['_', '-', '.']))) -- this is more lax than the spec
+  val :: Char -> MP.Parsec Void String String
+  val !q = many (qspecial q <|> MP.noneOf (specials q)) -- noneOf may be too lax
+
+  qspecial :: Char -> MP.Parsec Void String Char
+  qspecial !q =
+    fmap (!! 1)
+      . (\xs -> choice' xs)
+      . fmap (\s -> MP.try . MP.chunk $ ['\\', s])
+      $ (specials q)
+
+  specials :: Char -> [Char]
+  specials !q = [q, '\\', '$', '`']
+
+
+parseUntil :: MP.Parsec Void String a -> MP.Parsec Void String String
+parseUntil !p = do
+  (MP.try (MP.lookAhead p) $> [])
+    <|> (do
+          c  <- MP.anySingle
+          c2 <- parseUntil p
+          pure ([c] `mappend` c2)
+        )
+
+
+-- | Parse one or more white spaces or tabs.
+pWs :: MP.Parsec Void String ()
+pWs = many (MP.satisfy (\x -> x == ' ' || x == '\t')) $> ()
+
+
+-- | Try all parses in order, failing if all failed. Also fails
+-- on empty list.
+choice' :: (MonadFail f, MP.MonadParsec e s f) => [f a] -> f a
+choice' = \case
+  [] -> fail "Empty list"
+  xs -> foldr1 (\x y -> MP.try x <|> MP.try y) xs
--- a/3rdparty/os-release/os-release.cabal
+++ b/3rdparty/os-release/os-release.cabal
@@ -0,0 +1,131 @@
+cabal-version:      3.0
+author:             Jan Matějka
+category:           System
+license-file:       LICENSE
+build-type:         Simple
+copyright:          2014 Jan Matějka <yac@blesmrt.net>
+license:            BSD-3-Clause
+maintainer:         Julian Ospald <hasufell@posteo.de>
+homepage:           https://github.com/yaccz/os-release
+name:               os-release
+synopsis:           /etc/os-release helpers
+version:            1.0.0
+description:
+  \/etc\/os-release helpers as per the freedesktop spec: https://www.freedesktop.org/software/systemd/man/os-release.html
+
+extra-doc-files:
+  ChangeLog.rst
+  README.rst
+
+extra-source-files: tests/Golden/data/*.golden tests/Golden/data/*.in
+
+flag devel
+  description: Enables -Werror
+  default:     False
+  manual:      True
+
+source-repository head
+  type:     git
+  location: https://github.com/yaccz/os-release.git
+
+common base
+  build-depends: base >=4.11 && <5
+
+common bytestring
+  build-depends: bytestring
+
+common aeson
+  build-depends: aeson >=1.4
+
+common filepath
+  build-depends: filepath >=1.4.2.1
+
+common hspec
+  build-depends: hspec >=2.7.1
+
+common hspec-megaparsec
+  build-depends: hspec-megaparsec >=2.1.0
+
+common megaparsec
+  build-depends: megaparsec >=8.0.0
+
+common pretty-simple
+  build-depends: pretty-simple >=1.0.0.0
+
+common safe-exceptions
+  build-depends: safe-exceptions >=0.1.7.0
+
+common tasty
+  build-depends: tasty >=1.3
+
+common tasty-golden
+  build-depends: tasty-golden >=2.3.4
+
+common tasty-hspec
+  build-depends: tasty-hspec >=1.1.5.1
+
+common text
+  build-depends: text >=1.2
+
+common unordered-containers
+  build-depends: unordered-containers >=0.2.10.0
+
+common config
+  default-language:   Haskell2010
+
+  if flag(devel)
+    ghc-options:
+      -Werror -Wall -fwarn-tabs -fwarn-incomplete-uni-patterns
+      -fwarn-incomplete-record-updates
+
+  else
+    ghc-options:
+      -Wall -fwarn-tabs -fwarn-incomplete-uni-patterns
+      -fwarn-incomplete-record-updates
+
+  default-extensions:
+    BangPatterns
+    LambdaCase
+    OverloadedStrings
+    QuasiQuotes
+    TemplateHaskell
+    TupleSections
+    TypeFamilies
+
+library
+  import:
+    config
+    , base
+    , aeson
+    , megaparsec
+    , safe-exceptions
+    , text
+    , unordered-containers
+
+  exposed-modules: System.OsRelease
+  other-modules:   System.OsRelease.Megaparsec
+  hs-source-dirs:  library
+
+test-suite tests
+  import:
+    config
+    , base
+    , bytestring
+    , filepath
+    , hspec
+    , hspec-megaparsec
+    , megaparsec
+    , pretty-simple
+    , tasty
+    , tasty-golden
+    , tasty-hspec
+    , text
+
+  build-depends:  os-release
+  hs-source-dirs: tests
+  main-is:        Main.hs
+  other-modules:
+    Golden.Real
+    Specs.Megaparsec
+
+  type:           exitcode-stdio-1.0
--- a/3rdparty/os-release/tests/Golden/Real.hs
+++ b/3rdparty/os-release/tests/Golden/Real.hs
@@ -0,0 +1,35 @@
+{-# LANGUAGE CPP #-}
+
+module Golden.Real where
+
+import System.OsRelease
+
+import System.FilePath
+import Text.Pretty.Simple
+import Test.Tasty
+import Test.Tasty.Golden
+
+import qualified Data.ByteString.Lazy          as B
+import qualified Data.Text.Lazy                as L
+import qualified Data.Text.Encoding            as E
+
+
+goldenTests :: IO TestTree
+goldenTests = do
+  files <- findByExtension [".in"] (takeDirectory (__FILE__) </> "data")
+  return $ testGroup
+    "Parse os-release into OsRelease"
+    (flip fmap files $ \file ->
+      let out = replaceExtension file ".golden"
+      in  goldenVsString (takeBaseName file) out (parse file)
+    )
+ where
+  parse f = do
+    c <- readFile f
+    pure
+      . B.fromStrict
+      . E.encodeUtf8
+      . L.toStrict
+      . pShowNoColor
+      . parseOsRelease'
+      $ c
--- a/3rdparty/os-release/tests/Golden/data/alpine.golden
+++ b/3rdparty/os-release/tests/Golden/data/alpine.golden
@@ -0,0 +1,24 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Alpine Linux"
+        , version = Nothing
+        , id = "alpine"
+        , id_like = Nothing
+        , version_codename = Nothing
+        , version_id = Just "3.11.3"
+        , pretty_name = "Alpine Linux v3.11"
+        , ansi_color = Nothing
+        , cpe_name = Nothing
+        , home_url = Just "https://alpinelinux.org/"
+        , documentation_url = Nothing
+        , support_url = Nothing
+        , bug_report_url = Just "https://bugs.alpinelinux.org/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields = []
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/alpine.in
+++ b/3rdparty/os-release/tests/Golden/data/alpine.in
@@ -0,0 +1,7 @@
+NAME="Alpine Linux"
+ID=alpine
+VERSION_ID=3.11.3
+PRETTY_NAME="Alpine Linux v3.11"
+HOME_URL="https://alpinelinux.org/"
+BUG_REPORT_URL="https://bugs.alpinelinux.org/"
+
--- a/3rdparty/os-release/tests/Golden/data/arch.golden
+++ b/3rdparty/os-release/tests/Golden/data/arch.golden
@@ -0,0 +1,29 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Arch Linux"
+        , version = Nothing
+        , id = "arch"
+        , id_like = Nothing
+        , version_codename = Nothing
+        , version_id = Nothing
+        , pretty_name = "Arch Linux"
+        , ansi_color = Just "38;2;23;147;209"
+        , cpe_name = Nothing
+        , home_url = Just "https://www.archlinux.org/"
+        , documentation_url = Just "https://wiki.archlinux.org/"
+        , support_url = Just "https://bbs.archlinux.org/"
+        , bug_report_url = Just "https://bugs.archlinux.org/"
+        , privacy_policy_url = Nothing
+        , build_id = Just "rolling"
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Just "archlinux"
+        }
+    , unknown_fields =
+        [
+            ( "LOGO"
+            , "archlinux"
+            )
+        ]
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/arch.in
+++ b/3rdparty/os-release/tests/Golden/data/arch.in
@@ -0,0 +1,11 @@
+NAME="Arch Linux"
+PRETTY_NAME="Arch Linux"
+ID=arch
+BUILD_ID=rolling
+ANSI_COLOR="38;2;23;147;209"
+HOME_URL="https://www.archlinux.org/"
+DOCUMENTATION_URL="https://wiki.archlinux.org/"
+SUPPORT_URL="https://bbs.archlinux.org/"
+BUG_REPORT_URL="https://bugs.archlinux.org/"
+LOGO=archlinux
+
--- a/3rdparty/os-release/tests/Golden/data/centos.golden
+++ b/3rdparty/os-release/tests/Golden/data/centos.golden
@@ -0,0 +1,45 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "CentOS Linux"
+        , version = Just "8 (Core)"
+        , id = "centos"
+        , id_like = Just "rhel fedora"
+        , version_codename = Nothing
+        , version_id = Just "8"
+        , pretty_name = "CentOS Linux 8 (Core)"
+        , ansi_color = Just "0;31"
+        , cpe_name = Just "cpe:/o:centos:centos:8"
+        , home_url = Just "https://www.centos.org/"
+        , documentation_url = Nothing
+        , support_url = Nothing
+        , bug_report_url = Just "https://bugs.centos.org/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields =
+        [
+            ( "REDHAT_SUPPORT_PRODUCT_VERSION"
+            , "8"
+            )
+        ,
+            ( "CENTOS_MANTISBT_PROJECT"
+            , "CentOS-8"
+            )
+        ,
+            ( "REDHAT_SUPPORT_PRODUCT"
+            , "centos"
+            )
+        ,
+            ( "PLATFORM_ID"
+            , "platform:el8"
+            )
+        ,
+            ( "CENTOS_MANTISBT_PROJECT_VERSION"
+            , "8"
+            )
+        ]
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/centos.in
+++ b/3rdparty/os-release/tests/Golden/data/centos.in
@@ -0,0 +1,17 @@
+NAME="CentOS Linux"
+VERSION="8 (Core)"
+ID="centos"
+ID_LIKE="rhel fedora"
+VERSION_ID="8"
+PLATFORM_ID="platform:el8"
+PRETTY_NAME="CentOS Linux 8 (Core)"
+ANSI_COLOR="0;31"
+CPE_NAME="cpe:/o:centos:centos:8"
+HOME_URL="https://www.centos.org/"
+BUG_REPORT_URL="https://bugs.centos.org/"
+
+CENTOS_MANTISBT_PROJECT="CentOS-8"
+CENTOS_MANTISBT_PROJECT_VERSION="8"
+REDHAT_SUPPORT_PRODUCT="centos"
+REDHAT_SUPPORT_PRODUCT_VERSION="8"
+
--- a/3rdparty/os-release/tests/Golden/data/debian.golden
+++ b/3rdparty/os-release/tests/Golden/data/debian.golden
@@ -0,0 +1,24 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Debian GNU/Linux"
+        , version = Just "8 (jessie)"
+        , id = "debian"
+        , id_like = Nothing
+        , version_codename = Nothing
+        , version_id = Just "8"
+        , pretty_name = "Debian GNU/Linux 8 (jessie)"
+        , ansi_color = Nothing
+        , cpe_name = Nothing
+        , home_url = Just "http://www.debian.org/"
+        , documentation_url = Nothing
+        , support_url = Just "http://www.debian.org/support/"
+        , bug_report_url = Just "https://bugs.debian.org/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields = []
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/debian.in
+++ b/3rdparty/os-release/tests/Golden/data/debian.in
@@ -0,0 +1,8 @@
+PRETTY_NAME="Debian GNU/Linux 8 (jessie)"
+NAME="Debian GNU/Linux"
+VERSION_ID="8"
+VERSION="8 (jessie)"
+ID=debian
+HOME_URL="http://www.debian.org/"
+SUPPORT_URL="http://www.debian.org/support/"
+BUG_REPORT_URL="https://bugs.debian.org/"
--- a/3rdparty/os-release/tests/Golden/data/empty.golden
+++ b/3rdparty/os-release/tests/Golden/data/empty.golden
@@ -0,0 +1,24 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Linux"
+        , version = Nothing
+        , id = "linux"
+        , id_like = Nothing
+        , version_codename = Nothing
+        , version_id = Nothing
+        , pretty_name = "Linux"
+        , ansi_color = Nothing
+        , cpe_name = Nothing
+        , home_url = Nothing
+        , documentation_url = Nothing
+        , support_url = Nothing
+        , bug_report_url = Nothing
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields = []
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/empty.in
+++ b/3rdparty/os-release/tests/Golden/data/empty.in
@@ -0,0 +1 @@
+
--- a/3rdparty/os-release/tests/Golden/data/exherbo.golden
+++ b/3rdparty/os-release/tests/Golden/data/exherbo.golden
@@ -0,0 +1,24 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Exherbo"
+        , version = Nothing
+        , id = "exherbo"
+        , id_like = Nothing
+        , version_codename = Nothing
+        , version_id = Nothing
+        , pretty_name = "Exherbo Linux"
+        , ansi_color = Just "0;32"
+        , cpe_name = Nothing
+        , home_url = Just "https://www.exherbo.org/"
+        , documentation_url = Nothing
+        , support_url = Just "irc://irc.freenode.net/#exherbo"
+        , bug_report_url = Just "https://bugs.exherbo.org/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields = []
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/exherbo.in
+++ b/3rdparty/os-release/tests/Golden/data/exherbo.in
@@ -0,0 +1,9 @@
+NAME="Exherbo"
+PRETTY_NAME="Exherbo Linux"
+ID="exherbo"
+# comment
+ANSI_COLOR="0;32"
+HOME_URL="https://www.exherbo.org/"
+SUPPORT_URL="irc://irc.freenode.net/#exherbo"
+BUG_REPORT_URL="https://bugs.exherbo.org/"
+
--- a/3rdparty/os-release/tests/Golden/data/fedora.golden
+++ b/3rdparty/os-release/tests/Golden/data/fedora.golden
@@ -0,0 +1,49 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Fedora"
+        , version = Just "31 (Container Image)"
+        , id = "fedora"
+        , id_like = Nothing
+        , version_codename = Just ""
+        , version_id = Just "31"
+        , pretty_name = "Fedora 31 (Container Image)"
+        , ansi_color = Just "0;34"
+        , cpe_name = Just "cpe:/o:fedoraproject:fedora:31"
+        , home_url = Just "https://fedoraproject.org/"
+        , documentation_url = Just "https://docs.fedoraproject.org/en-US/fedora/f31/system-administrators-guide/"
+        , support_url = Just "https://fedoraproject.org/wiki/Communicating_and_getting_help"
+        , bug_report_url = Just "https://bugzilla.redhat.com/"
+        , privacy_policy_url = Just "https://fedoraproject.org/wiki/Legal:PrivacyPolicy"
+        , build_id = Nothing
+        , variant = Just "Container Image"
+        , variant_id = Just "container"
+        , logo = Just "fedora-logo-icon"
+        }
+    , unknown_fields =
+        [
+            ( "REDHAT_SUPPORT_PRODUCT_VERSION"
+            , "31"
+            )
+        ,
+            ( "REDHAT_BUGZILLA_PRODUCT"
+            , "Fedora"
+            )
+        ,
+            ( "REDHAT_SUPPORT_PRODUCT"
+            , "Fedora"
+            )
+        ,
+            ( "PLATFORM_ID"
+            , "platform:f31"
+            )
+        ,
+            ( "REDHAT_BUGZILLA_PRODUCT_VERSION"
+            , "31"
+            )
+        ,
+            ( "LOGO"
+            , "fedora-logo-icon"
+            )
+        ]
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/fedora.in
+++ b/3rdparty/os-release/tests/Golden/data/fedora.in
@@ -0,0 +1,21 @@
+NAME=Fedora
+VERSION="31 (Container Image)"
+ID=fedora
+VERSION_ID=31
+VERSION_CODENAME=""
+PLATFORM_ID="platform:f31"
+PRETTY_NAME="Fedora 31 (Container Image)"
+ANSI_COLOR="0;34"
+LOGO=fedora-logo-icon
+CPE_NAME="cpe:/o:fedoraproject:fedora:31"
+HOME_URL="https://fedoraproject.org/"
+DOCUMENTATION_URL="https://docs.fedoraproject.org/en-US/fedora/f31/system-administrators-guide/"
+SUPPORT_URL="https://fedoraproject.org/wiki/Communicating_and_getting_help"
+BUG_REPORT_URL="https://bugzilla.redhat.com/"
+REDHAT_BUGZILLA_PRODUCT="Fedora"
+REDHAT_BUGZILLA_PRODUCT_VERSION=31
+REDHAT_SUPPORT_PRODUCT="Fedora"
+REDHAT_SUPPORT_PRODUCT_VERSION=31
+PRIVACY_POLICY_URL="https://fedoraproject.org/wiki/Legal:PrivacyPolicy"
+VARIANT="Container Image"
+VARIANT_ID=container
--- a/3rdparty/os-release/tests/Golden/data/gentoo.golden
+++ b/3rdparty/os-release/tests/Golden/data/gentoo.golden
@@ -0,0 +1,24 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Gentoo"
+        , version = Nothing
+        , id = "gentoo"
+        , id_like = Nothing
+        , version_codename = Nothing
+        , version_id = Nothing
+        , pretty_name = "Gentoo/Linux"
+        , ansi_color = Just "1;32"
+        , cpe_name = Nothing
+        , home_url = Just "https://www.gentoo.org/"
+        , documentation_url = Nothing
+        , support_url = Just "https://www.gentoo.org/support/"
+        , bug_report_url = Just "https://bugs.gentoo.org/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields = []
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/gentoo.in
+++ b/3rdparty/os-release/tests/Golden/data/gentoo.in
@@ -0,0 +1,8 @@
+NAME=Gentoo
+ID=gentoo
+PRETTY_NAME="Gentoo/Linux"
+ANSI_COLOR="1;32"
+HOME_URL="https://www.gentoo.org/"
+SUPPORT_URL="https://www.gentoo.org/support/"
+BUG_REPORT_URL="https://bugs.gentoo.org/"
+
--- a/3rdparty/os-release/tests/Golden/data/mint.golden
+++ b/3rdparty/os-release/tests/Golden/data/mint.golden
@@ -0,0 +1,29 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Linux Mint"
+        , version = Just "18.2 (Sonya)"
+        , id = "linuxmint"
+        , id_like = Just "ubuntu"
+        , version_codename = Just "sonya"
+        , version_id = Just "18.2"
+        , pretty_name = "Linux Mint 18.2"
+        , ansi_color = Nothing
+        , cpe_name = Nothing
+        , home_url = Just "http://www.linuxmint.com/"
+        , documentation_url = Nothing
+        , support_url = Just "http://forums.linuxmint.com/"
+        , bug_report_url = Just "http://bugs.launchpad.net/linuxmint/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields =
+        [
+            ( "UBUNTU_CODENAME"
+            , "xenial"
+            )
+        ]
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/mint.in
+++ b/3rdparty/os-release/tests/Golden/data/mint.in
@@ -0,0 +1,12 @@
+NAME="Linux Mint"
+VERSION="18.2 (Sonya)"
+ID=linuxmint
+ID_LIKE=ubuntu
+PRETTY_NAME="Linux Mint 18.2"
+VERSION_ID="18.2"
+HOME_URL="http://www.linuxmint.com/"
+SUPPORT_URL="http://forums.linuxmint.com/"
+BUG_REPORT_URL="http://bugs.launchpad.net/linuxmint/"
+VERSION_CODENAME=sonya
+UBUNTU_CODENAME=xenial
+
--- a/3rdparty/os-release/tests/Golden/data/red-hat.golden
+++ b/3rdparty/os-release/tests/Golden/data/red-hat.golden
@@ -0,0 +1,41 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Red Hat Enterprise Linux Server"
+        , version = Just "7.6 (Maipo)"
+        , id = "rhel"
+        , id_like = Just "fedora"
+        , version_codename = Nothing
+        , version_id = Just "7.6"
+        , pretty_name = "Red Hat Enterprise Linux"
+        , ansi_color = Just "0;31"
+        , cpe_name = Just "cpe:/o:redhat:enterprise_linux:7.6:GA:server"
+        , home_url = Just "https://www.redhat.com/"
+        , documentation_url = Nothing
+        , support_url = Nothing
+        , bug_report_url = Just "https://bugzilla.redhat.com/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Just "Server"
+        , variant_id = Just "server"
+        , logo = Nothing
+        }
+    , unknown_fields =
+        [
+            ( "REDHAT_SUPPORT_PRODUCT_VERSION"
+            , "7.6"
+            )
+        ,
+            ( "REDHAT_BUGZILLA_PRODUCT"
+            , "Red Hat Enterprise Linux 7"
+            )
+        ,
+            ( "REDHAT_SUPPORT_PRODUCT"
+            , "Red Hat Enterprise Linux"
+            )
+        ,
+            ( "REDHAT_BUGZILLA_PRODUCT_VERSION"
+            , "7.6"
+            )
+        ]
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/red-hat.in
+++ b/3rdparty/os-release/tests/Golden/data/red-hat.in
@@ -0,0 +1,17 @@
+NAME="Red Hat Enterprise Linux Server"
+VERSION="7.6 (Maipo)"
+ID="rhel"
+ID_LIKE="fedora"
+VARIANT="Server"
+VARIANT_ID="server"
+VERSION_ID="7.6"
+PRETTY_NAME="Red Hat Enterprise Linux"
+ANSI_COLOR="0;31"
+CPE_NAME="cpe:/o:redhat:enterprise_linux:7.6:GA:server"
+HOME_URL="https://www.redhat.com/"
+BUG_REPORT_URL="https://bugzilla.redhat.com/"
+ 
+REDHAT_BUGZILLA_PRODUCT="Red Hat Enterprise Linux 7"
+REDHAT_BUGZILLA_PRODUCT_VERSION=7.6
+REDHAT_SUPPORT_PRODUCT="Red Hat Enterprise Linux"
+REDHAT_SUPPORT_PRODUCT_VERSION="7.6"
--- a/3rdparty/os-release/tests/Golden/data/red-hat_parseErrors.golden
+++ b/3rdparty/os-release/tests/Golden/data/red-hat_parseErrors.golden
@@ -0,0 +1,49 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Red Hat Enterprise Linux Server"
+        , version = Just "7.6 (Maipo)"
+        , id = "rhel"
+        , id_like = Just "fedora"
+        , version_codename = Nothing
+        , version_id = Just "7.6"
+        , pretty_name = "Red Hat Enterprise Linux"
+        , ansi_color = Just "0;31"
+        , cpe_name = Just "cpe:/o:redhat:enterprise_linux:7.6:GA:server"
+        , home_url = Just "https://www.redhat.com/"
+        , documentation_url = Nothing
+        , support_url = Nothing
+        , bug_report_url = Just "https://bugzilla.redhat.com/"
+        , privacy_policy_url = Nothing
+        , build_id = Nothing
+        , variant = Just "Server"
+        , variant_id = Just "server"
+        , logo = Nothing
+        }
+    , unknown_fields =
+        [
+            ( "REDHAT_SUPPORT_PRODUCT_VERSION"
+            , "7.6"
+            )
+        ,
+            ( "REDHAT_BUGZILLA_PRODUCT"
+            , "Red Hat Enterprise Linux 7"
+            )
+        ,
+            ( "REDHAT_SUPPORT_PRODUCT"
+            , "Red Hat Enterprise Linux"
+            )
+        ,
+            ( "REDHAT_BUGZILLA_PRODUCT_VERSION"
+            , "7.6"
+            )
+        ]
+    , parse_errors =
+        [ TrivialError 520
+            ( Just
+                ( Tokens ( '\'' :| "" ) )
+            )
+            ( fromList
+                [ Label ( 'e' :| "nd of line" ) ]
+            )
+        ]
+    }
--- a/3rdparty/os-release/tests/Golden/data/red-hat_parseErrors.in
+++ b/3rdparty/os-release/tests/Golden/data/red-hat_parseErrors.in
@@ -0,0 +1,18 @@
+NAME="Red Hat Enterprise Linux Server"
+VERSION="7.6 (Maipo)"
+ID="rhel"
+ID_LIKE="fedora"
+VARIANT="Server"
+VARIANT_ID="server"
+VERSION_ID="7.6"
+PRETTY_NAME="Red Hat Enterprise Linux"
+ANSI_COLOR="0;31"
+CPE_NAME="cpe:/o:redhat:enterprise_linux:7.6:GA:server"
+HOME_URL="https://www.redhat.com/"
+BUG_REPORT_URL="https://bugzilla.redhat.com/"
+ 
+REDHAT_BUGZILLA_PRODUCT="Red Hat Enterprise Linux 7"
+REDHAT_BUGZILLA_PRODUCT_VERSION=7.6
+REDHAT_SUPPORT_PRODUCT="Red Hat Enterprise Linux"
+REDHAT_SUPPORT_PRODUCT_VERSION="7.6"
+foo=1.'
--- a/3rdparty/os-release/tests/Golden/data/ubuntu.golden
+++ b/3rdparty/os-release/tests/Golden/data/ubuntu.golden
@@ -0,0 +1,29 @@
+OsReleaseResult
+    { osRelease = OsRelease
+        { name = "Ubuntu"
+        , version = Just "20.04 LTS (Focal Fossa)"
+        , id = "ubuntu"
+        , id_like = Just "debian"
+        , version_codename = Just "focal"
+        , version_id = Just "20.04"
+        , pretty_name = "Ubuntu 20.04 LTS"
+        , ansi_color = Nothing
+        , cpe_name = Nothing
+        , home_url = Just "https://www.ubuntu.com/"
+        , documentation_url = Nothing
+        , support_url = Just "https://help.ubuntu.com/"
+        , bug_report_url = Just "https://bugs.launchpad.net/ubuntu/"
+        , privacy_policy_url = Just "https://www.ubuntu.com/legal/terms-and-policies/privacy-policy"
+        , build_id = Nothing
+        , variant = Nothing
+        , variant_id = Nothing
+        , logo = Nothing
+        }
+    , unknown_fields =
+        [
+            ( "UBUNTU_CODENAME"
+            , "focal"
+            )
+        ]
+    , parse_errors = []
+    }
--- a/3rdparty/os-release/tests/Golden/data/ubuntu.in
+++ b/3rdparty/os-release/tests/Golden/data/ubuntu.in
@@ -0,0 +1,13 @@
+NAME="Ubuntu"
+VERSION="20.04 LTS (Focal Fossa)"
+ID=ubuntu
+ID_LIKE=debian
+PRETTY_NAME="Ubuntu 20.04 LTS"
+VERSION_ID="20.04"
+HOME_URL="https://www.ubuntu.com/"
+SUPPORT_URL="https://help.ubuntu.com/"
+BUG_REPORT_URL="https://bugs.launchpad.net/ubuntu/"
+PRIVACY_POLICY_URL="https://www.ubuntu.com/legal/terms-and-policies/privacy-policy"
+VERSION_CODENAME=focal
+UBUNTU_CODENAME=focal
+
--- a/3rdparty/os-release/tests/Main.hs
+++ b/3rdparty/os-release/tests/Main.hs
@@ -0,0 +1,16 @@
+import Golden.Real
+import Specs.Megaparsec
+
+import Test.Tasty
+import Test.Tasty.Hspec
+
+
+main :: IO ()
+main = do
+  ms <- testSpec "megaparsec spec" megaparsecSpec
+  gs <- goldenTests
+  defaultMain (tests [ms, gs])
+
+tests :: [TestTree] -> TestTree
+tests ts = testGroup "Tests" (ts++[])
+
--- a/3rdparty/os-release/tests/Specs/Megaparsec.hs
+++ b/3rdparty/os-release/tests/Specs/Megaparsec.hs
@@ -0,0 +1,88 @@
+module Specs.Megaparsec where
+
+import           System.OsRelease
+
+import           Data.Either
+import           Data.Void
+import           Test.Hspec
+import           Test.Hspec.Megaparsec
+
+import qualified Text.Megaparsec               as MP
+
+
+megaparsecSpec :: Spec
+megaparsecSpec = do
+  describe "parseAssignment" $ do
+    it "parses simple value" $ shouldParse' "foo=bar" ("foo", "bar")
+    it "parses single quoted value" $ shouldParse' "foo='bar'" ("foo", "bar")
+    it "parses double quoted value" $ shouldParse' "foo=\"bar\"" ("foo", "bar")
+
+    it "parses _ var" $ shouldParse' "f_x=''" ("f_x", "")
+
+    -- this is not valid per spec, but many files do this
+    it "parses ._- in unquoted assignment"
+      $ shouldParse' "VERSION_ID=bar-1.9_rc2" ("VERSION_ID", "bar-1.9_rc2")
+
+    it "parses quoted space" $ shouldParse' "f='a b'" ("f", "a b")
+    it "parses quoted -" $ shouldParse' "f='a-b'" ("f", "a-b")
+
+    it "parses special \\" $ shouldParse' "foo='ba\\\\r'" ("foo", "ba\\r")
+    it "parses special `" $ shouldParse' "foo='ba\\`r'" ("foo", "ba`r")
+    it "parses special '" $ shouldParse' "foo='ba\\'r'" ("foo", "ba'r")
+    it "parses special $" $ shouldParse' "foo='ba\\$r'" ("foo", "ba$r")
+    it "parses special \"" $ shouldParse' "foo=\"ba\\\"r\"" ("foo", "ba\"r")
+
+    it "parses empty val noquotes" $ shouldParse' "foo=" ("foo", "")
+    it "parses empty val quote \"" $ shouldParse' "foo=\"\"" ("foo", "")
+    it "parses empty val quote '" $ shouldParse' "foo=''" ("foo", "")
+
+    it "breaks on comments" $ shouldFail' "# foo=\"bar'"
+    it "breaks on misquoting 1" $ shouldFail' "foo=\"bar'"
+    it "breaks on misquoting 2" $ shouldFail' "foo='bar\""
+    it "breaks on unquoted $" $ shouldFail' "foo='ba$r'"
+    it "breaks on unquoted `" $ shouldFail' "foo='ba`r'"
+    it "breaks on unquoted \"" $ shouldFail' "foo=\"ba\"r\""
+    it "breaks on unquoted '" $ shouldFail' "foo='ba'r'"
+    it "breaks on unquoted \\" $ shouldFail' "foo='ba\\r'"
+    it "breaks on unquoted val with space" $ shouldFail' "foo=ba r"
+    it "breaks on unquoted val with ;" $ shouldFail' "foo=ba;r"
+    it "breaks on unquoted val with \\" $ shouldFail' "foo=ba\\r"
+    it "breaks on trailing NL" $ shouldFail' "foo=bar\n"
+
+
+  describe "parseAssignments" $ do
+    it "parses simple values" $ shouldParseMany "foo=bar" [("foo", "bar")]
+
+    it "parses multiple values"
+      $ shouldParseMany "foo=bar\nbar=baz" [("foo", "bar"), ("bar", "baz")]
+    it "parses multiple values with comments" $ shouldParseMany
+      "foo=bar\n# comment\nbar=baz"
+      [("foo", "bar"), ("bar", "baz")]
+
+    it "parses gracefully" $ shouldParseMany "foo=bar\nbar=baz\"" [("foo", "bar")]
+
+    it "parses empty files" $ shouldParseMany "" []
+    it "parses empty files with newlines" $ shouldParseMany "\n\n" []
+    it "parses empty files with newlines and comments"
+      $ shouldParseMany "\n\n#\n" []
+
+    it "parses comments with leading spaces" $ shouldParseMany "  #" []
+
+parse :: String -> Either (MP.ParseErrorBundle String Void) (String, String)
+parse = MP.parse (parseAssignment <* MP.eof) ""
+
+shouldParse' :: String -> (String, String) -> Expectation
+shouldParse' s s' = parse s `shouldParse` s'
+
+shouldFail' :: String -> Expectation
+shouldFail' s = parse `shouldFailOn` s
+
+parseMany :: String
+          -> Either (MP.ParseErrorBundle String Void) [(String, String)]
+parseMany = fmap rights . MP.parse parseAssignments ""
+
+shouldParseMany :: String -> [(String, String)] -> Expectation
+shouldParseMany s s' = parseMany s `shouldParse` s'
+
+shouldFailMany :: String -> Expectation
+shouldFailMany s = parseMany `shouldFailOn` s
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,26 +1,5 @@
 # Revision history for ghcup

-## 0.1.7 -- 2020-07-20
-
-* Fix a bug in libarchive not unpacking some uncleanly packed bindists
-* Improved fish support in bootstrap-haskell
-* Only check for upgrades when not upgrading
-* Fix platform detection for i386 docker images
-* Improve alpine support
-  - more/proper bindists
-  - don't fall back to glibc based bindists
-  - install bindists with `--disable-ld-override` to avoid ld.gold bugs
-
-## 0.1.6 -- 2020-07-13
-
-* Create a new curses (brick) based TUI, accessible via `ghcup tui` #24
-* Support multiple installed versions of cabal #23
-* Improvements to `ghcup list` (show unavailable bindists for platform)
-* Fix redhat downloads #29
-* Support for hadrian bindists (fixes alpine-8.10.1) #31
-* Add FreeBSD bindists 8.6.5 and 8.8.3
-* Fix memory leak during unpack
-
 ## 0.1.5 -- 2020-04-30

 * Fix errors when PATH variable contains path components that are actually files
--- a/app/ghcup-gen/Validate.hs
+++ b/app/ghcup-gen/Validate.hs
@@ -179,7 +179,7 @@ validateTarballs dls = do

 where
  downloadAll dli = do
-    let settings = Settings True False Never Curl False
+    let settings = Settings True False Never Curl
    let runLogger = myLoggerT LoggerConfig { lcPrintDebug = True
                                           , colorOutter  = B.hPut stderr
                                           , rawOutter    = (\_ -> pure ())
--- a/app/ghcup/BrickMain.hs
+++ b/app/ghcup/BrickMain.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP               #-}
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE QuasiQuotes       #-}
 {-# LANGUAGE TypeApplications  #-}
@@ -20,9 +19,7 @@ import           Brick.Widgets.Border
 import           Brick.Widgets.Border.Style
 import           Brick.Widgets.Center
 import           Brick.Widgets.List
-#if !defined(TAR)
 import           Codec.Archive
-#endif
 import           Control.Exception.Safe
 import           Control.Monad.Logger
 import           Control.Monad.Reader
@@ -30,7 +27,6 @@ import           Control.Monad.Trans.Resource
 import           Data.Bool
 import           Data.Functor
 import           Data.List
-import           Data.Maybe
 import           Data.Char
 import           Data.IORef
 import           Data.String.Interpolate
@@ -50,22 +46,11 @@ import qualified Data.Vector                   as V
 data AppState = AppState {
    lr :: LR
  , dls :: GHCupDownloads
-  , pfreq :: PlatformRequest
 }

 type LR = GenericList String Vector ListResult


-keyHandlers :: [(Char, String, AppState -> EventM n (Next AppState))]
-keyHandlers =
-  [ ('q', "Quit"     , halt)
-  , ('i', "Install"  , withIOAction install')
-  , ('u', "Uninstall", withIOAction del')
-  , ('s', "Set"      , withIOAction set')
-  , ('c', "ChangeLog", withIOAction changelog')
-  ]
-
-
 ui :: AppState -> Widget String
 ui AppState {..} =
  ( padBottom Max
@@ -74,13 +59,15 @@ ui AppState {..} =
      $ (center $ renderList renderItem True lr)
      )
    )
-    <=> ( withAttr "help"
-        . txtWrap
-        . T.pack
-        . foldr1 (\x y -> x <> "  " <> y)
-        . (++ ["↑↓:Navigation"])
-        $ (fmap (\(c, s, _) -> (c : ':' : s)) keyHandlers)
-        )
+    <=> foldr1
+          (\x y -> x <+> str "  " <+> y)
+          [ (str "q:Quit")
+          , (str "i:Install")
+          , (str "s:Set")
+          , (str "u:Uninstall")
+          , (str "c:ChangeLog")
+          , (str "↑↓:Navigation")
+          ]

 where
  renderItem b ListResult {..} =
@@ -91,24 +78,21 @@ ui AppState {..} =
        ver = case lCross of
          Nothing -> T.unpack . prettyVer $ lVer
          Just c  -> T.unpack (c <> "-" <> prettyVer lVer)
-        dim = if lNoBindist
-          then updateAttrMap (const dimAttributes) . withAttr "no-bindist"
-          else id
-    in  dim
-          (   marks
-          <+> ( padLeft (Pad 2)
-              $ minHSize 20
-              $ ((if b then withAttr "active" else id)
-                  (str $ (fmap toLower . show $ lTool) <> " " <> ver)
-                )
+    in  (   marks
+        <+> ( padLeft (Pad 2)
+            $ minHSize 20
+            $ (withAttr
+                (bool "inactive" "active" b)
+                (str (fmap toLower . show $ lTool) <+> str " " <+> str ver)
              )
-          <+> (padLeft (Pad 1) $ if null lTag
-                then emptyWidget
-                else
-                  foldr1 (\x y -> x <+> str "," <+> y)
-                    $ (fmap printTag $ sort lTag)
-              )
-          )
+            )
+        <+> (padLeft (Pad 1) $ if null lTag
+              then str ""
+              else
+                foldr1 (\x y -> x <+> str "," <+> y)
+                  $ (fmap printTag $ sort lTag)
+            )
+        )

  printTag Recommended        = withAttr "recommended" $ str "recommended"
  printTag Latest             = withAttr "latest" $ str "latest"
@@ -117,37 +101,26 @@ ui AppState {..} =


 minHSize :: Int -> Widget n -> Widget n
-minHSize s' = hLimit s' . vLimit 1 . (<+> fill ' ')
+minHSize s' = hLimit s' . vLimit 1 . (<+> str (replicate s' ' '))


 app :: App AppState e String
 app = App { appDraw         = \st -> [ui st]
          , appHandleEvent  = eventHandler
          , appStartEvent   = return
-          , appAttrMap      = const defaultAttributes
+          , appAttrMap      = const theMap
          , appChooseCursor = neverShowCursor
          }
-
-defaultAttributes :: AttrMap
-defaultAttributes = attrMap
-  Vty.defAttr
-  [ ("active"       , Vty.defAttr `Vty.withBackColor` Vty.blue)
-  , ("not-installed", Vty.defAttr `Vty.withForeColor` Vty.red)
-  , ("set"          , Vty.defAttr `Vty.withForeColor` Vty.green)
-  , ("installed"    , Vty.defAttr `Vty.withForeColor` Vty.green)
-  , ("recommended"  , Vty.defAttr `Vty.withForeColor` Vty.green)
-  , ("latest"       , Vty.defAttr `Vty.withForeColor` Vty.yellow)
-  , ("help"         , Vty.defAttr `Vty.withStyle` Vty.italic)
-  ]
-
-
-dimAttributes :: AttrMap
-dimAttributes = attrMap
-  (Vty.defAttr `Vty.withStyle` Vty.dim)
-  [ ("active"    , Vty.defAttr `Vty.withBackColor` Vty.blue)
-  , ("no-bindist", Vty.defAttr `Vty.withStyle` Vty.dim)
-  ]
-
+ where
+  theMap = attrMap
+    Vty.defAttr
+    [ ("active"       , bg Vty.blue)
+    , ("not-installed", fg Vty.red)
+    , ("set"          , fg Vty.green)
+    , ("installed"    , fg Vty.green)
+    , ("recommended"  , fg Vty.green)
+    , ("latest"       , fg Vty.yellow)
+    ]


 eventHandler :: AppState -> BrickEvent n e -> EventM n (Next AppState)
@@ -155,43 +128,37 @@ eventHandler st (VtyEvent (Vty.EvResize _               _)) = continue st
 eventHandler st (VtyEvent (Vty.EvKey    (Vty.KChar 'q') _)) = halt st
 eventHandler st (VtyEvent (Vty.EvKey    Vty.KEsc        _)) = halt st
 eventHandler AppState {..} (VtyEvent (Vty.EvKey (Vty.KUp) _)) =
-  continue (AppState (listMoveUp lr) dls pfreq)
+  continue (AppState (listMoveUp lr) dls)
 eventHandler AppState {..} (VtyEvent (Vty.EvKey (Vty.KDown) _)) =
-  continue (AppState (listMoveDown lr) dls pfreq)
-eventHandler as (VtyEvent (Vty.EvKey (Vty.KChar c) _)) =
-  case find (\(c', _, _) -> c' == c) keyHandlers of
-    Nothing              -> continue as
-    Just (_, _, handler) -> handler as
-eventHandler st _ = continue st
-
-
-- | Suspend the current UI and run an IO action in terminal. If the
-- IO action returns a Left value, then it's thrown as userError.
-withIOAction :: (AppState -> (Int, ListResult) -> IO (Either String a))
-             -> AppState
-             -> EventM n (Next AppState)
-withIOAction action as = case listSelectedElement (lr as) of
-  Nothing      -> continue as
-  Just (ix, e) -> suspendAndResume $ do
-    r <- action as (ix, e)
+  continue (AppState (listMoveDown lr) dls)
+eventHandler AppState { dls = dls', lr = lr' } (VtyEvent (Vty.EvKey (Vty.KChar c) _))
+  | (Just (ix, e)) <- listSelectedElement lr'
+  , c `elem` ['i', 's', 'u', 'c']
+  = suspendAndResume $ do
+    r <- case c of
+      'i' -> install' e dls'
+      's' -> set' e
+      'u' -> del' e
+      'c' -> changelog' e dls'
+      _   -> error ""
    case r of
      Left  err -> throwIO $ userError err
      Right _   -> do
        apps <- (fmap . fmap)
          (\AppState {..} -> AppState { lr = listMoveTo ix lr, .. })
-          $ getAppState Nothing (pfreq as)
+          getAppState
        case apps of
-          Right nas -> do
+          Right as  -> do
            putStrLn "Press enter to continue"
            _ <- getLine
-            pure nas
-          Left err -> throwIO $ userError err
+            pure as
+          Left  err -> throwIO $ userError err
+eventHandler st _ = continue st


-install' :: AppState -> (Int, ListResult) -> IO (Either String ())
-install' AppState {..} (_, ListResult {..}) = do
-  settings <- readIORef settings'
-  l        <- readIORef logger'
+install' :: ListResult -> GHCupDownloads -> IO (Either String ())
+install' ListResult {..} dls = do
+  l <- readIORef logger'
  let runLogger = myLoggerT l

  let
@@ -200,26 +167,13 @@ install' AppState {..} (_, ListResult {..}) = do
        . flip runReaderT settings
        . runResourceT
        . runE
-          @'[AlreadyInstalled
-            , UnknownArchive
-#if !defined(TAR)
-            , ArchiveResult
-#endif
-            , FileDoesNotExistError
-            , CopyError
-            , NoDownload
-            , NotInstalled
-            , BuildFailed
-            , TagNotFound
-            , DigestError
-            , DownloadFailed
-            , NoUpdate]
+          @'[AlreadyInstalled, UnknownArchive, ArchiveResult, DistroNotFound, FileDoesNotExistError, CopyError, NoCompatibleArch, NoDownload, NotInstalled, NoCompatiblePlatform, BuildFailed, TagNotFound, DigestError, DownloadFailed, NoUpdate]

  (run $ do
      case lTool of
-        GHC   -> liftE $ installGHCBin dls lVer pfreq
-        Cabal -> liftE $ installCabalBin dls lVer pfreq
-        GHCup -> liftE $ upgradeGHCup dls Nothing False pfreq $> ()
+        GHC   -> liftE $ installGHCBin dls lVer Nothing
+        Cabal -> liftE $ installCabalBin dls lVer Nothing
+        GHCup -> liftE $ upgradeGHCup dls Nothing False $> ()
    )
    >>= \case
          VRight _                          -> pure $ Right ()
@@ -233,10 +187,9 @@ install' AppState {..} (_, ListResult {..}) = do
 Also check the logs in ~/.ghcup/logs|]


-set' :: AppState -> (Int, ListResult) -> IO (Either String ())
-set' _ (_, ListResult {..}) = do
-  settings <- readIORef settings'
-  l        <- readIORef logger'
+set' :: ListResult -> IO (Either String ())
+set' ListResult {..} = do
+  l <- readIORef logger'
  let runLogger = myLoggerT l

  let run =
@@ -255,10 +208,9 @@ set' _ (_, ListResult {..}) = do
          VLeft  e -> pure $ Left [i|#{e}|]


-del' :: AppState -> (Int, ListResult) -> IO (Either String ())
-del' _ (_, ListResult {..}) = do
-  settings <- readIORef settings'
-  l        <- readIORef logger'
+del' :: ListResult -> IO (Either String ())
+del' ListResult {..} = do
+  l <- readIORef logger'
  let runLogger = myLoggerT l

  let run = runLogger . flip runReaderT settings . runE @'[NotInstalled]
@@ -274,36 +226,23 @@ del' _ (_, ListResult {..}) = do
          VLeft  e -> pure $ Left [i|#{e}|]


-changelog' :: AppState -> (Int, ListResult) -> IO (Either String ())
-changelog' AppState {..} (_, ListResult {..}) = do
+changelog' :: ListResult -> GHCupDownloads -> IO (Either String ())
+changelog' ListResult {..} dls = do
  case getChangeLog dls lTool (Left lVer) of
    Nothing -> pure $ Left
      [i|Could not find ChangeLog for #{lTool}, version #{prettyVer lVer}|]
    Just uri -> do
-      let cmd = case _rPlatform pfreq of
-                  Darwin  -> "open"
-                  Linux _ -> "xdg-open"
-                  FreeBSD -> "xdg-open"
-      exec cmd True [serializeURIRef' uri] Nothing Nothing >>= \case
+      exec "xdg-open" True [serializeURIRef' uri] Nothing Nothing >>= \case
        Right _ -> pure $ Right ()
        Left  e -> pure $ Left [i|#{e}|]


-uri' :: IORef (Maybe URI)
-{-# NOINLINE uri' #-}
-uri' = unsafePerformIO (newIORef Nothing)
-
-
-settings' :: IORef Settings
-{-# NOINLINE settings' #-}
-settings' = unsafePerformIO
-  (newIORef Settings { cache      = True
-                     , noVerify   = False
-                     , keepDirs   = Never
-                     , downloader = Curl
-                     , verbose    = False
-                     }
-  )
+settings :: Settings
+settings = Settings { cache      = True
+                    , noVerify   = False
+                    , keepDirs   = Never
+                    , downloader = Curl
+                    }


 logger' :: IORef LoggerConfig
@@ -316,47 +255,37 @@ logger' = unsafePerformIO
  )


-brickMain :: Settings -> Maybe URI -> LoggerConfig -> GHCupDownloads -> PlatformRequest -> IO ()
-brickMain s muri l av pfreq' = do
-  writeIORef uri'      muri
-  writeIORef settings' s
+brickMain :: LoggerConfig -> IO ()
+brickMain l = do
  -- logger interpreter
-  writeIORef logger'   l
+  writeIORef logger' l
  let runLogger = myLoggerT l

-  eApps <- getAppState (Just av) pfreq'
+  eApps <- getAppState
  case eApps of
-    Right as -> defaultMain app (selectLatest as) $> ()
-    Left  e  -> do
-      runLogger ($(logError) [i|Error building app state: #{show e}|])
+    Right as -> defaultMain app as $> ()
+    Left  _  -> do
+      runLogger ($(logError) [i|Error building app state|])
      exitWith $ ExitFailure 2
- where
-  selectLatest :: AppState -> AppState
-  selectLatest AppState {..} =
-    (\ix -> AppState { lr = listMoveTo ix lr, .. })
-      . fromJust
-      . V.findIndex (\ListResult {..} -> lTool == GHC && Latest `elem` lTag)
-      $ (listElements lr)


-getAppState :: Maybe GHCupDownloads -> PlatformRequest -> IO (Either String AppState)
-getAppState mg pfreq' = do
-  muri     <- readIORef uri'
-  settings <- readIORef settings'
-  l        <- readIORef logger'
+getAppState :: IO (Either String AppState)
+getAppState = do
+  l <- readIORef logger'
  let runLogger = myLoggerT l

  r <-
    runLogger
    . flip runReaderT settings
    . runE
-      @'[JSONError, DownloadFailed, FileDoesNotExistError]
+      @'[JSONError, DownloadFailed, FileDoesNotExistError, NoCompatiblePlatform, NoCompatibleArch, DistroNotFound]
    $ do
-        dls <- maybe (fmap _ghcupDownloads $ liftE $ getDownloadsF (maybe GHCupURL OwnSource muri)) pure mg
+        (GHCupInfo _ dls) <- liftE $ getDownloadsF GHCupURL

-        lV <- lift $ listVersions dls Nothing Nothing pfreq'
-        pure $ (AppState (list "Tool versions" (V.fromList lV) 1) dls pfreq')
+        lV                 <- liftE $ listVersions dls Nothing Nothing
+        pure $ (AppState (list "Tool versions" (V.fromList lV) 1) dls)

  case r of
    VRight a -> pure $ Right a
    VLeft  e -> pure $ Left [i|#{e}|]
+
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -28,9 +28,7 @@ import           GHCup.Utils.Prelude
 import           GHCup.Utils.String.QQ
 import           GHCup.Version

-#if !defined(TAR)
 import           Codec.Archive
-#endif
 import           Control.Exception.Safe
 #if !MIN_VERSION_base(4,13,0)
 import           Control.Monad.Fail             ( MonadFail )
@@ -808,7 +806,6 @@ toSettings Options {..} =
      noVerify   = optNoVerify
      keepDirs   = optKeepDirs
      downloader = optsDownloader
-      verbose    = optVerbose
  in  Settings { .. }


@@ -912,13 +909,14 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                  . runE
                    @'[ AlreadyInstalled
                      , UnknownArchive
-#if !defined(TAR)
                      , ArchiveResult
-#endif
+                      , DistroNotFound
                      , FileDoesNotExistError
                      , CopyError
+                      , NoCompatibleArch
                      , NoDownload
                      , NotInstalled
+                      , NoCompatiblePlatform
                      , BuildFailed
                      , TagNotFound
                      , DigestError
@@ -943,7 +941,7 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                    , TagNotFound
                    ]

-          let runListGHC = runLogger
+          let runListGHC = runLogger . runE @'[NoCompatiblePlatform, NoCompatibleArch, DistroNotFound]

          let runRm =
                runLogger . flip runReaderT settings . runE @'[NotInstalled]
@@ -962,15 +960,16 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                    @'[ AlreadyInstalled
                      , BuildFailed
                      , DigestError
+                      , DistroNotFound
                      , DownloadFailed
                      , GHCupSetError
+                      , NoCompatibleArch
+                      , NoCompatiblePlatform
                      , NoDownload
                      , NotFoundInPATH
                      , PatchFailed
                      , UnknownArchive
-#if !defined(TAR)
                      , ArchiveResult
-#endif
                      ]

          let runCompileCabal =
@@ -982,14 +981,15 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                      , BuildFailed
                      , CopyError
                      , DigestError
+                      , DistroNotFound
                      , DownloadFailed
+                      , NoCompatibleArch
+                      , NoCompatiblePlatform
                      , NoDownload
                      , NotInstalled
                      , PatchFailed
                      , UnknownArchive
-#if !defined(TAR)
                      , ArchiveResult
-#endif
                      ]

          let runUpgrade =
@@ -998,6 +998,9 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                  . runResourceT
                  . runE
                    @'[ DigestError
+                      , DistroNotFound
+                      , NoCompatiblePlatform
+                      , NoCompatibleArch
                      , NoDownload
                      , NoUpdate
                      , FileDoesNotExistError
@@ -1006,19 +1009,9 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                      ]


-          ----------------------------------------
-          -- Getting download and platform info --
-          ----------------------------------------
-
-          pfreq <- (
-            runLogger . runE @'[NoCompatiblePlatform, NoCompatibleArch, DistroNotFound] . liftE $ platformRequest
-            ) >>= \case
-                    VRight r -> pure r
-                    VLeft e -> do
-                      runLogger
-                        ($(logError) [i|Error determining Platform: #{e}|])
-                      exitWith (ExitFailure 2)
-
+          ---------------------------
+          -- Getting download info --
+          ---------------------------

          (GHCupInfo treq dls) <-
            ( runLogger
@@ -1033,11 +1026,14 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                      runLogger
                        ($(logError) [i|Error fetching download info: #{e}|])
                      exitWith (ExitFailure 2)
-
-          case optCommand of
-            Upgrade _ _ -> pure ()
-            _ -> runLogger $ checkForUpdates dls pfreq
-
+          (runLogger
+              . runE @'[NoCompatiblePlatform, NoCompatibleArch, DistroNotFound] $ checkForUpdates dls
+              )
+              >>= \case
+                    VRight _ -> pure ()
+                    VLeft  e -> do
+                      runLogger
+                        ($(logError) [i|Error checking for upgrades: #{e}|])


          -----------------------
@@ -1047,7 +1043,7 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
          let installGHC InstallOptions{..} =
                  (runInstTool $ do
                      v <- liftE $ fromVersion dls instVer GHC
-                      liftE $ installGHCBin dls (_tvVersion v) (fromMaybe pfreq instPlatform) -- FIXME: ugly sharing of tool version
+                      liftE $ installGHCBin dls (_tvVersion v) instPlatform -- FIXME: ugly sharing of tool version
                    )
                    >>= \case
                          VRight _ -> do
@@ -1081,7 +1077,7 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
          let installCabal InstallOptions{..} =
                (runInstTool $ do
                    v <- liftE $ fromVersion dls instVer Cabal
-                    liftE $ installCabalBin dls (_tvVersion v) (fromMaybe pfreq instPlatform) -- FIXME: ugly sharing of tool version
+                    liftE $ installCabalBin dls (_tvVersion v) instPlatform -- FIXME: ugly sharing of tool version
                  )
                  >>= \case
                        VRight _ -> do
@@ -1154,7 +1150,7 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]

          res <- case optCommand of
 #if defined(BRICK)
-            Interactive -> liftIO $ brickMain settings optUrlSource loggerConfig dls pfreq >> pure ExitSuccess
+            Interactive -> liftIO $ brickMain loggerConfig >> pure ExitSuccess
 #endif
            Install (Right iopts) -> do
              runLogger ($(logWarn) [i|This is an old-style command for installing GHC. Use 'ghcup install ghc' instead.|])
@@ -1173,10 +1169,16 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]

            List (ListOptions {..}) ->
              (runListGHC $ do
-                  l <- listVersions dls lTool lCriteria pfreq
-                  liftIO $ printListResult lRawFormat l
-                  pure ExitSuccess
+                  l <- listVersions dls lTool lCriteria
+                  pure l
                )
+                >>= \case
+                      VRight r -> do
+                        liftIO $ printListResult lRawFormat r
+                        pure ExitSuccess
+                      VLeft e -> do
+                        runLogger ($(logError) [i|#{e}|])
+                        pure $ ExitFailure 6

            Rm (Right rmopts) -> do
              runLogger ($(logWarn) [i|This is an old-style command for removing GHC. Use 'ghcup rm ghc' instead.|])
@@ -1203,7 +1205,6 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                                                  buildConfig
                                                  patchDir
                                                  addConfArgs
-                                                  pfreq
                )
                >>= \case
                      VRight _ -> do
@@ -1228,7 +1229,7 @@ Make sure to clean up #{tmpdir} afterwards.|])

            Compile (CompileCabal CabalCompileOptions {..}) ->
              (runCompileCabal $ do
-                  liftE $ compileCabal dls targetVer bootstrapGhc jobs patchDir pfreq
+                  liftE $ compileCabal dls targetVer bootstrapGhc jobs patchDir
                )
                >>= \case
                      VRight _ -> do
@@ -1259,7 +1260,7 @@ Make sure to clean up #{tmpdir} afterwards.|])
                  bdir <- liftIO $ ghcupBinDir
                  pure (Just (bdir </> [rel|ghcup|]))

-              (runUpgrade $ (liftE $ upgradeGHCup dls target force pfreq)) >>= \case
+              (runUpgrade $ (liftE $ upgradeGHCup dls target force)) >>= \case
                VRight v' -> do
                  let pretty_v = prettyVer v'
                  runLogger $ $(logInfo)
@@ -1311,14 +1312,9 @@ Make sure to clean up #{tmpdir} afterwards.|])
                  pure ExitSuccess
                Just uri -> do
                  let uri' = T.unpack . decUTF8Safe . serializeURIRef' $ uri
-                      cmd = case _rPlatform pfreq of
-                              Darwin  -> "open"
-                              Linux _ -> "xdg-open"
-                              FreeBSD -> "xdg-open"
-
                  if clOpen
                    then
-                      exec cmd
+                      exec "xdg-open"
                           True
                           [serializeURIRef' uri]
                           Nothing
@@ -1410,32 +1406,37 @@ printListResult raw lr = do

 checkForUpdates :: (MonadCatch m, MonadLogger m, MonadThrow m, MonadIO m, MonadFail m, MonadLogger m)
                => GHCupDownloads
-                -> PlatformRequest
-                -> m ()
-checkForUpdates dls pfreq = do
+                -> Excepts
+                     '[ NoCompatiblePlatform
+                      , NoCompatibleArch
+                      , DistroNotFound
+                      ]
+                     m
+                     ()
+checkForUpdates dls = do
  forM_ (getLatest dls GHCup) $ \l -> do
    (Right ghc_ver) <- pure $ version $ prettyPVP ghcUpVer
    when (l > ghc_ver)
-      $ $(logWarn)
+      $ lift $ $(logWarn)
          [i|New GHCup version available: #{prettyVer l}. To upgrade, run 'ghcup upgrade'|]

  forM_ (getLatest dls GHC) $ \l -> do
    mghc_ver <- latestInstalled GHC
    forM mghc_ver $ \ghc_ver ->
      when (l > ghc_ver)
-        $ $(logWarn)
+        $ lift $ $(logWarn)
            [i|New GHC version available: #{prettyVer l}. To upgrade, run 'ghcup install ghc #{prettyVer l}'|]

  forM_ (getLatest dls Cabal) $ \l -> do
    mcabal_ver <- latestInstalled Cabal
    forM mcabal_ver $ \cabal_ver ->
      when (l > cabal_ver)
-        $ $(logWarn)
+        $ lift $ $(logWarn)
            [i|New Cabal version available: #{prettyVer l}. To upgrade, run 'ghcup install cabal #{prettyVer l}'|]

 where
  latestInstalled tool = (fmap lVer . lastMay)
-    <$> (listVersions dls (Just tool) (Just ListInstalled) pfreq)
+    <$> (listVersions dls (Just tool) (Just ListInstalled))


 prettyDebugInfo :: DebugInfo -> String
--- a/41
+++ b/41
@@ -28,25 +28,16 @@ eghcup() {
 download_ghcup() {
 	_plat="$(uname -s)"
 	_arch=$(uname -m)
-	_ghver="0.1.7"
-	_base_url="https://downloads.haskell.org/~ghcup"
+	_ghver="0.1.5"

    case "${_plat}" in
        "linux"|"Linux")
 			case "${_arch}" in
 				x86_64|amd64)
-					# we could be in a 32bit docker container, in which
-					# case uname doesn't give us what we want
-					if [ "$(getconf LONG_BIT)" = "32" ] ; then
-						_url=${_base_url}/${_ghver}/i386-linux-ghcup-${_ghver}
-					elif [ "$(getconf LONG_BIT)" = "64" ] ; then
-						_url=${_base_url}/${_ghver}/x86_64-linux-ghcup-${_ghver}
-					else
-						die "Unknown long bit size: $(getconf LONG_BIT)"
-					fi
+					_url=https://downloads.haskell.org/~ghcup/${_ghver}/x86_64-linux-ghcup-${_ghver}
 					;;
 				i*86)
-					_url=${_base_url}/${_ghver}/i386-linux-ghcup-${_ghver}
+					_url=https://downloads.haskell.org/~ghcup/${_ghver}/i386-linux-ghcup-${_ghver}
 					;;
 				*) die "Unknown architecture: ${_arch}"
 					;;
@@ -62,7 +53,7 @@ download_ghcup() {
 				*) die "Unknown architecture: ${_arch}"
 					;;
 			esac
-			_url=${_base_url}/${_ghver}/x86_64-portbld-freebsd-ghcup-${_ghver}
+			_url=https://downloads.haskell.org/~ghcup/${_ghver}/x86_64-portbld-freebsd-ghcup-${_ghver}
            ;;
        "Darwin"|"darwin")
 			case "${_arch}" in
@@ -74,14 +65,14 @@ download_ghcup() {
 				*) die "Unknown architecture: ${_arch}"
 					;;
 			esac
-			_url=${_base_url}/${_ghver}/x86_64-apple-darwin-ghcup-${_ghver} ;;
+			_url=https://downloads.haskell.org/~ghcup/0.1.5/x86_64-apple-darwin-ghcup-0.1.5-p2 ;;
        *) die "Unknown platform: ${_plat}"
 			;;
    esac

 	edo curl -Lf "${_url}" > "${GHCUP_INSTALL_BASE_PREFIX}"/.ghcup/bin/ghcup

-	unset _plat _arch _url _ghver _base_url
+	unset _plat _arch _url _ghver
 }


@@ -138,10 +129,10 @@ if [ -z "${BOOTSTRAP_HASKELL_NONINTERACTIVE}" ] ; then
    read -r answer </dev/tty
 fi

-eghcup --cache install ghc "${BOOTSTRAP_HASKELL_GHC_VERSION}"
+eghcup --cache install "${BOOTSTRAP_HASKELL_GHC_VERSION}"

-eghcup set ghc "${BOOTSTRAP_HASKELL_GHC_VERSION}"
-eghcup --cache install cabal "${BOOTSTRAP_HASKELL_CABAL_VERSION}"
+eghcup set "${BOOTSTRAP_HASKELL_GHC_VERSION}"
+eghcup --cache install-cabal "${BOOTSTRAP_HASKELL_CABAL_VERSION}"

 edo cabal new-update

@@ -172,9 +163,6 @@ if [ -z "${BOOTSTRAP_HASKELL_NONINTERACTIVE}" ] ; then
 				exit 0
 			fi
 			;;
-		*/fish) # login shell is fish
-			GHCUP_PROFILE_FILE="$HOME/.config/fish/config.fish"
-			MY_SHELL="fish" ;;
 		*) exit 0 ;;
 	esac

@@ -190,16 +178,7 @@ if [ -z "${BOOTSTRAP_HASKELL_NONINTERACTIVE}" ] ; then

        case $next_answer in
            [Yy]*)
-				case $MY_SHELL in
-					"") break ;;
-					fish)
-						echo "set -q GHCUP_INSTALL_BASE_PREFIX[1]; or set GHCUP_INSTALL_BASE_PREFIX \$HOME" >> "${GHCUP_PROFILE_FILE}"
-						echo "test -f \$GHCUP_INSTALL_BASE_PREFIX/.ghcup/env ; and set -gx PATH \$HOME/.cabal/bin \$GHCUP_INSTALL_BASE_PREFIX/.ghcup/bin \$PATH" >> "${GHCUP_PROFILE_FILE}"
-						break ;;
-					*)
-						echo "[ -f \"\${GHCUP_INSTALL_BASE_PREFIX:=\$HOME}/.ghcup/env\" ] && source \"\${GHCUP_INSTALL_BASE_PREFIX:=\$HOME}/.ghcup/env\"" >> "${GHCUP_PROFILE_FILE}"
-						break ;;
-				esac
+                echo "[ -f \"\${GHCUP_INSTALL_BASE_PREFIX:=\$HOME}/.ghcup/env\" ] && source \"\${GHCUP_INSTALL_BASE_PREFIX:=\$HOME}/.ghcup/env\"" >> "${GHCUP_PROFILE_FILE}"
                printf "\\033[0;35m%s\\033[0m\\n" "OK! ${GHCUP_PROFILE_FILE} has been modified. Restart your terminal for the changes to take effect,"
                printf "\\033[0;35m%s\\033[0m\\n" "or type \"source ${GHCUP_INSTALL_BASE_PREFIX}/.ghcup/env\" to apply them in your current terminal session."
                exit 0;;
--- a/cabal.project
+++ b/cabal.project
@@ -2,12 +2,6 @@ packages: ./ghcup.cabal

 optional-packages: ./3rdparty/*/*.cabal

-source-repository-package
-    type: git
-    location: https://github.com/haskus/packages.git
-    tag: 80a1c5fc07f7226c424250ec17f674cd4d618f42
-    subdir: haskus-utils-types
-
 optimization: 2

 package streamly
@@ -21,4 +15,4 @@ constraints: http-io-streams -brotli
 package libarchive
  flags: static

-allow-newer: base ghc-prim template-haskell
+allow-newer: base
--- a/ghcup-0.0.2.json
+++ b/ghcup-0.0.2.json
@@ -115,6 +115,13 @@
      "8.6.2": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "5be9f98c25c49dbfb65223e2642335d4a45220f0c4044c8af70bbcaebe688467",
+                "dlSubdir": "ghc-8.6.2",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.2-musl/ghc-8.6.2-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "13f96e8b83bb5bb60f955786ff9085744c24927a33be8a17773f84c7c248533a",
@@ -169,6 +176,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "a1add75822258fbb6e57ad049919ef5f757bac10d3c7a6eaeee50d2521ffeb4e",
+                "dlSubdir": "ghc-8.6.2",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.2-musl/ghc-8.6.2-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "a288026d9ef22f7ac387edab6b29ef7dcb3b28945c8ea532a15c1fa35d4733ed",
@@ -214,9 +228,9 @@
          "A_64": {
            "Linux_Alpine": {
              "unknown_versioning": {
-                "dlHash": "517783b660a27ebf95b2568d47292fd633d5f9a4de4c80ad1ccf05e1b9d7313f",
+                "dlHash": "7f9ef3e048ca6f2a2a589e6c168d8c7699fbe32b1b39a9d7c72eff9b26e90c67",
                "dlSubdir": "ghc-8.0.2",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.0.2-x86_64-alpine-linux.tar.xz"
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.0.2-musl/ghc-8.0.2-x86_64-unknown-linux-musl.tar.xz"
              }
            },
            "FreeBSD": {
@@ -270,9 +284,9 @@
          "A_32": {
            "Linux_Alpine": {
              "unknown_versioning": {
-                "dlHash": "b4cd12a1048b2fff2f23c9eec0dd3a1174d54d017f8d79ec79af4534118e6881",
+                "dlHash": "815c68181013cd3f4dc748ddb5502a5e7a1a4011ba57d8eff6d66da411c72e84",
                "dlSubdir": "ghc-8.0.2",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.0.2-i386-alpine-linux.tar.xz"
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.0.2-musl/ghc-8.0.2-i386-unknown-linux-musl.tar.xz"
              }
            },
            "Linux_Debian": {
@@ -309,6 +323,13 @@
      "8.6.4": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "ec73167bae1a173a9af07612df5fa1289e924f13ed9241339cb5617337cb2979",
+                "dlSubdir": "ghc-8.6.4",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.4-musl/ghc-8.6.4-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "ef74222ef3c01c3fc5b926f67e8b4ef612fe8efa40ac937317cff9b0eed8d863",
@@ -368,6 +389,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "21b39b89edadbb6ab5b98d46dfacc0fd0799f9b16465a05c64e48f41dcbb1f7a",
+                "dlSubdir": "ghc-8.6.4",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.4-musl/ghc-8.6.4-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "5e2ce88f4d13d23ac37e278e0c7b51c801008931359b9fa8a631d804d2da552c",
@@ -411,6 +439,13 @@
      "8.4.1": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "82d4ea6247a91e7e76065c0cdf66eec813ab679c1f24de0fb92c89bba3ef27f2",
+                "dlSubdir": "ghc-8.4.1",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.1-musl/ghc-8.4.1-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "FreeBSD": {
              "unknown_versioning": {
                "dlHash": "e748daec098445c6190090fe32bb2817a1140553be5acd2188e1af05ad24e5aa",
@@ -462,6 +497,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "e5feee34b58c1a1cd6c270fbe696c178a4649675398f4e0d56a4bfad9641b736",
+                "dlSubdir": "ghc-8.4.1",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.1-musl/ghc-8.4.1-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "c56c589c76c7ddcb77cdbef885a811761e669d3e76868b723d5be56dedcd4f69",
@@ -505,6 +547,13 @@
      "8.6.3": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "274f7ea959e6f1c830b33efd462ab9d0ff32d1cb5be051a2a318464d05d674dd",
+                "dlSubdir": "ghc-8.6.3",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.3-musl/ghc-8.6.3-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "FreeBSD": {
              "unknown_versioning": {
                "dlHash": "bc2419fa180f8a7808c49775987866435995df9bdd9ce08bcd38352d63ba6031",
@@ -592,6 +641,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "dc0b53a7f0e52232930abcfad427ccd0917c90797203fbc7b5d72f5335d85a7d",
+                "dlSubdir": "ghc-8.6.3",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.3-musl/ghc-8.6.3-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "b57070ba8c70b1333a3e47ce124baf791be39c20a592954772532fd6dd51882f",
@@ -642,13 +698,6 @@
                "dlUri": "https://downloads.haskell.org/~ghc/8.10.1/ghc-8.10.1-x86_64-alpine3.10-linux-integer-simple.tar.xz"
              }
            },
-            "FreeBSD": {
-              "unknown_versioning": {
-                "dlHash": "52d27dbf9de82005dde9bfc521bff612e381b5228af194259c2306d2b75825c2",
-                "dlSubdir": "ghc-8.10.1",
-                "dlUri": "https://downloads.haskell.org/ghc/8.10.1/ghc-8.10.1-x86_64-portbld-freebsd.tar.xz"
-              }
-            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "d1cf7886f27af070f3b7dbe1975a78b43ef2d32b86362cbe953e79464fe70761",
@@ -744,13 +793,6 @@
            }
          },
          "A_32": {
-            "Linux_Alpine": {
-              "unknown_versioning": {
-                "dlHash": "7360cc6b29e9b4ab08f6ea5bc3bcca6f5c216933e81ef1620dcdd700f1fdb289",
-                "dlSubdir": "ghc-8.10.1",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.10.1-i386-alpine-linux.tar.xz"
-              }
-            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "8b53eef2c827b5f634d72920a93c0c9dd66ea288691a2bfe28def45d3c686ee2",
@@ -802,16 +844,9 @@
          "A_64": {
            "Linux_Alpine": {
              "unknown_versioning": {
-                "dlHash": "b9d3ed7f7aa24ef2d58bb579252289caa0b8877adee3685e3af2fb73d440afdc",
+                "dlHash": "ec6d0417822c3bfafc7aea0b0402294901231bc5d72dd17a2b849e3f44850695",
                "dlSubdir": "ghc-8.6.5",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.6.5-x86_64-alpine-linux.tar.xz"
-              }
-            },
-            "FreeBSD": {
-              "unknown_versioning": {
-                "dlHash": "83a3059a630d40a98e26cb5b520354e12094a96e36ba2f5ab002dad94cf2fb37",
-                "dlSubdir": "ghc-8.6.5",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.6.5-x86_64-portbld-freebsd.tar.xz"
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.5-musl/ghc-8.6.5-x86_64-unknown-linux-musl.tar.xz"
              }
            },
            "Linux_Debian": {
@@ -896,9 +931,9 @@
          "A_32": {
            "Linux_Alpine": {
              "unknown_versioning": {
-                "dlHash": "3737837550d9b177acfe150e3a3cd4545427ded020487c2ed5194d7b8f116349",
+                "dlHash": "db13ff894faf431f9c64db21c090a1e4e42803794d56720a704c50166c7ca05d",
                "dlSubdir": "ghc-8.6.5",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.6.5-i386-alpine-linux.tar.xz"
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.5-musl/ghc-8.6.5-i386-unknown-linux-musl.tar.xz"
              }
            },
            "Linux_Debian": {
@@ -944,6 +979,13 @@
      "8.4.2": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "3ebdb6e8001679e8722bd75a47805f1b3c1b25b37c4d237a7aaa4d66162f699f",
+                "dlSubdir": "ghc-8.4.2",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.2-musl/ghc-8.4.2-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "FreeBSD": {
              "unknown_versioning": {
                "dlHash": "e9ed417fdf94c2ff2c6e344ed16f332bf6b591511f6442c0d9ea94854882b66c",
@@ -1010,6 +1052,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "a43ac57214764717f0ffe515ef47b84e938f0a4fa8ff875773d6ba315b940835",
+                "dlSubdir": "ghc-8.4.2",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.2-musl/ghc-8.4.2-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "2d849c30b4c1eac25dc74333501920921e22fa483153f404993808bbda93df05",
@@ -1053,6 +1102,13 @@
      "8.8.1": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "029163c42a219983f4220d73c26b910c3ecf6eda45a3e5e27236e8a66b080890",
+                "dlSubdir": "ghc-8.8.1",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.1-musl/ghc-8.8.1-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "620fd560535b63cac5f8c97354ccddf93fa940cca78e2d19f6f98b7e67c6a723",
@@ -1133,6 +1189,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "3f5462341a455a5677fba5cb24da8938878261069da5ee4234b1c6ac2d2ef77e",
+                "dlSubdir": "ghc-8.8.1",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.1-musl/ghc-8.8.1-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "3d3bb75aff2dd79ec87ace10483368681fbc328ff00ebf15edad33420f00f7f5",
@@ -1173,154 +1236,16 @@
          "base-4.13.0.0"
        ]
      },
-      "8.8.4": {
-        "viArch": {
-          "A_64": {
-            "Linux_Alpine": {
-              "unknown_versioning": {
-                "dlHash": "90c6a1661de7f20c7d169cd6270125035b3332063e45103ce028df0beecf434e",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.8.4-x86_64-alpine-linux.tar.xz"
-              }
-            },
-            "FreeBSD": {
-              "unknown_versioning": {
-                "dlHash": "8cebe5ccf454e82acd1ff52ca57590d1ab0f3f44a981b46257ec12158c8c447e",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.8.4-x86_64-portbld-freebsd.tar.xz"
-              }
-            },
-            "Linux_Debian": {
-              "unknown_versioning": {
-                "dlHash": "4862559d221153caf978f4bf2c15a82c114d1e1f43b298b2ecff2ac94b586d20",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-deb9-linux.tar.xz"
-              },
-              "8": {
-                "dlHash": "51a36892f1264744195274187298d13ac62bce2da86d4ddf76d8054ab90f2feb",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-deb8-linux.tar.xz"
-              }
-            },
-            "Linux_Ubuntu": {
-              "unknown_versioning": {
-                "dlHash": "f32e37f8aa03e74bad533ae02f62dc27a4521e78199576af490888ba34b515db",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-fedora27-linux.tar.xz"
-              },
-              "16.04": {
-                "dlHash": "4862559d221153caf978f4bf2c15a82c114d1e1f43b298b2ecff2ac94b586d20",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-deb9-linux.tar.xz"
-              },
-              "18.04": {
-                "dlHash": "4862559d221153caf978f4bf2c15a82c114d1e1f43b298b2ecff2ac94b586d20",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-deb9-linux.tar.xz"
-              }
-            },
-            "Darwin": {
-              "unknown_versioning": {
-                "dlHash": "e80a789e9d8cfb41dd87f3284b75432427c4461c1731d220d04ead8733ccdb5e",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-apple-darwin.tar.xz"
-              }
-            },
-            "Linux_RedHat": {
-              "unknown_versioning": {
-                "dlHash": "a12aa4b1fd3c64240a8a6d15196d33e1c0e0d55b51ff78c387242126d0ef7910",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-centos7-linux.tar.xz"
-              }
-            },
-            "Linux_UnknownLinux": {
-              "unknown_versioning": {
-                "dlHash": "f32e37f8aa03e74bad533ae02f62dc27a4521e78199576af490888ba34b515db",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-fedora27-linux.tar.xz"
-              }
-            },
-            "Linux_Mint": {
-              "unknown_versioning": {
-                "dlHash": "4862559d221153caf978f4bf2c15a82c114d1e1f43b298b2ecff2ac94b586d20",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-deb9-linux.tar.xz"
-              }
-            },
-            "Linux_Fedora": {
-              "unknown_versioning": {
-                "dlHash": "f32e37f8aa03e74bad533ae02f62dc27a4521e78199576af490888ba34b515db",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-fedora27-linux.tar.xz"
-              }
-            },
-            "Linux_CentOS": {
-              "unknown_versioning": {
-                "dlHash": "a12aa4b1fd3c64240a8a6d15196d33e1c0e0d55b51ff78c387242126d0ef7910",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-centos7-linux.tar.xz"
-              }
-            },
-            "Linux_AmazonLinux": {
-              "unknown_versioning": {
-                "dlHash": "a12aa4b1fd3c64240a8a6d15196d33e1c0e0d55b51ff78c387242126d0ef7910",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-centos7-linux.tar.xz"
-              }
-            }
-          },
-          "A_32": {
-            "Linux_Alpine": {
-              "unknown_versioning": {
-                "dlHash": "1d18e89ee031197e55c48683e78a7ffc67601ac5fd9f73aac555eb064b3859a2",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.8.4-i386-alpine-linux.tar.xz"
-              }
-            },
-            "Linux_Debian": {
-              "unknown_versioning": {
-                "dlHash": "43dd954910c9027694312cef0aabc7774d102d0422b7172802cfb72f7d5da3a0",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-i386-deb9-linux.tar.xz"
-              }
-            },
-            "Linux_Ubuntu": {
-              "unknown_versioning": {
-                "dlHash": "43dd954910c9027694312cef0aabc7774d102d0422b7172802cfb72f7d5da3a0",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-i386-deb9-linux.tar.xz"
-              }
-            },
-            "Linux_UnknownLinux": {
-              "unknown_versioning": {
-                "dlHash": "43dd954910c9027694312cef0aabc7774d102d0422b7172802cfb72f7d5da3a0",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-i386-deb9-linux.tar.xz"
-              }
-            },
-            "Linux_Mint": {
-              "unknown_versioning": {
-                "dlHash": "43dd954910c9027694312cef0aabc7774d102d0422b7172802cfb72f7d5da3a0",
-                "dlSubdir": "ghc-8.8.4",
-                "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-i386-deb9-linux.tar.xz"
-              }
-            }
-          }
-        },
-        "viSourceDL": {
-          "dlHash": "f0505e38b2235ff9f1090b51f44d6c8efd371068e5a6bb42a2a6d8b67b5ffc2d",
-          "dlSubdir": "ghc-8.8.4",
-          "dlUri": "https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-src.tar.xz"
-        },
-        "viChangeLog": "https://downloads.haskell.org/~ghc/8.8.4/docs/html/users_guide/8.8.4-notes.html",
-        "viTags": [
-          "Recommended",
-          "base-4.13.0.0"
-        ]
-      },
      "8.4.3": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "0f05c67e3fd29a3f505abb77e9c39349d312cdc1a566263b8f4b227d085906bc",
+                "dlSubdir": "ghc-8.4.3",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.3-musl/ghc-8.4.3-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "2e4f53afb872ad9c640f31aea283b3ff4c5028b65808a1920739900aef7d15c9",
@@ -1380,6 +1305,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "3a9a1ceb8eef234023fc36600245a03772bcb46b2abac41f6394104feaec8c43",
+                "dlSubdir": "ghc-8.4.3",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.3-musl/ghc-8.4.3-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "f5763983a26dedd88b65a0b17267359a3981b83a642569b26334423f684f8b8c",
@@ -1423,6 +1355,13 @@
      "8.6.1": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "2668e12facfa9083150b01b1137693cb3de266a6f8ac8c6b44a2be3826c73177",
+                "dlSubdir": "ghc-8.6.1",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.1-musl/ghc-8.6.1-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "FreeBSD": {
              "unknown_versioning": {
                "dlHash": "51403b054a3a649039ac988e1d1112561f96750bfced63df864091a3fab36f08",
@@ -1489,6 +1428,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "12b9b5b78be94b57d301b2a31eda145928110fd103fbbcc1e6e6966237a30ed2",
+                "dlSubdir": "ghc-8.6.1",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.1-musl/ghc-8.6.1-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "83573af96e3dec8f67c1a844512f92cbf7d51ae7ceca53d948fc2a3300abd05c",
@@ -1532,6 +1478,13 @@
      "8.8.2": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "09d49c75b5626606409c982b23f70dec241a944928243f32d1b59b2005de6dea",
+                "dlSubdir": "ghc-8.8.2",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.2-musl/ghc-8.8.2-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "7b2d66c2d5d8c15750da5833d3018634a5eb792a5662282e3abfeb112c2a1cc3",
@@ -1612,6 +1565,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "4ea4a81b6b5ba807c93b21b3cddf1f1b4b0fc1ce018cf6aa255a9ee40137b278",
+                "dlSubdir": "ghc-8.8.2",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.2-musl/ghc-8.8.2-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "ad1c628082c32635a436905a7ff83eaa4246347d869be5ef6b33c3bf85e8f00c",
@@ -1655,6 +1615,13 @@
      "7.10.3": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "8b83dfa8b85ba45e24768337254e6eb23c0855df1a5168671a3a8090b6d0964e",
+                "dlSubdir": "ghc-7.10.3",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-7.10.3-musl/ghc-7.10.3-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "FreeBSD": {
              "unknown_versioning": {
                "dlHash": "2aa396edd2bb651f4bc7eef7a396913ea24923de5aafdc76df6295333e487e48",
@@ -1777,13 +1744,6 @@
      "8.2.2": {
        "viArch": {
          "A_64": {
-            "Linux_Alpine": {
-              "unknown_versioning": {
-                "dlHash": "adcf3a320a3c402aba07ae9586990dc3c0b550e96aeffb1b9e194313d3ba716d",
-                "dlSubdir": "ghc-8.2.2",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.2.2-x86_64-alpine-linux.tar.xz"
-              }
-            },
            "FreeBSD": {
              "unknown_versioning": {
                "dlHash": "cd351c704b92b9af23994024df07de8ca7090ea7675d5c8b14b2be857a46d804",
@@ -1843,13 +1803,6 @@
            }
          },
          "A_32": {
-            "Linux_Alpine": {
-              "unknown_versioning": {
-                "dlHash": "467534c32552cfd318753112dbc70af003693aad4b0081f2a07e61f5b5ea2c22",
-                "dlSubdir": "ghc-8.2.2",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.2.2-i386-alpine-linux.tar.xz"
-              }
-            },
            "Linux_Debian": {
              "7": {
                "dlHash": "cd18766b1a9b74fc6c90003a719ecab158f281f9a755d8b1bd3fd764ba6947b5",
@@ -1898,6 +1851,13 @@
      "8.4.4": {
        "viArch": {
          "A_64": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "e15f1cf02adb2cfb77a202050300a92f61456c6e1e90b543fec82d99da893a69",
+                "dlSubdir": "ghc-8.4.4",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.4-musl/ghc-8.4.4-x86_64-unknown-linux-musl.tar.xz"
+              }
+            },
            "FreeBSD": {
              "unknown_versioning": {
                "dlHash": "44fbd142d1c355d6110595c59c760e2c73866ff9259ec85ebf814edb244d1940",
@@ -1987,9 +1947,9 @@
          "A_32": {
            "Linux_Alpine": {
              "unknown_versioning": {
-                "dlHash": "892888d388ef5c9cadf5cfba1146d62237c25b9b066fb62fee940b2b285fd308",
+                "dlHash": "356f49b1acee0b0267fd8ca687aede14d43cee1f231d7f8a37525d50f07e1428",
                "dlSubdir": "ghc-8.4.4",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.4.4-i386-alpine-linux.tar.xz"
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.4-musl/ghc-8.4.4-i386-unknown-linux-musl.tar.xz"
              }
            },
            "Linux_Debian": {
@@ -2035,11 +1995,11 @@
      "8.8.3": {
        "viArch": {
          "A_64": {
-            "FreeBSD": {
+            "Linux_Alpine": {
              "unknown_versioning": {
-                "dlHash": "569719075b4d14b3875a899df522090ae31e6fe085e6dffe518e875b09a2f0be",
+                "dlHash": "77a990d76dc10abe2ed19e5fcfef4095f0e9819d4ab84bec6d82f00dd85812a7",
                "dlSubdir": "ghc-8.8.3",
-                "dlUri": "https://files.hasufell.de/ghc/ghc-8.8.3-x86_64-portbld-freebsd.tar.xz"
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.3-musl/ghc-8.8.3-x86_64-unknown-linux-musl.tar.xz"
              }
            },
            "Linux_Debian": {
@@ -2122,6 +2082,13 @@
            }
          },
          "A_32": {
+            "Linux_Alpine": {
+              "unknown_versioning": {
+                "dlHash": "7a5f41646d06777e75636291a1855d60a0984552bbdf33c3d107565d302f38a4",
+                "dlSubdir": "ghc-8.8.3",
+                "dlUri": "https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.3-musl/ghc-8.8.3-i386-unknown-linux-musl.tar.xz"
+              }
+            },
            "Linux_Debian": {
              "unknown_versioning": {
                "dlHash": "441e2c7a4fc83ebf179712bd939b555cda7c6633545b7c8ac38049f9d85003ae",
@@ -2159,6 +2126,7 @@
        },
        "viChangeLog": "https://downloads.haskell.org/~ghc/8.8.3/docs/html/users_guide/8.8.3-notes.html",
        "viTags": [
+          "Recommended",
          "base-4.13.0.0"
        ]
      }
@@ -2333,37 +2301,37 @@
      }
    },
    "GHCup": {
-      "0.1.7": {
+      "0.1.5": {
        "viArch": {
          "A_64": {
            "FreeBSD": {
              "unknown_versioning": {
-                "dlHash": "54b9b6f98908f6679dda6db025b4047dfe82e6b57ae82c547a9d611b9e4ff105",
+                "dlHash": "6dd57cc5958ef3a6ba7de22808d9292d31dada8af95277578b69be35fc090194",
                "dlSubdir": null,
-                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.7/x86_64-portbld-freebsd-ghcup-0.1.7"
+                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.5/x86_64-portbld-freebsd-ghcup-0.1.5"
              }
            },
            "Darwin": {
              "unknown_versioning": {
-                "dlHash": "00b2c04755d2b40e568afbfc2a485c36697fc55f210eae0d4cd80413c71032ed",
+                "dlHash": "456770c3b1510d44a0e401e0677faa9f5670ef81a11646f47cbba1b95404e788",
                "dlSubdir": null,
-                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.7/x86_64-apple-darwin-ghcup-0.1.7"
+                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.5/x86_64-apple-darwin-ghcup-0.1.5-p2"
              }
            },
            "Linux_UnknownLinux": {
              "unknown_versioning": {
-                "dlHash": "a1d1e8b3c2b00186957c927d09f2cfb457bbfa65c1ab562ff5683963e205bdd5",
+                "dlHash": "cfdb01dde77121859b5d90b6707238b54e23787fcbb3003e18ab52a5dbfee330",
                "dlSubdir": null,
-                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.7/x86_64-linux-ghcup-0.1.7"
+                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.5/x86_64-linux-ghcup-0.1.5"
              }
            }
          },
          "A_32": {
            "Linux_UnknownLinux": {
              "unknown_versioning": {
-                "dlHash": "1651cc196e4fdd18995054edebe109833535961f0e2b0d505f1714e83f3e8808",
+                "dlHash": "3707f60d703912709335dc0103fb1af5e5dfa83050825a8156b56bc81760b2a8",
                "dlSubdir": null,
-                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.7/i386-linux-ghcup-0.1.7"
+                "dlUri": "https://downloads.haskell.org/~ghcup/0.1.5/i386-linux-ghcup-0.1.5"
              }
            }
          }
--- a/ghcup.cabal
+++ b/ghcup.cabal
@@ -1,6 +1,6 @@
 cabal-version:      3.0
 name:               ghcup
-version:            0.1.7
+version:            0.1.5
 synopsis:           ghc toolchain installer as an exe/library
 description:
  A rewrite of the shell script ghcup, for providing
@@ -22,7 +22,7 @@ source-repository head
  location: https://gitlab.haskell.org/haskell/ghcup-hs.git

 flag tui
-  description: Build the brick powered tui (ghcup tui)
+  description: Build the brick powered tui (ghcup \-\-interactive)
  default:     False
  manual:      True

@@ -31,11 +31,6 @@ flag internal-downloader
  default:     False
  manual:      True

-flag tar
-  description: Use tar-bytestring instead of libarchive
-  default:     False
-  manual:      True
-
 common HsOpenSSL
  build-depends: HsOpenSSL >=0.11.4.18

@@ -174,14 +169,11 @@ common table-layout
 common template-haskell
  build-depends: template-haskell >=2.7

-common tar-bytestring
-  build-depends: tar-bytestring >=0.6.3.1
-
 common terminal-progress-bar
  build-depends: terminal-progress-bar >=0.4.1

 common text
-  build-depends: text >=1.2.4.0
+  build-depends: text >=1.2

 common time
  build-depends: time >=1.9.3
@@ -261,6 +253,7 @@ library
    , hpath-filepath
    , hpath-io
    , hpath-posix
+    , libarchive
    , lzma
    , megaparsec
    , monad-logger
@@ -322,21 +315,13 @@ library

  if flag(internal-downloader)
    import:
-        HsOpenSSL
+      , HsOpenSSL
      , http-io-streams
      , io-streams
      , terminal-progress-bar
    exposed-modules: GHCup.Download.IOStreams
    cpp-options:     -DINTERNAL_DOWNLOADER

-  if flag(tar)
-    import:
-        tar-bytestring
-    cpp-options:     -DTAR
-  else
-    import:
-        libarchive
-
 executable ghcup
  import:
    config
@@ -346,6 +331,7 @@ executable ghcup
    , haskus-utils-variant
    , hpath
    , hpath-io
+    , libarchive
    , megaparsec
    , monad-logger
    , mtl
@@ -382,12 +368,6 @@ executable ghcup
    other-modules: BrickMain
    cpp-options:     -DBRICK

-  if flag(tar)
-    cpp-options:     -DTAR
-  else
-    import:
-        libarchive
-
 executable ghcup-gen
  import:
    config
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@@ -27,9 +27,7 @@ import           GHCup.Utils.String.QQ
 import           GHCup.Utils.Version.QQ
 import           GHCup.Version

-#if !defined(TAR)
 import           Codec.Archive                  ( ArchiveResult )
-#endif
 import           Control.Applicative
 import           Control.Exception.Safe
 import           Control.Monad
@@ -50,7 +48,7 @@ import           Data.Versions
 import           Data.Word8
 import           GHC.IO.Exception
 import           HPath
-import           HPath.IO                hiding ( hideError )
+import           HPath.IO
 import           Haskus.Utils.Variant.Excepts
 import           Optics
 import           Prelude                 hiding ( abs
@@ -87,26 +85,29 @@ installGHCBin :: ( MonadFail m
                 )
              => GHCupDownloads
              -> Version
-              -> PlatformRequest
+              -> Maybe PlatformRequest -- ^ if Nothing, looks up current host platform
              -> Excepts
                   '[ AlreadyInstalled
                    , BuildFailed
                    , DigestError
+                    , DistroNotFound
                    , DownloadFailed
+                    , NoCompatibleArch
+                    , NoCompatiblePlatform
                    , NoDownload
                    , NotInstalled
                    , UnknownArchive
-#if !defined(TAR)
                    , ArchiveResult
-#endif
                    ]
                   m
                   ()
-installGHCBin bDls ver pfreq@(PlatformRequest {..}) = do
+installGHCBin bDls ver mpfReq = do
  let tver = (mkTVer ver)
  lift $ $(logDebug) [i|Requested to install GHC with #{ver}|]
  whenM (liftIO $ ghcInstalled tver)
    $ (throwE $ AlreadyInstalled GHC ver)
+  Settings {..}                <- lift ask
+  pfreq@(PlatformRequest {..}) <- maybe (liftE $ platformRequest) pure mpfReq

  -- download (or use cached version)
  dlinfo                       <- lE $ getDownloadInfo GHC ver pfreq bDls
@@ -129,26 +130,21 @@ installGHCBin bDls ver pfreq@(PlatformRequest {..}) = do

 where
  -- | Install an unpacked GHC distribution. This only deals with the GHC build system and nothing else.
-  installGHC' :: (MonadReader Settings m, MonadThrow m, MonadLogger m, MonadIO m)
+  installGHC' :: (MonadLogger m, MonadIO m)
              => Path Abs      -- ^ Path to the unpacked GHC bindist (where the configure script resides)
              -> Path Abs      -- ^ Path to install to
              -> Excepts '[ProcessError] m ()
  installGHC' path inst = do
    lift $ $(logInfo) "Installing GHC (this may take a while)"
-    lEM $ execLogged "./configure"
+    lEM $ liftIO $ execLogged "./configure"
                              False
-                              (["--prefix=" <> toFilePath inst] ++ alpineArgs)
+                              ["--prefix=" <> toFilePath inst]
                              [rel|ghc-configure|]
                              (Just path)
                              Nothing
-    lEM $ make ["install"] (Just path)
+    lEM $ liftIO $ make ["install"] (Just path)
    pure ()

-  alpineArgs
-    | ver >= [vver|8.2.2|]
-    , Linux Alpine <- _rPlatform = ["--disable-ld-override"]
-    | otherwise = []
-

 installCabalBin :: ( MonadMask m
                   , MonadCatch m
@@ -160,22 +156,23 @@ installCabalBin :: ( MonadMask m
                   )
                => GHCupDownloads
                -> Version
-                -> PlatformRequest
+                -> Maybe PlatformRequest -- ^ if Nothing, looks up current host platform
                -> Excepts
                     '[ AlreadyInstalled
                      , CopyError
                      , DigestError
+                      , DistroNotFound
                      , DownloadFailed
+                      , NoCompatibleArch
+                      , NoCompatiblePlatform
                      , NoDownload
                      , NotInstalled
                      , UnknownArchive
-#if !defined(TAR)
                      , ArchiveResult
-#endif
                      ]
                     m
                     ()
-installCabalBin bDls ver pfreq@(PlatformRequest {..}) = do
+installCabalBin bDls ver mpfReq = do
  lift $ $(logDebug) [i|Requested to install cabal version #{ver}|]

  bindir <- liftIO ghcupBinDir
@@ -189,6 +186,9 @@ installCabalBin bDls ver pfreq@(PlatformRequest {..}) = do
      )
    $ (throwE $ AlreadyInstalled Cabal ver)

+  Settings {..}                <- lift ask
+  pfreq@(PlatformRequest {..}) <- maybe (liftE $ platformRequest) pure mpfReq
+
  -- download (or use cached version)
  dlinfo                       <- lE $ getDownloadInfo Cabal ver pfreq bDls
  dl                           <- liftE $ downloadCached dlinfo Nothing
@@ -382,25 +382,31 @@ listVersions :: ( MonadCatch m
             => GHCupDownloads
             -> Maybe Tool
             -> Maybe ListCriteria
-             -> PlatformRequest
-             -> m [ListResult]
-listVersions av lt criteria pfreq = do
+             -> Excepts
+                  '[ NoCompatiblePlatform
+                   , NoCompatibleArch
+                   , DistroNotFound
+                   ]
+                  m
+                  [ListResult]
+listVersions av lt criteria = do
+  pfreq <- platformRequest
  case lt of
    Just t -> do
      -- get versions from GHCupDownloads
      let avTools = availableToolVersions av t
-      lr <- filter' <$> forM (Map.toList avTools) (liftIO . toListResult t)
+      lr <- filter' <$> forM (Map.toList avTools) (liftIO . toListResult pfreq t)

      case t of
        -- append stray GHCs
        GHC -> do
-          slr <- strayGHCs avTools
+          slr <- lift $ strayGHCs avTools
          pure $ (sort (slr ++ lr))
        _ -> pure lr
    Nothing -> do
-      ghcvers   <- listVersions av (Just GHC) criteria pfreq
-      cabalvers <- listVersions av (Just Cabal) criteria pfreq
-      ghcupvers <- listVersions av (Just GHCup) criteria pfreq
+      ghcvers   <- listVersions av (Just GHC) criteria
+      cabalvers <- listVersions av (Just Cabal) criteria
+      ghcupvers <- listVersions av (Just GHCup) criteria
      pure (ghcvers <> cabalvers <> ghcupvers)

 where
@@ -445,8 +451,8 @@ listVersions av lt criteria pfreq = do
        pure Nothing

  -- NOTE: this are not cross ones, because no bindists
-  toListResult :: Tool -> (Version, [Tag]) -> IO ListResult
-  toListResult t (v, tags) = case t of
+  toListResult :: PlatformRequest -> Tool -> (Version, [Tag]) -> IO ListResult
+  toListResult pfreq t (v, tags) = case t of
    GHC -> do
      let lNoBindist = isLeft $ getDownloadInfo GHC v pfreq av
      let tver = mkTVer v
@@ -596,24 +602,24 @@ compileGHC :: ( MonadMask m
           -> Maybe (Path Abs)           -- ^ build config
           -> Maybe (Path Abs)           -- ^ patch directory
           -> [Text]                     -- ^ additional args to ./configure
-           -> PlatformRequest
           -> Excepts
                '[ AlreadyInstalled
                 , BuildFailed
                 , DigestError
+                 , DistroNotFound
                 , DownloadFailed
                 , GHCupSetError
+                 , NoCompatibleArch
+                 , NoCompatiblePlatform
                 , NoDownload
                 , NotFoundInPATH
                 , PatchFailed
                 , UnknownArchive
-#if !defined(TAR)
                 , ArchiveResult
-#endif
                 ]
                m
                ()
-compileGHC dls tver bstrap jobs mbuildConfig patchdir aargs PlatformRequest {..} = do
+compileGHC dls tver bstrap jobs mbuildConfig patchdir aargs = do
  lift $ $(logDebug) [i|Requested to compile: #{tver} with #{bstrap}|]
  whenM (liftIO $ ghcInstalled tver)
        (throwE $ AlreadyInstalled GHC (tver ^. tvVersion))
@@ -627,6 +633,7 @@ compileGHC dls tver bstrap jobs mbuildConfig patchdir aargs PlatformRequest {..}
  -- unpack
  tmpUnpack <- lift mkGhcupTmpDir
  liftE $ unpackToDir tmpUnpack dl
+  (PlatformRequest {..}) <- liftE $ platformRequest
  void $ liftIO $ darwinNotarization _rPlatform tmpUnpack

  bghc <- case bstrap of
@@ -659,7 +666,7 @@ BUILD_SPHINX_PDF = NO
 HADDOCK_DOCS = NO
 Stage1Only = YES|]

-  compile :: (MonadReader Settings m, MonadThrow m, MonadCatch m, MonadLogger m, MonadIO m)
+  compile :: (MonadCatch m, MonadLogger m, MonadIO m)
          => Either (Path Rel) (Path Abs)
          -> Path Abs
          -> Path Abs
@@ -687,7 +694,7 @@ Stage1Only = YES|]
          Left  bver -> do
            spaths <- catMaybes . fmap parseAbs <$> liftIO getSearchPath
            (liftIO $ searchPath spaths bver) !? NotFoundInPATH bver
-        lEM $ execLogged
+        lEM $ liftIO $ execLogged
          "./configure"
          False
          (  ["--prefix=" <> toFilePath ghcdir]
@@ -701,7 +708,7 @@ Stage1Only = YES|]
          (Just workdir)
          (Just (("GHC", toFilePath bghcPath) : cEnv))
      | otherwise -> do
-        lEM $ execLogged
+        lEM $ liftIO $ execLogged
          "./configure"
          False
          (  [ "--prefix=" <> toFilePath ghcdir
@@ -726,11 +733,11 @@ Stage1Only = YES|]
        liftIO $ writeFile (build_mk workdir) (Just newFilePerms) defaultConf

    lift $ $(logInfo) [i|Building (this may take a while)...|]
-    lEM $ make (maybe [] (\j -> ["-j" <> fS (show j)]) jobs)
+    lEM $ liftIO $ make (maybe [] (\j -> ["-j" <> fS (show j)]) jobs)
                        (Just workdir)

    lift $ $(logInfo) [i|Installing...|]
-    lEM $ make ["install"] (Just workdir)
+    lEM $ liftIO $ make ["install"] (Just workdir)

  markSrcBuilt ghcdir workdir = do
    let dest = (ghcdir </> ghcUpSrcBuiltFile)
@@ -774,24 +781,24 @@ compileCabal :: ( MonadReader Settings m
             -> Either Version (Path Abs)  -- ^ version to bootstrap with
             -> Maybe Int
             -> Maybe (Path Abs)
-             -> PlatformRequest
             -> Excepts
                  '[ AlreadyInstalled
                   , BuildFailed
                   , CopyError
                   , DigestError
+                   , DistroNotFound
                   , DownloadFailed
+                   , NoCompatibleArch
+                   , NoCompatiblePlatform
                   , NoDownload
                   , NotInstalled
                   , PatchFailed
                   , UnknownArchive
-#if !defined(TAR)
                   , ArchiveResult
-#endif
                   ]
                  m
                  ()
-compileCabal dls tver bghc jobs patchdir PlatformRequest{..} = do
+compileCabal dls tver bghc jobs patchdir = do
  lift $ $(logDebug) [i|Requested to compile: #{tver} with ghc-#{bghc}|]

  bindir <- liftIO ghcupBinDir
@@ -812,6 +819,7 @@ compileCabal dls tver bghc jobs patchdir PlatformRequest{..} = do
  -- unpack
  tmpUnpack <- lift mkGhcupTmpDir
  liftE $ unpackToDir tmpUnpack dl
+  (PlatformRequest {..}) <- liftE $ platformRequest
  void $ liftIO $ darwinNotarization _rPlatform tmpUnpack

  let workdir = maybe id (flip (</>)) (view dlSubdir dlInfo) $ tmpUnpack
@@ -832,7 +840,7 @@ compileCabal dls tver bghc jobs patchdir PlatformRequest{..} = do
  pure ()

 where
-  compile :: (MonadReader Settings m, MonadThrow m, MonadLogger m, MonadIO m, MonadResource m)
+  compile :: (MonadThrow m, MonadLogger m, MonadIO m, MonadResource m)
          => Path Abs
          -> Excepts '[ProcessError , PatchFailed] m (Path Abs)
  compile workdir = do
@@ -865,7 +873,7 @@ compileCabal dls tver bghc jobs patchdir PlatformRequest{..} = do
    newEnv <- lift $ addToCurrentEnv (("PREFIX", toFilePath tmp) : ghcEnv)
    lift $ $(logDebug) [i|Environment: #{newEnv}|]

-    lEM $ execLogged "./bootstrap.sh"
+    lEM $ liftIO $ execLogged "./bootstrap.sh"
                              False
                              (maybe [] (\j -> ["-j", fS (show j)]) jobs)
                              [rel|cabal-bootstrap|]
@@ -893,20 +901,23 @@ upgradeGHCup :: ( MonadMask m
             -> Maybe (Path Abs)  -- ^ full file destination to write ghcup into
             -> Bool              -- ^ whether to force update regardless
                                  --   of currently installed version
-             -> PlatformRequest
             -> Excepts
                  '[ CopyError
                   , DigestError
+                   , DistroNotFound
                   , DownloadFailed
+                   , NoCompatibleArch
+                   , NoCompatiblePlatform
                   , NoDownload
                   , NoUpdate
                   ]
                  m
                  Version
-upgradeGHCup dls mtarget force pfreq = do
+upgradeGHCup dls mtarget force = do
  lift $ $(logInfo) [i|Upgrading GHCup...|]
  let latestVer = fromJust $ getLatest dls GHCup
  when (not force && (latestVer <= pvpToVersion ghcUpVer)) $ throwE NoUpdate
+  pfreq <- liftE platformRequest
  dli   <- lE $ getDownloadInfo GHCup latestVer pfreq dls
  tmp   <- lift withGHCupTmpDir
  let fn = [rel|ghcup|]
@@ -917,6 +928,7 @@ upgradeGHCup dls mtarget force pfreq = do
          `unionFileModes` groupExecuteMode
          `unionFileModes` otherExecuteMode
  binDir <- liftIO $ ghcupBinDir
+  liftIO $ createDirIfMissing newDirPerms binDir
  let fullDest = fromMaybe (binDir </> fn) mtarget
  liftIO $ hideError NoSuchThing $ deleteFile fullDest
  handleIO (throwE . CopyError . show) $ liftIO $ copyFile p
--- a/lib/GHCup/Data/GHCupDownloads.hs
+++ b/lib/GHCup/Data/GHCupDownloads.hs
@@ -2,10 +2,7 @@
 {-# LANGUAGE QuasiQuotes       #-}


-module GHCup.Data.GHCupDownloads
-  ( ghcupDownloads
-  )
-where
+module GHCup.Data.GHCupDownloads where

 import           GHCup.Types
 import           GHCup.Utils.Version.QQ
@@ -62,6 +59,12 @@ ghc_7103_32_freebsd = DownloadInfo
  (Just [rel|ghc-7.10.3|])
  "3dde05577c6f94dcb0ba201ebd53ab88553bbc9a3aa8e72237162ed7a9d588a3"

+ghc_7103_64_musl :: DownloadInfo
+ghc_7103_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-7.10.3-musl/ghc-7.10.3-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-7.10.3|])
+  "8b83dfa8b85ba45e24768337254e6eb23c0855df1a5168671a3a8090b6d0964e"
+



@@ -106,17 +109,17 @@ ghc_802_64_darwin = DownloadInfo
  (Just [rel|ghc-8.0.2|])
  "ff50a2df9f002f33b9f09717ebf5ec5a47906b9b65cc57b1f9849f8b2e06788d"

-ghc_802_64_alpine :: DownloadInfo
-ghc_802_64_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.0.2-x86_64-alpine-linux.tar.xz|]
+ghc_802_64_musl :: DownloadInfo
+ghc_802_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.0.2-musl/ghc-8.0.2-x86_64-unknown-linux-musl.tar.xz|]
  (Just [rel|ghc-8.0.2|])
-  "517783b660a27ebf95b2568d47292fd633d5f9a4de4c80ad1ccf05e1b9d7313f"
+  "7f9ef3e048ca6f2a2a589e6c168d8c7699fbe32b1b39a9d7c72eff9b26e90c67"

-ghc_802_32_alpine :: DownloadInfo
-ghc_802_32_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.0.2-i386-alpine-linux.tar.xz|]
+ghc_802_32_musl :: DownloadInfo
+ghc_802_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.0.2-musl/ghc-8.0.2-i386-unknown-linux-musl.tar.xz|]
  (Just [rel|ghc-8.0.2|])
-  "b4cd12a1048b2fff2f23c9eec0dd3a1174d54d017f8d79ec79af4534118e6881"
+  "815c68181013cd3f4dc748ddb5502a5e7a1a4011ba57d8eff6d66da411c72e84"



@@ -174,18 +177,6 @@ ghc_822_64_freebsd11 = DownloadInfo
  (Just [rel|ghc-8.2.2|])
  "cd351c704b92b9af23994024df07de8ca7090ea7675d5c8b14b2be857a46d804"

-ghc_822_32_alpine :: DownloadInfo
-ghc_822_32_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.2.2-i386-alpine-linux.tar.xz|]
-  (Just [rel|ghc-8.2.2|])
-  "467534c32552cfd318753112dbc70af003693aad4b0081f2a07e61f5b5ea2c22"
-
-ghc_822_64_alpine :: DownloadInfo
-ghc_822_64_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.2.2-x86_64-alpine-linux.tar.xz|]
-  (Just [rel|ghc-8.2.2|])
-  "adcf3a320a3c402aba07ae9586990dc3c0b550e96aeffb1b9e194313d3ba716d"
-



@@ -225,6 +216,17 @@ ghc_841_64_freebsd = DownloadInfo
  (Just [rel|ghc-8.4.1|])
  "e748daec098445c6190090fe32bb2817a1140553be5acd2188e1af05ad24e5aa"

+ghc_841_64_musl :: DownloadInfo
+ghc_841_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.1-musl/ghc-8.4.1-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.4.1|])
+  "82d4ea6247a91e7e76065c0cdf66eec813ab679c1f24de0fb92c89bba3ef27f2"
+
+ghc_841_32_musl :: DownloadInfo
+ghc_841_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.1-musl/ghc-8.4.1-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.4.1|])
+  "e5feee34b58c1a1cd6c270fbe696c178a4649675398f4e0d56a4bfad9641b736"



@@ -270,6 +272,17 @@ ghc_842_64_freebsd = DownloadInfo
  (Just [rel|ghc-8.4.2|])
  "e9ed417fdf94c2ff2c6e344ed16f332bf6b591511f6442c0d9ea94854882b66c"

+ghc_842_64_musl :: DownloadInfo
+ghc_842_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.2-musl/ghc-8.4.2-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.4.2|])
+  "3ebdb6e8001679e8722bd75a47805f1b3c1b25b37c4d237a7aaa4d66162f699f"
+
+ghc_842_32_musl :: DownloadInfo
+ghc_842_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.2-musl/ghc-8.4.2-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.4.2|])
+  "a43ac57214764717f0ffe515ef47b84e938f0a4fa8ff875773d6ba315b940835"



@@ -308,6 +321,17 @@ ghc_843_64_darwin = DownloadInfo
  (Just [rel|ghc-8.4.3|])
  "af0b455f6c46b9802b4b48dad996619cfa27cc6e2bf2ce5532387b4a8c00aa64"

+ghc_843_64_musl :: DownloadInfo
+ghc_843_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.3-musl/ghc-8.4.3-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.4.3|])
+  "0f05c67e3fd29a3f505abb77e9c39349d312cdc1a566263b8f4b227d085906bc"
+
+ghc_843_32_musl :: DownloadInfo
+ghc_843_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.3-musl/ghc-8.4.3-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.4.3|])
+  "3a9a1ceb8eef234023fc36600245a03772bcb46b2abac41f6394104feaec8c43"



@@ -359,11 +383,17 @@ ghc_844_64_freebsd = DownloadInfo
  (Just [rel|ghc-8.4.4|])
  "44fbd142d1c355d6110595c59c760e2c73866ff9259ec85ebf814edb244d1940"

-ghc_844_32_alpine :: DownloadInfo
-ghc_844_32_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.4.4-i386-alpine-linux.tar.xz|]
+ghc_844_64_musl :: DownloadInfo
+ghc_844_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.4-musl/ghc-8.4.4-x86_64-unknown-linux-musl.tar.xz|]
  (Just [rel|ghc-8.4.4|])
-  "892888d388ef5c9cadf5cfba1146d62237c25b9b066fb62fee940b2b285fd308"
+  "e15f1cf02adb2cfb77a202050300a92f61456c6e1e90b543fec82d99da893a69"
+
+ghc_844_32_musl :: DownloadInfo
+ghc_844_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.4.4-musl/ghc-8.4.4-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.4.4|])
+  "356f49b1acee0b0267fd8ca687aede14d43cee1f231d7f8a37525d50f07e1428"



@@ -408,6 +438,17 @@ ghc_861_64_freebsd = DownloadInfo
  (Just [rel|ghc-8.6.1|])
  "51403b054a3a649039ac988e1d1112561f96750bfced63df864091a3fab36f08"

+ghc_861_64_musl :: DownloadInfo
+ghc_861_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.1-musl/ghc-8.6.1-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.1|])
+  "2668e12facfa9083150b01b1137693cb3de266a6f8ac8c6b44a2be3826c73177"
+
+ghc_861_32_musl :: DownloadInfo
+ghc_861_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.1-musl/ghc-8.6.1-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.1|])
+  "12b9b5b78be94b57d301b2a31eda145928110fd103fbbcc1e6e6966237a30ed2"



@@ -440,6 +481,17 @@ ghc_862_64_darwin = DownloadInfo
  (Just [rel|ghc-8.6.2|])
  "8ec46a25872226dd7e5cf7271e3f3450c05f32144b96e6b9cb44cc4079db50dc"

+ghc_862_64_musl :: DownloadInfo
+ghc_862_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.2-musl/ghc-8.6.2-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.2|])
+  "5be9f98c25c49dbfb65223e2642335d4a45220f0c4044c8af70bbcaebe688467"
+
+ghc_862_32_musl :: DownloadInfo
+ghc_862_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.2-musl/ghc-8.6.2-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.2|])
+  "a1add75822258fbb6e57ad049919ef5f757bac10d3c7a6eaeee50d2521ffeb4e"



@@ -491,6 +543,17 @@ ghc_863_64_freebsd = DownloadInfo
  (Just [rel|ghc-8.6.3|])
  "bc2419fa180f8a7808c49775987866435995df9bdd9ce08bcd38352d63ba6031"

+ghc_863_64_musl :: DownloadInfo
+ghc_863_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.3-musl/ghc-8.6.3-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.3|])
+  "274f7ea959e6f1c830b33efd462ab9d0ff32d1cb5be051a2a318464d05d674dd"
+
+ghc_863_32_musl :: DownloadInfo
+ghc_863_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.3-musl/ghc-8.6.3-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.3|])
+  "dc0b53a7f0e52232930abcfad427ccd0917c90797203fbc7b5d72f5335d85a7d"



@@ -530,6 +593,17 @@ ghc_864_64_darwin = DownloadInfo
  (Just [rel|ghc-8.6.4|])
  "cccb58f142fe41b601d73690809f6089f7715b6a50a09aa3d0104176ab4db09e"

+ghc_864_64_musl :: DownloadInfo
+ghc_864_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.4-musl/ghc-8.6.4-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.4|])
+  "ec73167bae1a173a9af07612df5fa1289e924f13ed9241339cb5617337cb2979"
+
+ghc_864_32_musl :: DownloadInfo
+ghc_864_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.4-musl/ghc-8.6.4-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.6.4|])
+  "21b39b89edadbb6ab5b98d46dfacc0fd0799f9b16465a05c64e48f41dcbb1f7a"



@@ -575,23 +649,17 @@ ghc_865_64_darwin = DownloadInfo
  (Just [rel|ghc-8.6.5|])
  "dfc1bdb1d303a87a8552aa17f5b080e61351f2823c2b99071ec23d0837422169"

-ghc_865_64_alpine :: DownloadInfo
-ghc_865_64_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.6.5-x86_64-alpine-linux.tar.xz|]
+ghc_865_64_musl :: DownloadInfo
+ghc_865_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.5-musl/ghc-8.6.5-x86_64-unknown-linux-musl.tar.xz|]
  (Just [rel|ghc-8.6.5|])
-  "b9d3ed7f7aa24ef2d58bb579252289caa0b8877adee3685e3af2fb73d440afdc"
+  "ec6d0417822c3bfafc7aea0b0402294901231bc5d72dd17a2b849e3f44850695"

-ghc_865_32_alpine :: DownloadInfo
-ghc_865_32_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.6.5-i386-alpine-linux.tar.xz|]
+ghc_865_32_musl :: DownloadInfo
+ghc_865_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.6.5-musl/ghc-8.6.5-i386-unknown-linux-musl.tar.xz|]
  (Just [rel|ghc-8.6.5|])
-  "3737837550d9b177acfe150e3a3cd4545427ded020487c2ed5194d7b8f116349"
-
-ghc_865_64_freebsd :: DownloadInfo
-ghc_865_64_freebsd = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.6.5-x86_64-portbld-freebsd.tar.xz|]
-  (Just [rel|ghc-8.6.5|])
-  "83a3059a630d40a98e26cb5b520354e12094a96e36ba2f5ab002dad94cf2fb37"
+  "db13ff894faf431f9c64db21c090a1e4e42803794d56720a704c50166c7ca05d"



@@ -637,6 +705,17 @@ ghc_881_64_darwin = DownloadInfo
  (Just [rel|ghc-8.8.1|])
  "38c8917b47c31bedf58c9305dfca3abe198d8d35570366f0773c4e2948bd8abe"

+ghc_881_64_musl :: DownloadInfo
+ghc_881_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.1-musl/ghc-8.8.1-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.8.1|])
+  "029163c42a219983f4220d73c26b910c3ecf6eda45a3e5e27236e8a66b080890"
+
+ghc_881_32_musl :: DownloadInfo
+ghc_881_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.1-musl/ghc-8.8.1-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.8.1|])
+  "3f5462341a455a5677fba5cb24da8938878261069da5ee4234b1c6ac2d2ef77e"



@@ -682,6 +761,17 @@ ghc_882_64_darwin = DownloadInfo
  (Just [rel|ghc-8.8.2|])
  "25c5c1a70036abf3f22b2b19c10d26adfdb08e8f8574f89d4b2042de5947f990"

+ghc_882_64_musl :: DownloadInfo
+ghc_882_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.2-musl/ghc-8.8.2-x86_64-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.8.2|])
+  "09d49c75b5626606409c982b23f70dec241a944928243f32d1b59b2005de6dea"
+
+ghc_882_32_musl :: DownloadInfo
+ghc_882_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.2-musl/ghc-8.8.2-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.8.2|])
+  "4ea4a81b6b5ba807c93b21b3cddf1f1b4b0fc1ce018cf6aa255a9ee40137b278"



@@ -727,73 +817,17 @@ ghc_883_64_darwin = DownloadInfo
  (Just [rel|ghc-8.8.3|])
  "7016de90dd226b06fc79d0759c5d4c83c2ab01d8c678905442c28bd948dbb782"

-ghc_883_64_freebsd :: DownloadInfo
-ghc_883_64_freebsd = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.8.3-x86_64-portbld-freebsd.tar.xz|]
+ghc_883_64_musl :: DownloadInfo
+ghc_883_64_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.3-musl/ghc-8.8.3-x86_64-unknown-linux-musl.tar.xz|]
  (Just [rel|ghc-8.8.3|])
-  "569719075b4d14b3875a899df522090ae31e6fe085e6dffe518e875b09a2f0be"
+  "77a990d76dc10abe2ed19e5fcfef4095f0e9819d4ab84bec6d82f00dd85812a7"

-
-
-    -----------------
-    --[ GHC 8.8.4 ]--
-    -----------------
-
-
-
-ghc_884_64_deb8 :: DownloadInfo
-ghc_884_64_deb8 = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-deb8-linux.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "51a36892f1264744195274187298d13ac62bce2da86d4ddf76d8054ab90f2feb"
-
-ghc_884_64_deb9 :: DownloadInfo
-ghc_884_64_deb9 = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-deb9-linux.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "4862559d221153caf978f4bf2c15a82c114d1e1f43b298b2ecff2ac94b586d20"
-
-ghc_884_32_deb9 :: DownloadInfo
-ghc_884_32_deb9 = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-i386-deb9-linux.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "43dd954910c9027694312cef0aabc7774d102d0422b7172802cfb72f7d5da3a0"
-
-ghc_884_64_fedora :: DownloadInfo
-ghc_884_64_fedora = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-fedora27-linux.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "f32e37f8aa03e74bad533ae02f62dc27a4521e78199576af490888ba34b515db"
-
-ghc_884_64_centos :: DownloadInfo
-ghc_884_64_centos = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-centos7-linux.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "a12aa4b1fd3c64240a8a6d15196d33e1c0e0d55b51ff78c387242126d0ef7910"
-
-ghc_884_64_darwin :: DownloadInfo
-ghc_884_64_darwin = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-x86_64-apple-darwin.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "e80a789e9d8cfb41dd87f3284b75432427c4461c1731d220d04ead8733ccdb5e"
-
-ghc_884_64_freebsd :: DownloadInfo
-ghc_884_64_freebsd = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.8.4-x86_64-portbld-freebsd.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "8cebe5ccf454e82acd1ff52ca57590d1ab0f3f44a981b46257ec12158c8c447e"
-
-ghc_884_64_alpine :: DownloadInfo
-ghc_884_64_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.8.4-x86_64-alpine-linux.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "90c6a1661de7f20c7d169cd6270125035b3332063e45103ce028df0beecf434e"
-
-ghc_884_32_alpine :: DownloadInfo
-ghc_884_32_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.8.4-i386-alpine-linux.tar.xz|]
-  (Just [rel|ghc-8.8.4|])
-  "1d18e89ee031197e55c48683e78a7ffc67601ac5fd9f73aac555eb064b3859a2"
+ghc_883_32_musl :: DownloadInfo
+ghc_883_32_musl = DownloadInfo
+  [uri|https://github.com/redneb/ghc-alt-libc/releases/download/ghc-8.8.3-musl/ghc-8.8.3-i386-unknown-linux-musl.tar.xz|]
+  (Just [rel|ghc-8.8.3|])
+  "7a5f41646d06777e75636291a1855d60a0984552bbdf33c3d107565d302f38a4"



@@ -852,17 +886,7 @@ ghc_8101_64_alpine = DownloadInfo
  (Just [rel|ghc-8.10.1-x86_64-unknown-linux|])
  "cb13b645d103e2fba2eb8dfcc4e5f2fbd9550c00c4df42f342b4210436dcb8a8"

-ghc_8101_32_alpine :: DownloadInfo
-ghc_8101_32_alpine = DownloadInfo
-  [uri|https://files.hasufell.de/ghc/ghc-8.10.1-i386-alpine-linux.tar.xz|]
-  (Just [rel|ghc-8.10.1|])
-  "7360cc6b29e9b4ab08f6ea5bc3bcca6f5c216933e81ef1620dcdd700f1fdb289"

-ghc_8101_64_freebsd :: DownloadInfo
-ghc_8101_64_freebsd = DownloadInfo
-  [uri|https://downloads.haskell.org/ghc/8.10.1/ghc-8.10.1-x86_64-portbld-freebsd.tar.xz|]
-  (Just [rel|ghc-8.10.1|])
-  "52d27dbf9de82005dde9bfc521bff612e381b5228af194259c2306d2b75825c2"



@@ -996,32 +1020,32 @@ cabal_3200_64_alpine = DownloadInfo
    -------------


-ghcup_017_32_linux :: DownloadInfo
-ghcup_017_32_linux = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghcup/0.1.7/i386-linux-ghcup-0.1.7|]
+ghcup_015_32_linux :: DownloadInfo
+ghcup_015_32_linux = DownloadInfo
+  [uri|https://downloads.haskell.org/~ghcup/0.1.5/i386-linux-ghcup-0.1.5|]
  Nothing
-  "1651cc196e4fdd18995054edebe109833535961f0e2b0d505f1714e83f3e8808"
+  "3707f60d703912709335dc0103fb1af5e5dfa83050825a8156b56bc81760b2a8"


-ghcup_017_64_linux :: DownloadInfo
-ghcup_017_64_linux = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghcup/0.1.7/x86_64-linux-ghcup-0.1.7|]
+ghcup_015_64_linux :: DownloadInfo
+ghcup_015_64_linux = DownloadInfo
+  [uri|https://downloads.haskell.org/~ghcup/0.1.5/x86_64-linux-ghcup-0.1.5|]
  Nothing
-  "a1d1e8b3c2b00186957c927d09f2cfb457bbfa65c1ab562ff5683963e205bdd5"
+  "cfdb01dde77121859b5d90b6707238b54e23787fcbb3003e18ab52a5dbfee330"


-ghcup_017_64_freebsd :: DownloadInfo
-ghcup_017_64_freebsd = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghcup/0.1.7/x86_64-portbld-freebsd-ghcup-0.1.7|]
+ghcup_015_64_freebsd :: DownloadInfo
+ghcup_015_64_freebsd = DownloadInfo
+  [uri|https://downloads.haskell.org/~ghcup/0.1.5/x86_64-portbld-freebsd-ghcup-0.1.5|]
  Nothing
-  "54b9b6f98908f6679dda6db025b4047dfe82e6b57ae82c547a9d611b9e4ff105"
+  "6dd57cc5958ef3a6ba7de22808d9292d31dada8af95277578b69be35fc090194"


-ghcup_017_64_darwin10_13 :: DownloadInfo
-ghcup_017_64_darwin10_13 = DownloadInfo
-  [uri|https://downloads.haskell.org/~ghcup/0.1.7/x86_64-apple-darwin-ghcup-0.1.7|]
+ghcup_015_64_darwin10_13 :: DownloadInfo
+ghcup_015_64_darwin10_13 = DownloadInfo
+  [uri|https://downloads.haskell.org/~ghcup/0.1.5/x86_64-apple-darwin-ghcup-0.1.5-p2|]
  Nothing
-  "00b2c04755d2b40e568afbfc2a485c36697fc55f210eae0d4cd80413c71032ed"
+  "456770c3b1510d44a0e401e0677faa9f5670ef81a11646f47cbba1b95404e788"



@@ -1062,6 +1086,7 @@ ghcupDownloads = M.fromList
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_7103_64_darwin)])
                  , (FreeBSD     , M.fromList [(Nothing, ghc_7103_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_7103_64_musl)])
                  ]
                )
              , ( A_32
@@ -1108,7 +1133,7 @@ ghcupDownloads = M.fromList
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_802_64_darwin)])
                  , (FreeBSD     , M.fromList [(Nothing, ghc_802_64_freebsd)])
-                  , (Linux Alpine , M.fromList [(Nothing, ghc_802_64_alpine)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_802_64_musl)])
                  ]
                )
              , ( A_32
@@ -1122,7 +1147,7 @@ ghcupDownloads = M.fromList
                      , (Just [vers|7|], ghc_802_32_deb7)
                      ]
                    )
-                  , (Linux Alpine , M.fromList [(Nothing, ghc_802_32_alpine)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_802_32_musl)])
                  ]
                )
              ]
@@ -1160,7 +1185,6 @@ ghcupDownloads = M.fromList
                      , (Just [vers|11|], ghc_822_64_freebsd11)
                      ]
                    )
-                  , (Linux Alpine , M.fromList [(Nothing, ghc_822_64_alpine)])
                  ]
                )
              , ( A_32
@@ -1176,7 +1200,6 @@ ghcupDownloads = M.fromList
                      , (Just [vers|7|], ghc_822_32_deb7)
                      ]
                    )
-                  , (Linux Alpine , M.fromList [(Nothing, ghc_822_32_alpine)])
                  ]
                )
              ]
@@ -1204,6 +1227,7 @@ ghcupDownloads = M.fromList
                  , (Linux Debian, M.fromList [(Nothing, ghc_841_64_deb8)])
                  , (Darwin      , M.fromList [(Nothing, ghc_841_64_darwin)])
                  , (FreeBSD     , M.fromList [(Nothing, ghc_841_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_841_64_musl)])
                  ]
                )
              , ( A_32
@@ -1214,6 +1238,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_841_32_deb8)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_841_32_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_841_32_deb8)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_841_32_musl)])
                  ]
                )
              ]
@@ -1252,6 +1277,7 @@ ghcupDownloads = M.fromList
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_842_64_darwin)])
                  , (FreeBSD     , M.fromList [(Nothing, ghc_842_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_842_64_musl)])
                  ]
                )
              , ( A_32
@@ -1262,6 +1288,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_842_32_deb8)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_842_32_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_842_32_deb8)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_842_32_musl)])
                  ]
                )
              ]
@@ -1299,6 +1326,7 @@ ghcupDownloads = M.fromList
                      ]
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_843_64_darwin)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_843_64_musl)])
                  ]
                )
              , ( A_32
@@ -1309,6 +1337,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_843_32_deb8)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_843_32_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_843_32_deb8)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_843_32_musl)])
                  ]
                )
              ]
@@ -1352,6 +1381,7 @@ ghcupDownloads = M.fromList
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_844_64_darwin)])
                  , (FreeBSD     , M.fromList [(Nothing, ghc_844_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_844_64_musl)])
                  ]
                )
              , ( A_32
@@ -1362,7 +1392,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_844_32_deb8)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_844_32_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_844_32_deb8)])
-                  , (Linux Alpine, M.fromList [(Nothing, ghc_844_32_alpine)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_844_32_musl)])
                  ]
                )
              ]
@@ -1401,6 +1431,7 @@ ghcupDownloads = M.fromList
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_861_64_darwin)])
                  , (FreeBSD     , M.fromList [(Nothing, ghc_861_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_861_64_musl)])
                  ]
                )
              , ( A_32
@@ -1411,6 +1442,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_861_32_deb8)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_861_32_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_861_32_deb8)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_861_32_musl)])
                  ]
                )
              ]
@@ -1443,6 +1475,7 @@ ghcupDownloads = M.fromList
                  , (Linux Mint  , M.fromList [(Nothing, ghc_862_64_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_862_64_deb8)])
                  , (Darwin      , M.fromList [(Nothing, ghc_862_64_darwin)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_862_64_musl)])
                  ]
                )
              , ( A_32
@@ -1453,6 +1486,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_862_32_deb8)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_862_32_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_862_32_deb8)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_862_32_musl)])
                  ]
                )
              ]
@@ -1496,6 +1530,7 @@ ghcupDownloads = M.fromList
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_863_64_darwin)])
                  , (FreeBSD     , M.fromList [(Nothing, ghc_863_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_863_64_musl)])
                  ]
                )
              , ( A_32
@@ -1506,6 +1541,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_863_32_deb8)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_863_32_deb8)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_863_32_deb8)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_863_32_musl)])
                  ]
                )
              ]
@@ -1543,6 +1579,7 @@ ghcupDownloads = M.fromList
                      ]
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_864_64_darwin)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_864_64_musl)])
                  ]
                )
              , ( A_32
@@ -1553,6 +1590,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_864_32_deb9)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_864_32_deb9)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_864_32_deb9)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_864_32_musl)])
                  ]
                )
              ]
@@ -1595,8 +1633,7 @@ ghcupDownloads = M.fromList
                      ]
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_865_64_darwin)])
-                  , (Linux Alpine, M.fromList [(Nothing, ghc_865_64_alpine)])
-                  , (FreeBSD     , M.fromList [(Nothing, ghc_865_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_865_64_musl)])
                  ]
                )
              , ( A_32
@@ -1607,7 +1644,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_865_32_deb9)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_865_32_deb9)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_865_32_deb9)])
-                  , (Linux Alpine, M.fromList [(Nothing, ghc_865_32_alpine)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_865_32_musl)])
                  ]
                )
              ]
@@ -1650,6 +1687,7 @@ ghcupDownloads = M.fromList
                      ]
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_881_64_darwin)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_881_64_musl)])
                  ]
                )
              , ( A_32
@@ -1660,6 +1698,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_881_32_deb9)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_881_32_deb9)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_881_32_deb9)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_881_32_musl)])
                  ]
                )
              ]
@@ -1702,6 +1741,7 @@ ghcupDownloads = M.fromList
                      ]
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_882_64_darwin)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_882_64_musl)])
                  ]
                )
              , ( A_32
@@ -1712,13 +1752,14 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_882_32_deb9)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_882_32_deb9)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_882_32_deb9)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_882_32_musl)])
                  ]
                )
              ]
        )
      , ( [vver|8.8.3|]
        , VersionInfo
-            [Base [pver|4.13.0.0|]]
+            [Recommended, Base [pver|4.13.0.0|]]
            (Just
              [uri|https://downloads.haskell.org/~ghc/8.8.3/docs/html/users_guide/8.8.3-notes.html|]
            )
@@ -1754,7 +1795,7 @@ ghcupDownloads = M.fromList
                      ]
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_883_64_darwin)])
-                  , (FreeBSD     , M.fromList [(Nothing, ghc_883_64_freebsd)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_883_64_musl)])
                  ]
                )
              , ( A_32
@@ -1765,61 +1806,7 @@ ghcupDownloads = M.fromList
                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_883_32_deb9)])
                  , (Linux Mint  , M.fromList [(Nothing, ghc_883_32_deb9)])
                  , (Linux Debian, M.fromList [(Nothing, ghc_883_32_deb9)])
-                  ]
-                )
-              ]
-        )
-      , ( [vver|8.8.4|]
-        , VersionInfo
-            [Recommended, Base [pver|4.13.0.0|]]
-            (Just
-              [uri|https://downloads.haskell.org/~ghc/8.8.4/docs/html/users_guide/8.8.4-notes.html|]
-            )
-            (Just $ DownloadInfo
-              [uri|https://downloads.haskell.org/~ghc/8.8.4/ghc-8.8.4-src.tar.xz|]
-              (Just [rel|ghc-8.8.4|])
-              "f0505e38b2235ff9f1090b51f44d6c8efd371068e5a6bb42a2a6d8b67b5ffc2d"
-            )
-          $ M.fromList
-              [ ( A_64
-                , M.fromList
-                  [ ( Linux UnknownLinux
-                    , M.fromList [(Nothing, ghc_884_64_fedora)]
-                    )
-                  , (Linux Fedora, M.fromList [(Nothing, ghc_884_64_fedora)])
-                  , (Linux CentOS, M.fromList [(Nothing, ghc_884_64_centos)])
-                  , (Linux RedHat, M.fromList [(Nothing, ghc_884_64_centos)])
-                  , ( Linux AmazonLinux
-                    , M.fromList [(Nothing, ghc_884_64_centos)]
-                    )
-                  , ( Linux Ubuntu
-                    , M.fromList
-                      [ (Nothing           , ghc_884_64_fedora)
-                      , (Just [vers|16.04|], ghc_884_64_deb9)
-                      , (Just [vers|18.04|], ghc_884_64_deb9)
-                      ]
-                    )
-                  , (Linux Mint, M.fromList [(Nothing, ghc_884_64_deb9)])
-                  , ( Linux Debian
-                    , M.fromList
-                      [ (Nothing       , ghc_884_64_deb9)
-                      , (Just [vers|8|], ghc_884_64_deb8)
-                      ]
-                    )
-                  , (Darwin, M.fromList [(Nothing, ghc_884_64_darwin)])
-                  , (Linux Alpine, M.fromList [(Nothing, ghc_884_64_alpine)])
-                  , (FreeBSD     , M.fromList [(Nothing, ghc_884_64_freebsd)])
-                  ]
-                )
-              , ( A_32
-                , M.fromList
-                  [ ( Linux UnknownLinux
-                    , M.fromList [(Nothing, ghc_884_32_deb9)]
-                    )
-                  , (Linux Ubuntu, M.fromList [(Nothing, ghc_884_32_deb9)])
-                  , (Linux Mint  , M.fromList [(Nothing, ghc_884_32_deb9)])
-                  , (Linux Debian, M.fromList [(Nothing, ghc_884_32_deb9)])
-                  , (Linux Alpine, M.fromList [(Nothing, ghc_884_32_alpine)])
+                  , (Linux Alpine, M.fromList [(Nothing, ghc_883_32_musl)])
                  ]
                )
              ]
@@ -1853,7 +1840,7 @@ ghcupDownloads = M.fromList
                      , (Just [vers|7|], ghc_8101_64_centos)
                      ]
                    )
-                  , (Linux RedHat, M.fromList [(Nothing, ghc_8101_64_centos)])
+                  , ( Linux RedHat, M.fromList [(Nothing, ghc_8101_64_centos)])
                  , ( Linux AmazonLinux
                    , M.fromList [(Nothing, ghc_8101_64_centos)]
                    )
@@ -1874,7 +1861,6 @@ ghcupDownloads = M.fromList
                    )
                  , (Darwin      , M.fromList [(Nothing, ghc_8101_64_darwin)])
                  , (Linux Alpine, M.fromList [(Nothing, ghc_8101_64_alpine)])
-                  , (FreeBSD     , M.fromList [(Nothing, ghc_8101_64_freebsd)])
                  ]
                )
              , ( A_32
@@ -1890,7 +1876,6 @@ ghcupDownloads = M.fromList
                      , (Just [vers|9|], ghc_8101_32_deb9)
                      ]
                    )
-                  , (Linux Alpine, M.fromList [(Nothing, ghc_8101_32_alpine)])
                  ]
                )
              ]
@@ -1998,7 +1983,7 @@ ghcupDownloads = M.fromList
    )
  , ( GHCup
    , M.fromList
-      [ ( [vver|0.1.7|]
+      [ ( [vver|0.1.5|]
        , VersionInfo
            [Recommended, Latest]
            (Just
@@ -2009,16 +1994,16 @@ ghcupDownloads = M.fromList
              [ ( A_64
                , M.fromList
                  [ ( Linux UnknownLinux
-                    , M.fromList [(Nothing, ghcup_017_64_linux)]
+                    , M.fromList [(Nothing, ghcup_015_64_linux)]
                    )
-                  , (Darwin , M.fromList [(Nothing, ghcup_017_64_darwin10_13)])
-                  , (FreeBSD, M.fromList [(Nothing, ghcup_017_64_freebsd)])
+                  , (Darwin , M.fromList [(Nothing, ghcup_015_64_darwin10_13)])
+                  , (FreeBSD, M.fromList [(Nothing, ghcup_015_64_freebsd)])
                  ]
                )
              , ( A_32
                , M.fromList
                  [ ( Linux UnknownLinux
-                    , M.fromList [(Nothing, ghcup_017_32_linux)]
+                    , M.fromList [(Nothing, ghcup_015_32_linux)]
                    )
                  ]
                )
--- a/lib/GHCup/Download.hs
+++ b/lib/GHCup/Download.hs
@@ -50,7 +50,7 @@ import           Data.Versions
 import           Data.Word8
 import           GHC.IO.Exception
 import           HPath
-import           HPath.IO                     as HIO hiding ( hideError )
+import           HPath.IO                      as HIO
 import           Haskus.Utils.Variant.Excepts
 import           Optics
 import           Prelude                 hiding ( abs
@@ -270,10 +270,7 @@ getDownloadInfo :: Tool
 getDownloadInfo t v (PlatformRequest a p mv) dls = maybe
  (Left NoDownload)
  Right
-  (case p of
-    -- non-musl won't work on alpine
-    Linux Alpine -> with_distro <|> without_distro_ver
-    _ -> with_distro <|> without_distro_ver <|> without_distro)
+  (with_distro <|> without_distro_ver <|> without_distro)

 where
  with_distro        = distro_preview id id
--- a/lib/GHCup/Types.hs
+++ b/lib/GHCup/Types.hs
@@ -152,7 +152,6 @@ data Settings = Settings
  , noVerify   :: Bool
  , keepDirs   :: KeepDirs
  , downloader :: Downloader
-  , verbose    :: Bool
  }
  deriving Show

--- a/lib/GHCup/Utils.hs
+++ b/lib/GHCup/Utils.hs
@@ -24,9 +24,7 @@ import           GHCup.Utils.MegaParsec
 import           GHCup.Utils.Prelude
 import           GHCup.Utils.String.QQ

-#if !defined(TAR)
 import           Codec.Archive
-#endif
 import           Control.Applicative
 import           Control.Exception.Safe
 import           Control.Monad
@@ -45,7 +43,7 @@ import           Data.Versions
 import           Data.Word8
 import           GHC.IO.Exception
 import           HPath
-import           HPath.IO                hiding ( hideError )
+import           HPath.IO
 import           Haskus.Utils.Variant.Excepts
 import           Optics
 import           Prelude                 hiding ( abs
@@ -61,18 +59,13 @@ import           System.Posix.Files.ByteString  ( readSymbolicLink )
 import           Text.Regex.Posix
 import           URI.ByteString

-#if defined(TAR)
-import qualified Codec.Archive.Tar             as Tar
-#endif
 import qualified Codec.Compression.BZip        as BZip
 import qualified Codec.Compression.GZip        as GZip
 import qualified Codec.Compression.Lzma        as Lzma
 import qualified Data.ByteString               as B
 import qualified Data.ByteString.Lazy          as BL
 import qualified Data.Map.Strict               as Map
-#if !defined(TAR)
 import qualified Data.Text                     as T
-#endif
 import qualified Data.Text.Encoding            as E
 import qualified Text.Megaparsec               as MP

@@ -319,30 +312,17 @@ getLatestGHCFor major' minor' dls = do
 unpackToDir :: (MonadLogger m, MonadIO m, MonadThrow m)
            => Path Abs       -- ^ destination dir
            -> Path Abs       -- ^ archive path
-            -> Excepts '[UnknownArchive
-#if !defined(TAR)
-                        , ArchiveResult
-#endif
-                        ] m ()
+            -> Excepts '[UnknownArchive, ArchiveResult] m ()
 unpackToDir dest av = do
  fp <- (decUTF8Safe . toFilePath) <$> basename av
  let dfp = decUTF8Safe . toFilePath $ dest
  lift $ $(logInfo) [i|Unpacking: #{fp} to #{dfp}|]
  fn <- toFilePath <$> basename av

-#if defined(TAR)
-  let untar :: MonadIO m => BL.ByteString -> Excepts '[] m ()
-      untar = liftIO . Tar.unpack (toFilePath dest) . Tar.read
-#else
  let untar :: MonadIO m => BL.ByteString -> Excepts '[ArchiveResult] m ()
      untar = lEM . liftIO . runArchiveM . unpackToDirLazy (T.unpack . decUTF8Safe . toFilePath $ dest)
-#endif

-#if defined(TAR)
-      rf :: MonadIO m => Path Abs -> Excepts '[] m BL.ByteString
-#else
      rf :: MonadIO m => Path Abs -> Excepts '[ArchiveResult] m BL.ByteString
-#endif
      rf = liftIO . readFile

  -- extract, depending on file extension
@@ -473,13 +453,10 @@ ghcUpSrcBuiltFile = [rel|.ghcup_src_built|]


 -- | Calls gmake if it exists in PATH, otherwise make.
-make :: (MonadThrow m, MonadIO m, MonadReader Settings m)
-     => [ByteString]
-     -> Maybe (Path Abs)
-     -> m (Either ProcessError ())
+make :: [ByteString] -> Maybe (Path Abs) -> IO (Either ProcessError ())
 make args workdir = do
-  spaths    <- catMaybes . fmap parseAbs <$> (liftIO getSearchPath)
-  has_gmake <- isJust <$> (liftIO $ searchPath spaths [rel|gmake|])
+  spaths    <- catMaybes . fmap parseAbs <$> getSearchPath
+  has_gmake <- isJust <$> searchPath spaths [rel|gmake|]
  let mymake = if has_gmake then "gmake" else "make"
  execLogged mymake True args [rel|ghc-make|] workdir Nothing

--- a/lib/GHCup/Utils/File.hs
+++ b/lib/GHCup/Utils/File.hs
@@ -1,33 +1,27 @@
 {-# LANGUAGE QuasiQuotes       #-}
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE TemplateHaskell   #-}

 module GHCup.Utils.File where

 import           GHCup.Utils.Dirs
 import           GHCup.Utils.Prelude
-import           GHCup.Types

 import           Control.Concurrent
 import           Control.Exception              ( evaluate )
 import           Control.Exception.Safe
 import           Control.Monad
-import           Control.Monad.Reader
-import           Control.Monad.Trans.State.Strict
 import           Data.ByteString                ( ByteString )
 import           Data.Foldable
 import           Data.Functor
 import           Data.IORef
 import           Data.Maybe
-import           Data.Sequence                  ( Seq, (|>) )
 import           Data.Text                      ( Text )
 import           Data.Void
-import           Data.Word8
 import           GHC.IO.Exception
 import           HPath
-import           HPath.IO                hiding ( hideError )
-import           Optics                  hiding ((<|), (|>))
+import           HPath.IO
+import           Optics
 import           System.Console.Pretty
 import           System.Console.Regions
 import           System.IO.Error
@@ -43,7 +37,6 @@ import           Text.Regex.Posix


 import qualified Control.Exception             as EX
-import qualified Data.Sequence                 as Sq
 import qualified Data.Text                     as T
 import qualified Data.Text.Encoding            as E
 import qualified System.Posix.Process.ByteString
@@ -57,7 +50,6 @@ import qualified "unix-bytestring" System.Posix.IO.ByteString



-
 -- | Bool signals whether the regions should be cleaned.
 data StopThread = StopThread Bool
  deriving Show
@@ -109,149 +101,110 @@ executeOut path args chdir = captureOutStreams $ do
  SPPB.executeFile (toFilePath path) True args Nothing


-execLogged :: (MonadReader Settings m, MonadIO m, MonadThrow m)
-           => ByteString       -- ^ thing to execute
+execLogged :: ByteString       -- ^ thing to execute
           -> Bool             -- ^ whether to search PATH for the thing
           -> [ByteString]     -- ^ args for the thing
           -> Path Rel         -- ^ log filename
           -> Maybe (Path Abs) -- ^ optionally chdir into this
           -> Maybe [(ByteString, ByteString)] -- ^ optional environment
-           -> m (Either ProcessError ())
+           -> IO (Either ProcessError ())
 execLogged exe spath args lfile chdir env = do
-  Settings {..} <- ask
-  ldir          <- liftIO ghcupLogsDir
-  logfile       <- (ldir </>) <$> parseRel (toFilePath lfile <> ".log")
-  liftIO $ bracket (createFile (toFilePath logfile) newFilePerms)
-                   closeFd
-                   (action verbose)
+  ldir    <- ghcupLogsDir
+  logfile <- (ldir </>) <$> parseRel (toFilePath lfile <> ".log")
+  bracket (createFile (toFilePath logfile) newFilePerms) closeFd action
 where
-  action verbose fd = do
+  action fd = do
    actionWithPipes $ \(stdoutRead, stdoutWrite) -> do
-      -- start the thread that logs to stdout
-      pState <- newEmptyMVar
-      done   <- newEmptyMVar
-      void
-        $ forkOS
+      -- start the thread that logs to stdout in a region
+      done <- newEmptyMVar
+      tid  <-
+        forkIO
        $ EX.handle (\(_ :: StopThread) -> pure ())
        $ EX.handle (\(_ :: IOException) -> pure ())
        $ flip finally (putMVar done ())
-        $ (if verbose
-            then tee fd stdoutRead
-            else printToRegion fd stdoutRead 6 pState
-          )
+        $ printToRegion fd stdoutRead 6

-      -- fork the subprocess
+      -- fork our subprocess
      pid <- SPPB.forkProcess $ do
        void $ dupTo stdoutWrite stdOutput
        void $ dupTo stdoutWrite stdError
-        closeFd stdoutRead
        closeFd stdoutWrite
+        closeFd stdoutRead

        -- execute the action
        maybe (pure ()) (changeWorkingDirectory . toFilePath) chdir
-        void $ SPPB.executeFile exe spath args env
+        SPPB.executeFile exe spath args env

      closeFd stdoutWrite

      -- wait for the subprocess to finish
-      e <- toProcessError exe args <$!> SPPB.getProcessStatus True True pid
-      putMVar pState (either (const False) (const True) e)
+      e <- SPPB.getProcessStatus True True pid >>= \case
+        i@(Just (SPPB.Exited _)) -> pure $ toProcessError exe args i
+        i                        -> pure $ toProcessError exe args i

+      -- make sure the logging thread stops
+      case e of
+        Left  _ -> EX.throwTo tid (StopThread False)
+        Right _ -> EX.throwTo tid (StopThread True)
      takeMVar done
+
      closeFd stdoutRead
-
      pure e

-  tee :: Fd -> Fd -> IO ()
-  tee fileFd fdIn = readTilEOF lineAction fdIn
-
-   where
-    lineAction :: ByteString -> IO ()
-    lineAction bs' = do
-      void $ SPIB.fdWrite fileFd (bs' <> "\n")
-      void $ SPIB.fdWrite stdOutput (bs' <> "\n")
-
  -- Reads fdIn and logs the output in a continous scrolling area
  -- of 'size' terminal lines. Also writes to a log file.
-  printToRegion :: Fd -> Fd -> Int -> MVar Bool -> IO ()
-  printToRegion fileFd fdIn size pState = do
-    void $ displayConsoleRegions $ do
-      rs <-
-        liftIO
-        . fmap Sq.fromList
-        . sequence
-        . replicate size
-        . openConsoleRegion
-        $ Linear
-      flip runStateT mempty
+  printToRegion fileFd fdIn size = do
+    ref <- newIORef ([] :: [ByteString])
+    displayConsoleRegions $ do
+      rs <- sequence . replicate size . openConsoleRegion $ Linear
+      flip finally (readTilEOF (lineAction ref rs) fdIn) -- make sure the last few lines don't get cut off
        $ handle
-            (\(ex :: SomeException) -> do
-              ps <- liftIO $ takeMVar pState
-              when (ps == True) (forM_ rs (liftIO . closeConsoleRegion))
-              throw ex
+            (\(StopThread b) -> do
+              when b (forM_ rs closeConsoleRegion)
+              EX.throw (StopThread b)
            )
-        $ readTilEOF (lineAction rs) fdIn
+        $ do
+            hideError eofErrorType $ readTilEOF (lineAction ref rs) fdIn
+            -- wait for explicit stop from the parent to signal what cleanup to run
+            forever (threadDelay 5000)

   where
    -- action to perform line by line
-    -- TODO: do this with vty for efficiency
-    lineAction :: (MonadMask m, MonadIO m)
-               => Seq ConsoleRegion
-               -> ByteString
-               -> StateT (Seq ByteString) m ()
-    lineAction rs = \bs' -> do
-      void $ liftIO $ SPIB.fdWrite fileFd (bs' <> "\n")
-      modify (swapRegs bs')
-      regs <- get
-      liftIO $ forM_ (Sq.zip regs rs) $ \(bs, r) -> setConsoleRegion r $ do
-        w <- consoleWidth
-        return
-          . T.pack
-          . color Blue
-          . T.unpack
-          . decUTF8Safe
-          . trim w
-          . (\b -> "[ " <> toFilePath lfile <> " ] " <> b)
-          $ bs
+    lineAction ref rs bs' = do
+      modifyIORef' ref (swapRegs bs')
+      regs <- readIORef ref
+      void $ SPIB.fdWrite fileFd (bs' <> "\n")
+      forM (zip regs rs) $ \(bs, r) -> do
+        setConsoleRegion r $ do
+          w <- consoleWidth
+          return
+            . T.pack
+            . color Blue
+            . T.unpack
+            . decUTF8Safe
+            . trim w
+            . (\b -> "[ " <> toFilePath lfile <> " ] " <> b)
+            $ bs

-    swapRegs :: a -> Seq a -> Seq a
-    swapRegs bs = \regs -> if
-      | Sq.length regs < size -> regs |> bs
-      | otherwise             -> Sq.drop 1 regs |> bs
+    swapRegs bs regs | length regs < size = regs ++ [bs]
+                     | otherwise          = tail regs ++ [bs]

    -- trim output line to terminal width
-    trim :: Int -> ByteString -> ByteString
-    trim w = \bs -> if
-      | BS.length bs > w && w > 5 -> BS.take (w - 4) bs <> "..."
-      | otherwise                 -> bs
+    trim w bs | BS.length bs > w && w > 5 = BS.take (w - 4) bs <> "..."
+              | otherwise                 = bs

-  -- read an entire line from the file descriptor (removes the newline char)
-  readLine :: MonadIO m => Fd -> ByteString -> m (ByteString, ByteString)
-  readLine fd = go
-   where
-    go inBs = do
-      bs <-
-        liftIO
-        $ handleIO (\e -> if isEOFError e then pure "" else ioError e)
-        $ SPIB.fdRead fd 512
-      let nbs          = BS.append inBs bs
-          (line, rest) = BS.span (/= _lf) nbs
+    -- read an entire line from the file descriptor (removes the newline char)
+    readLine fd' = do
+      bs <- SPIB.fdRead fd' 1
      if
-        | BS.length rest /= 0 -> pure (line, BS.tail rest)
-        | BS.length line == 0 -> pure (mempty, mempty)
-        | otherwise           -> (\(l, r) -> (line <> l, r)) <$!> go mempty
+        | bs == "\n" -> pure ""
+        | bs == ""   -> pure ""
+        | otherwise  -> fmap (bs <>) $ readLine fd'

-  readTilEOF :: MonadIO m => (ByteString -> m a) -> Fd -> m ()
-  readTilEOF ~action' fd' = go mempty
-   where
-    go bs' = do
-      (bs, rest) <- readLine fd' bs'
-      if
-        | BS.length bs == 0 -> liftIO
-        $ ioError (mkIOError eofErrorType "" Nothing Nothing)
-        | otherwise -> do
-          void $ action' bs
-          go rest
+    readTilEOF action' fd' = do
+      bs <- readLine fd'
+      void $ action' bs
+      readTilEOF action' fd'


 -- | Capture the stdout and stderr of the given action, which
--- a/lib/GHCup/Utils/Prelude.hs
+++ b/lib/GHCup/Utils/Prelude.hs
@@ -165,11 +165,6 @@ liftIOException errType ex =
    . lift


-- | Uses safe-exceptions.
-hideError :: (MonadIO m, MonadCatch m) => IOErrorType -> m () -> m ()
-hideError err = handleIO (\e -> if err == ioeGetErrorType e then pure () else liftIO . ioError $ e)
-
-
 hideErrorDef :: [IOErrorType] -> a -> IO a -> IO a
 hideErrorDef errs def =
  handleIO (\e -> if ioeGetErrorType e `elem` errs then pure def else ioError e)
--- a/lib/GHCup/Utils/Version/QQ.hs
+++ b/lib/GHCup/Utils/Version/QQ.hs
@@ -42,6 +42,7 @@ deriving instance Data VUnit

 #if !MIN_VERSION_base(4,13,0)
 deriving instance Lift (NonEmpty Word)
+instance Lift Text
 #endif

 qq :: (Text -> Q Exp) -> QuasiQuoter
--- a/lib/GHCup/Version.hs
+++ b/lib/GHCup/Version.hs
@@ -16,7 +16,7 @@ ghcupURL :: URI
 ghcupURL = [uri|https://www.haskell.org/ghcup/data/ghcup-0.0.2.json|]

 ghcUpVer :: PVP
-ghcUpVer = [pver|0.1.7|]
+ghcUpVer = [pver|0.1.5|]

 numericVer :: String
 numericVer = T.unpack . prettyPVP $ ghcUpVer
--- a/www/ghcup.css
+++ b/www/ghcup.css
@@ -101,7 +101,6 @@ body#idx p.other-help {

 .instructions div.command-button {
 	display: flex;
-	align-items: center;
 }

 .instructions div.command-button button {
@@ -112,7 +111,7 @@ body#idx p.other-help {
 	border-style: solid;
 	border-radius: 3px;

-    margin-left: 0.5rem;
+    margin-left: 1rem;
    margin-right: auto;
 	margin-top: 25px;
 	margin-bottom: 25px;
@@ -135,21 +134,20 @@ hr {
 #platform-instructions-linux > div > pre,
 #platform-instructions-mac > div > pre,
 #platform-instructions-freebsd > div > pre,
-#platform-instructions-win32 > div > pre,
-#platform-instructions-win64 > div > pre,
+#platform-instructions-win32 > pre,
+#platform-instructions-win64 > pre,
 #platform-instructions-default > div > div > pre,
 #platform-instructions-unknown > div > div > pre {
    background-color: #515151;
    color: white;
    margin-left: auto;
+    margin-right: auto;
    padding-top: 1rem;
    padding-bottom: 1rem;
    padding-right: 1rem;
    text-align: center;
    border-radius: 3px;
    box-shadow: inset 0px 0px 20px 0px #333333;
-	font-size: 0.6em;
-	width: 40rem;
 }

 #platform-instructions-win32 a.windows-download,
--- a/www/index.html
+++ b/www/index.html
@@ -46,9 +46,6 @@
        <p>
          To install Haskell, follow the instructions on
          <a class="windows-download" href="https://www.haskell.org/platform/#windows">Haskell Platform</a>
-		<p>If you're a Windows Subsystem for Linux user run the following in your terminal, then follow the onscreen instructions to install Haskell.
-		</p>
-		<div class="command-button"><pre><span class='ghcup-command'>curl --proto '=https' --tlsv1.2 -sSf https://get-ghcup.haskell.org | sh</span></pre><button class="tooltip" onclick="copyToClipboard()"><img src="copy.svg" alt="" /><span class="tooltiptext">Copy to clipboard</span></button></div>
        </p>
        <p class="other-help">You appear to be running Windows 32-bit. If not, <a class="default-platform-button" href="#">display all supported installers</a>.</p>
      </div>
@@ -58,9 +55,6 @@
          To install Haskell, follow the instructions on
          <a class="windows-download" href="https://www.haskell.org/platform/#windows">Haskell Platform</a>
        </p>
-		<p>If you're a Windows Subsystem for Linux user run the following in your terminal, then follow the onscreen instructions to install Haskell.
-		</p>
-		<div class="command-button"><pre><span class='ghcup-command'>curl --proto '=https' --tlsv1.2 -sSf https://get-ghcup.haskell.org | sh</span></pre><button class="tooltip" onclick="copyToClipboard()"><img src="copy.svg" alt="" /><span class="tooltiptext">Copy to clipboard</span></button></div>
        <p class="other-help">You appear to be running Windows 64-bit. If not, <a class="default-platform-button" href="#">display all supported installers</a>.</p>
      </div>

@@ -83,7 +77,7 @@

        <!-- duplicate the default cross-platform instructions -->
        <div>
-          <p>If you are running Linux, macOS, FreeBSD or Windows Subsystem for Linux, run the following in your terminal (as a user other than root), then follow the onscreen instructions.</p>
+          <p>If you are running Linux, macOS or FreeBSD,<br/>run the following in your terminal (as a user other than root), then follow the onscreen instructions.</p>
 		  <div class="command-button"><pre><span class='ghcup-command'>curl --proto '=https' --tlsv1.2 -sSf https://get-ghcup.haskell.org | sh</span></pre><button class="tooltip" onclick="copyToClipboard()"><img src="copy.svg" alt="" /><span class="tooltiptext">Copy to clipboard</span></button></div>
          <p class="other-help">If you don't like curl | sh, see <a href="https://gitlab.haskell.org/haskell/ghcup-hs#manual-install">other installation methods</a>.</p>
        </div>
@@ -101,7 +95,7 @@

      <div id="platform-instructions-default" class="instructions">
        <div>
-          <p>To install Haskell, if you are running Linux, macOS, FreeBSD or Windows Subsystem for Linux, run the following
+          <p>To install Haskell, if you are running Linux, macOS or FreeBSD,<br/>run the following
          in your terminal (as a user other than root), then follow the onscreen instructions.</p>
 		  <div class="command-button"><pre><span class='ghcup-command'>curl --proto '=https' --tlsv1.2 -sSf https://get-ghcup.haskell.org | sh</span></pre><button class="tooltip" onclick="copyToClipboard()"><img src="copy.svg" alt="" /><span class="tooltiptext">Copy to clipboard</span></button></div>
          <p class="other-help">If you don't like curl | sh, see <a href="https://gitlab.haskell.org/haskell/ghcup-hs#manual-install">other installation methods</a>.</p>
@@ -146,7 +140,7 @@

      <div id="platform-instructions-default" class="instructions">
        <div>
-          <p>To install Haskell, if you are running Linux, macOS, FreeBSD or Windows Subsystem for Linux, run the following
+          <p>To install Haskell, if you are running Linux, macOS or FreeBSD,<br/>run the following
          in your terminal (as a user other than root), then follow the onscreen instructions.</p>
 		  <pre><span class='ghcup-command'>curl --proto '=https' --tlsv1.2 -sSf https://get-ghcup.haskell.org | sh</span></pre>
          <p class="other-help">If you don't like curl | sh, see <a href="https://gitlab.haskell.org/haskell/ghcup-hs#manual-install">other installation methods</a>.</p>
Author	SHA1	Message	Date
Julian Ospald	c3ea57fd89	Fix	2020-07-08 00:19:33 +02:00
Julian Ospald	4607de2589	Fix CI for 32bit build	2020-07-08 00:08:18 +02:00
Julian Ospald	4febf7f18d	Further CI fixes	2020-07-07 23:52:16 +02:00
Ben Gamari	16d4a28454	Simplify upgrade copying logic	2020-07-07 22:04:43 +02:00
Julian Ospald	62b628cb05	Fix CI	2020-07-07 21:43:12 +02:00
Julian Ospald	40ffb7fd73	Create bindir in upgradeGHCup This should only be necessary in edge cases.	2020-07-06 23:32:50 +02:00
Julian Ospald	618a05484c	Create brick tui wrt #24	2020-07-06 23:10:25 +02:00