imports.hs

{-# LANGUAGE CPP, DataKinds, DuplicateRecordFields, FlexibleContexts,
TemplateHaskell,  OverloadedStrings, QuasiQuotes, 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