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