module Distribution.Simple.GHC.ImplInfo (
GhcImplInfo(..), getImplInfo,
ghcVersionImplInfo, ghcjsVersionImplInfo
) where
import Prelude ()
import Distribution.Compat.Prelude
import Distribution.Simple.Compiler
import Distribution.Version
data GhcImplInfo = GhcImplInfo
{ GhcImplInfo -> Bool
supportsHaskell2010 :: Bool
, GhcImplInfo -> Bool
supportsGHC2021 :: Bool
, GhcImplInfo -> Bool
reportsNoExt :: Bool
, GhcImplInfo -> Bool
alwaysNondecIndent :: Bool
, GhcImplInfo -> Bool
flagGhciScript :: Bool
, GhcImplInfo -> Bool
flagProfAuto :: Bool
, GhcImplInfo -> Bool
flagPackageConf :: Bool
, GhcImplInfo -> Bool
flagDebugInfo :: Bool
, GhcImplInfo -> Bool
supportsDebugLevels :: Bool
, GhcImplInfo -> Bool
supportsPkgEnvFiles :: Bool
, GhcImplInfo -> Bool
flagWarnMissingHomeModules :: Bool
}
getImplInfo :: Compiler -> GhcImplInfo
getImplInfo :: Compiler -> GhcImplInfo
getImplInfo Compiler
comp =
case Compiler -> CompilerFlavor
compilerFlavor Compiler
comp of
CompilerFlavor
GHC -> Version -> GhcImplInfo
ghcVersionImplInfo (Compiler -> Version
compilerVersion Compiler
comp)
CompilerFlavor
GHCJS -> case CompilerFlavor -> Compiler -> Maybe Version
compilerCompatVersion CompilerFlavor
GHC Compiler
comp of
Just Version
ghcVer -> Version -> Version -> GhcImplInfo
ghcjsVersionImplInfo (Compiler -> Version
compilerVersion Compiler
comp) Version
ghcVer
Maybe Version
_ -> forall a. HasCallStack => [Char] -> a
error ([Char]
"Distribution.Simple.GHC.Props.getImplProps: " forall a. [a] -> [a] -> [a]
++
[Char]
"could not find GHC version for GHCJS compiler")
CompilerFlavor
x -> forall a. HasCallStack => [Char] -> a
error ([Char]
"Distribution.Simple.GHC.Props.getImplProps only works" forall a. [a] -> [a] -> [a]
++
[Char]
"for GHC-like compilers (GHC, GHCJS)" forall a. [a] -> [a] -> [a]
++
[Char]
", but found " forall a. [a] -> [a] -> [a]
++ forall a. Show a => a -> [Char]
show CompilerFlavor
x)
ghcVersionImplInfo :: Version -> GhcImplInfo
ghcVersionImplInfo :: Version -> GhcImplInfo
ghcVersionImplInfo Version
ver = GhcImplInfo
{ supportsHaskell2010 :: Bool
supportsHaskell2010 = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
7]
, supportsGHC2021 :: Bool
supportsGHC2021 = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
9,Int
1]
, reportsNoExt :: Bool
reportsNoExt = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
7]
, alwaysNondecIndent :: Bool
alwaysNondecIndent = [Int]
v forall a. Ord a => a -> a -> Bool
< [Int
7,Int
1]
, flagGhciScript :: Bool
flagGhciScript = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
7,Int
2]
, flagProfAuto :: Bool
flagProfAuto = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
7,Int
4]
, flagPackageConf :: Bool
flagPackageConf = [Int]
v forall a. Ord a => a -> a -> Bool
< [Int
7,Int
5]
, flagDebugInfo :: Bool
flagDebugInfo = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
7,Int
10]
, supportsDebugLevels :: Bool
supportsDebugLevels = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
8,Int
0]
, supportsPkgEnvFiles :: Bool
supportsPkgEnvFiles = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
8,Int
0,Int
1,Int
20160901]
, flagWarnMissingHomeModules :: Bool
flagWarnMissingHomeModules = [Int]
v forall a. Ord a => a -> a -> Bool
>= [Int
8,Int
2]
}
where
v :: [Int]
v = Version -> [Int]
versionNumbers Version
ver
ghcjsVersionImplInfo :: Version
-> Version
-> GhcImplInfo
ghcjsVersionImplInfo :: Version -> Version -> GhcImplInfo
ghcjsVersionImplInfo Version
_ghcjsver Version
ghcver = GhcImplInfo
{ supportsHaskell2010 :: Bool
supportsHaskell2010 = Bool
True
, supportsGHC2021 :: Bool
supportsGHC2021 = Bool
True
, reportsNoExt :: Bool
reportsNoExt = Bool
True
, alwaysNondecIndent :: Bool
alwaysNondecIndent = Bool
False
, flagGhciScript :: Bool
flagGhciScript = Bool
True
, flagProfAuto :: Bool
flagProfAuto = Bool
True
, flagPackageConf :: Bool
flagPackageConf = Bool
False
, flagDebugInfo :: Bool
flagDebugInfo = Bool
False
, supportsDebugLevels :: Bool
supportsDebugLevels = [Int]
ghcv forall a. Ord a => a -> a -> Bool
>= [Int
8,Int
0]
, supportsPkgEnvFiles :: Bool
supportsPkgEnvFiles = [Int]
ghcv forall a. Ord a => a -> a -> Bool
>= [Int
8,Int
0,Int
2]
, flagWarnMissingHomeModules :: Bool
flagWarnMissingHomeModules = [Int]
ghcv forall a. Ord a => a -> a -> Bool
>= [Int
8,Int
2]
}
where
ghcv :: [Int]
ghcv = Version -> [Int]
versionNumbers Version
ghcver