-
-
Save maxsu/fc0ada60f478bc89e3b71b8e54cc389d to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE CPP #-} | |
{-# LANGUAGE DataKinds #-} | |
{-# LANGUAGE DuplicateRecordFields #-} | |
{-# LANGUAGE FlexibleContexts #-} | |
{-# LANGUAGE TemplateHaskell #-} | |
{-# LANGUAGE OverloadedStrings #-} | |
{-# LANGUAGE QuasiQuotes #-} | |
{-# LANGUAGE TypeApplications #-} | |
module Main where | |
#if defined(BRICK) | |
import BrickMain ( brickMain ) | |
#endif | |
import GHCup | |
import GHCup.Download | |
import GHCup.Errors | |
import GHCup.Platform | |
import GHCup.Requirements | |
import GHCup.Types | |
import GHCup.Utils | |
import GHCup.Utils.File | |
import GHCup.Utils.Logger | |
import GHCup.Utils.MegaParsec | |
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 ) | |
#endif | |
import Control.Monad.Logger | |
import Control.Monad.Reader | |
import Control.Monad.Trans.Resource | |
import Data.Bifunctor | |
import Data.Char | |
import Data.Either | |
import Data.Functor | |
import Data.List ( intercalate, sort ) | |
import Data.List.NonEmpty (NonEmpty ((:|))) | |
import Data.Maybe | |
import Data.String.Interpolate | |
import Data.Text ( Text ) | |
import Data.Versions hiding ( str ) | |
import Data.Void | |
import GHC.IO.Encoding | |
import Haskus.Utils.Variant.Excepts | |
import HPath | |
import HPath.IO | |
import Language.Haskell.TH | |
import Options.Applicative hiding ( style ) | |
import Options.Applicative.Help.Pretty ( text ) | |
import Prelude hiding ( appendFile ) | |
import Safe | |
import System.Console.Pretty | |
import System.Environment | |
import System.Exit | |
import System.IO hiding ( appendFile ) | |
import Text.Read hiding ( lift ) | |
import URI.ByteString | |
import qualified Data.ByteString as B | |
import qualified Data.ByteString.UTF8 as UTF8 | |
import qualified Data.Text as T | |
import qualified Data.Text.IO as T | |
import qualified Data.Text.Encoding as E | |
import qualified Text.Megaparsec as MP | |
import qualified Text.Megaparsec.Char as MPC |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment