>>> :set -XOverloadedStrings
>>> :set -XDataKinds
>>> :set -XTypeApplications
>>> :set -XQuasiQuotes
>>> import System.Directory
>>> import URI.ByteString
>>> import qualified Data.Text as T
>>> import GHCup.Prelude
>>> import GHCup.Download
>>> import GHCup.Version
>>> import GHCup.Errors
>>> import GHCup.Types
>>> import GHCup.Utils.Dirs
>>> import GHCup.Types.Optics
>>> import Data.Versions
>>> import Optics
>>> import GHCup.Prelude.Version.QQ
>>> import qualified Data.Text.Encoding as E
>>> import qualified Data.Map.Strict               as M
>>> import Control.Monad.Reader
>>> import Data.Variant.Excepts
>>> import Text.PrettyPrint.HughesPJClass ( prettyShow )
>>> let lc = LoggerConfig { lcPrintDebug = False, consoleOutter = mempty, fileOutter = mempty, fancyColors = False }
>>> dirs' <- getAllDirs
>>> let installedVersions = [ ([pver|8.10.7|], "-debug+lol", Nothing), ([pver|8.10.4|], "", Nothing), ([pver|8.8.4|], "", Nothing), ([pver|8.8.3|], "", Nothing) ]
>>> let settings = defaultSettings { cache = True, metaCache = 0, noNetwork = True }
>>> let leanAppState = LeanAppState settings dirs' defaultKeyBindings lc
>>> cwd <- getCurrentDirectory
>>> (Right ref) <- pure $ GHCup.Utils.parseURI $ "file://" <> E.encodeUtf8 (T.pack cwd) <> "/data/metadata/" <> (urlBaseName . view pathL' $ ghcupURL)
>>> (Right ref') <- pure $ GHCup.Utils.parseURI $ "file://" <> E.encodeUtf8 (T.pack cwd) <> "/data/metadata/" <> (urlBaseName . view pathL' $ channelURL PrereleasesChannel)
>>> (VRight r) <- (fmap . fmap) _ghcupDownloads $ flip runReaderT leanAppState . runE @'[DigestError, GPGError, JSONError , DownloadFailed , FileDoesNotExistError, ContentLengthError] $ liftE (getBase ref) >>= liftE . decodeMetadata @GHCupInfo
>>> (VRight r') <- (fmap . fmap) _ghcupDownloads $ flip runReaderT leanAppState . runE @'[DigestError, GPGError, JSONError , DownloadFailed , FileDoesNotExistError, ContentLengthError] $ liftE (getBase ref') >>= liftE . decodeMetadata @GHCupInfo
>>> let rr = M.unionsWith (M.unionWith (\_ b2 -> b2)) [r, r']
>>> let go = flip runReaderT leanAppState . fmap (tVerToText . fst)