{-# LANGUAGE OverloadedStrings #-}
module Distribution.Simple.ShowBuildInfo (
mkBuildInfo, mkBuildInfo', mkCompilerInfo, mkComponentInfo
) where
import System.FilePath
import Distribution.Compat.Prelude
import Prelude ()
import qualified Distribution.Simple.GHC as GHC
import qualified Distribution.Simple.Program.GHC as GHC
import Distribution.PackageDescription
import Distribution.Compiler
import Distribution.Verbosity
import Distribution.Simple.Compiler (Compiler, showCompilerId, compilerFlavor)
import Distribution.Simple.Program
import Distribution.Simple.Setup
import Distribution.Simple.Utils (cabalVersion)
import Distribution.Utils.Json
import Distribution.Types.Component
import Distribution.Types.ComponentLocalBuildInfo
import Distribution.Types.LocalBuildInfo
import Distribution.Types.TargetInfo
import Distribution.Text
import Distribution.Pretty
mkBuildInfo
:: FilePath
-> PackageDescription
-> LocalBuildInfo
-> BuildFlags
-> (ConfiguredProgram, Compiler)
-> [TargetInfo]
-> ([String], Json)
mkBuildInfo :: [Char]
-> PackageDescription
-> LocalBuildInfo
-> BuildFlags
-> (ConfiguredProgram, Compiler)
-> [TargetInfo]
-> ([[Char]], Json)
mkBuildInfo [Char]
wdir PackageDescription
pkg_descr LocalBuildInfo
lbi BuildFlags
_flags (ConfiguredProgram, Compiler)
compilerInfo [TargetInfo]
targetsToBuild = ([[Char]]
warnings, [([Char], Json)] -> Json
JsonObject [([Char], Json)]
buildInfoFields)
where
buildInfoFields :: [([Char], Json)]
buildInfoFields = Json -> [Json] -> [([Char], Json)]
mkBuildInfo' ((ConfiguredProgram -> Compiler -> Json)
-> (ConfiguredProgram, Compiler) -> Json
forall a b c. (a -> b -> c) -> (a, b) -> c
uncurry ConfiguredProgram -> Compiler -> Json
mkCompilerInfo (ConfiguredProgram, Compiler)
compilerInfo) [Json]
componentInfos
componentInfosWithWarnings :: [([[Char]], Json)]
componentInfosWithWarnings = (TargetInfo -> ([[Char]], Json))
-> [TargetInfo] -> [([[Char]], Json)]
forall a b. (a -> b) -> [a] -> [b]
map ([Char]
-> PackageDescription
-> LocalBuildInfo
-> ComponentLocalBuildInfo
-> ([[Char]], Json)
mkComponentInfo [Char]
wdir PackageDescription
pkg_descr LocalBuildInfo
lbi (ComponentLocalBuildInfo -> ([[Char]], Json))
-> (TargetInfo -> ComponentLocalBuildInfo)
-> TargetInfo
-> ([[Char]], Json)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TargetInfo -> ComponentLocalBuildInfo
targetCLBI) [TargetInfo]
targetsToBuild
componentInfos :: [Json]
componentInfos = (([[Char]], Json) -> Json) -> [([[Char]], Json)] -> [Json]
forall a b. (a -> b) -> [a] -> [b]
map ([[Char]], Json) -> Json
forall a b. (a, b) -> b
snd [([[Char]], Json)]
componentInfosWithWarnings
warnings :: [[Char]]
warnings = (([[Char]], Json) -> [[Char]]) -> [([[Char]], Json)] -> [[Char]]
forall (t :: * -> *) a b. Foldable t => (a -> [b]) -> t a -> [b]
concatMap ([[Char]], Json) -> [[Char]]
forall a b. (a, b) -> a
fst [([[Char]], Json)]
componentInfosWithWarnings
mkBuildInfo'
:: Json
-> [Json]
-> [(String, Json)]
mkBuildInfo' :: Json -> [Json] -> [([Char], Json)]
mkBuildInfo' Json
compilerInfo [Json]
componentInfos =
[ [Char]
"cabal-lib-version" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString (Version -> [Char]
forall a. Pretty a => a -> [Char]
display Version
cabalVersion)
, [Char]
"compiler" [Char] -> Json -> ([Char], Json)
.= Json
compilerInfo
, [Char]
"components" [Char] -> Json -> ([Char], Json)
.= [Json] -> Json
JsonArray [Json]
componentInfos
]
mkCompilerInfo :: ConfiguredProgram -> Compiler -> Json
mkCompilerInfo :: ConfiguredProgram -> Compiler -> Json
mkCompilerInfo ConfiguredProgram
compilerProgram Compiler
compilerInfo = [([Char], Json)] -> Json
JsonObject
[ [Char]
"flavour" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString (CompilerFlavor -> [Char]
forall a. Pretty a => a -> [Char]
prettyShow (CompilerFlavor -> [Char]) -> CompilerFlavor -> [Char]
forall a b. (a -> b) -> a -> b
$ Compiler -> CompilerFlavor
compilerFlavor Compiler
compilerInfo)
, [Char]
"compiler-id" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString (Compiler -> [Char]
showCompilerId Compiler
compilerInfo)
, [Char]
"path" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString (ConfiguredProgram -> [Char]
programPath ConfiguredProgram
compilerProgram)
]
mkComponentInfo :: FilePath -> PackageDescription -> LocalBuildInfo -> ComponentLocalBuildInfo -> ([String], Json)
mkComponentInfo :: [Char]
-> PackageDescription
-> LocalBuildInfo
-> ComponentLocalBuildInfo
-> ([[Char]], Json)
mkComponentInfo [Char]
wdir PackageDescription
pkg_descr LocalBuildInfo
lbi ComponentLocalBuildInfo
clbi = ([[Char]]
warnings, [([Char], Json)] -> Json
JsonObject ([([Char], Json)] -> Json) -> [([Char], Json)] -> Json
forall a b. (a -> b) -> a -> b
$
[ [Char]
"type" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString [Char]
compType
, [Char]
"name" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString (ComponentName -> [Char]
forall a. Pretty a => a -> [Char]
prettyShow ComponentName
name)
, [Char]
"unit-id" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString (UnitId -> [Char]
forall a. Pretty a => a -> [Char]
prettyShow (UnitId -> [Char]) -> UnitId -> [Char]
forall a b. (a -> b) -> a -> b
$ ComponentLocalBuildInfo -> UnitId
componentUnitId ComponentLocalBuildInfo
clbi)
, [Char]
"compiler-args" [Char] -> Json -> ([Char], Json)
.= [Json] -> Json
JsonArray (([Char] -> Json) -> [[Char]] -> [Json]
forall a b. (a -> b) -> [a] -> [b]
map [Char] -> Json
JsonString [[Char]]
compilerArgs)
, [Char]
"modules" [Char] -> Json -> ([Char], Json)
.= [Json] -> Json
JsonArray ((ModuleName -> Json) -> [ModuleName] -> [Json]
forall a b. (a -> b) -> [a] -> [b]
map ([Char] -> Json
JsonString ([Char] -> Json) -> (ModuleName -> [Char]) -> ModuleName -> Json
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ModuleName -> [Char]
forall a. Pretty a => a -> [Char]
display) [ModuleName]
modules)
, [Char]
"src-files" [Char] -> Json -> ([Char], Json)
.= [Json] -> Json
JsonArray (([Char] -> Json) -> [[Char]] -> [Json]
forall a b. (a -> b) -> [a] -> [b]
map [Char] -> Json
JsonString [[Char]]
sourceFiles)
, [Char]
"hs-src-dirs" [Char] -> Json -> ([Char], Json)
.= [Json] -> Json
JsonArray ((SymbolicPath PackageDir SourceDir -> Json)
-> [SymbolicPath PackageDir SourceDir] -> [Json]
forall a b. (a -> b) -> [a] -> [b]
map ([Char] -> Json
JsonString ([Char] -> Json)
-> (SymbolicPath PackageDir SourceDir -> [Char])
-> SymbolicPath PackageDir SourceDir
-> Json
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SymbolicPath PackageDir SourceDir -> [Char]
forall a. Pretty a => a -> [Char]
prettyShow) ([SymbolicPath PackageDir SourceDir] -> [Json])
-> [SymbolicPath PackageDir SourceDir] -> [Json]
forall a b. (a -> b) -> a -> b
$ BuildInfo -> [SymbolicPath PackageDir SourceDir]
hsSourceDirs BuildInfo
bi)
, [Char]
"src-dir" [Char] -> Json -> ([Char], Json)
.= [Char] -> Json
JsonString ([Char] -> [Char]
addTrailingPathSeparator [Char]
wdir)
] [([Char], Json)] -> [([Char], Json)] -> [([Char], Json)]
forall a. Semigroup a => a -> a -> a
<> [([Char], Json)]
cabalFile)
where
([[Char]]
warnings, [[Char]]
compilerArgs) = BuildInfo
-> LocalBuildInfo
-> ComponentLocalBuildInfo
-> ([[Char]], [[Char]])
getCompilerArgs BuildInfo
bi LocalBuildInfo
lbi ComponentLocalBuildInfo
clbi
name :: ComponentName
name = ComponentLocalBuildInfo -> ComponentName
componentLocalName ComponentLocalBuildInfo
clbi
bi :: BuildInfo
bi = Component -> BuildInfo
componentBuildInfo Component
comp
comp :: Component
comp = Component -> Maybe Component -> Component
forall a. a -> Maybe a -> a
fromMaybe ([Char] -> Component
forall a. HasCallStack => [Char] -> a
error ([Char] -> Component) -> [Char] -> Component
forall a b. (a -> b) -> a -> b
$ [Char]
"mkBuildInfo: no component " [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ ComponentName -> [Char]
forall a. Pretty a => a -> [Char]
prettyShow ComponentName
name) (Maybe Component -> Component) -> Maybe Component -> Component
forall a b. (a -> b) -> a -> b
$ PackageDescription -> ComponentName -> Maybe Component
lookupComponent PackageDescription
pkg_descr ComponentName
name
compType :: [Char]
compType = case Component
comp of
CLib Library
_ -> [Char]
"lib"
CExe Executable
_ -> [Char]
"exe"
CTest TestSuite
_ -> [Char]
"test"
CBench Benchmark
_ -> [Char]
"bench"
CFLib ForeignLib
_ -> [Char]
"flib"
modules :: [ModuleName]
modules = case Component
comp of
CLib Library
lib -> Library -> [ModuleName]
explicitLibModules Library
lib
CExe Executable
exe -> Executable -> [ModuleName]
exeModules Executable
exe
CTest TestSuite
test ->
case TestSuite -> TestSuiteInterface
testInterface TestSuite
test of
TestSuiteExeV10 Version
_ [Char]
_ -> []
TestSuiteLibV09 Version
_ ModuleName
modName -> [ModuleName
modName]
TestSuiteUnsupported TestType
_ -> []
CBench Benchmark
bench -> Benchmark -> [ModuleName]
benchmarkModules Benchmark
bench
CFLib ForeignLib
flib -> ForeignLib -> [ModuleName]
foreignLibModules ForeignLib
flib
sourceFiles :: [[Char]]
sourceFiles = case Component
comp of
CLib Library
_ -> []
CExe Executable
exe -> [Executable -> [Char]
modulePath Executable
exe]
CTest TestSuite
test ->
case TestSuite -> TestSuiteInterface
testInterface TestSuite
test of
TestSuiteExeV10 Version
_ [Char]
fp -> [[Char]
fp]
TestSuiteLibV09 Version
_ ModuleName
_ -> []
TestSuiteUnsupported TestType
_ -> []
CBench Benchmark
bench -> case Benchmark -> BenchmarkInterface
benchmarkInterface Benchmark
bench of
BenchmarkExeV10 Version
_ [Char]
fp -> [[Char]
fp]
BenchmarkUnsupported BenchmarkType
_ -> []
CFLib ForeignLib
_ -> []
cabalFile :: [([Char], Json)]
cabalFile
| Just [Char]
fp <- LocalBuildInfo -> Maybe [Char]
pkgDescrFile LocalBuildInfo
lbi = [([Char]
"cabal-file", [Char] -> Json
JsonString [Char]
fp)]
| Bool
otherwise = []
getCompilerArgs
:: BuildInfo
-> LocalBuildInfo
-> ComponentLocalBuildInfo
-> ([String], [String])
getCompilerArgs :: BuildInfo
-> LocalBuildInfo
-> ComponentLocalBuildInfo
-> ([[Char]], [[Char]])
getCompilerArgs BuildInfo
bi LocalBuildInfo
lbi ComponentLocalBuildInfo
clbi =
case Compiler -> CompilerFlavor
compilerFlavor (Compiler -> CompilerFlavor) -> Compiler -> CompilerFlavor
forall a b. (a -> b) -> a -> b
$ LocalBuildInfo -> Compiler
compiler LocalBuildInfo
lbi of
CompilerFlavor
GHC -> ([], [[Char]]
ghc)
CompilerFlavor
GHCJS -> ([], [[Char]]
ghc)
CompilerFlavor
c ->
( [[Char]
"ShowBuildInfo.getCompilerArgs: Don't know how to get build "
[Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ [Char]
" arguments for compiler " [Char] -> [Char] -> [Char]
forall a. [a] -> [a] -> [a]
++ CompilerFlavor -> [Char]
forall a. Show a => a -> [Char]
show CompilerFlavor
c]
, [])
where
ghc :: [[Char]]
ghc = Compiler -> Platform -> GhcOptions -> [[Char]]
GHC.renderGhcOptions (LocalBuildInfo -> Compiler
compiler LocalBuildInfo
lbi) (LocalBuildInfo -> Platform
hostPlatform LocalBuildInfo
lbi) GhcOptions
baseOpts
where
baseOpts :: GhcOptions
baseOpts = Verbosity
-> LocalBuildInfo
-> BuildInfo
-> ComponentLocalBuildInfo
-> [Char]
-> GhcOptions
GHC.componentGhcOptions Verbosity
normal LocalBuildInfo
lbi BuildInfo
bi ComponentLocalBuildInfo
clbi (LocalBuildInfo -> [Char]
buildDir LocalBuildInfo
lbi)