<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html> <head> <!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ --> <title>Distribution/Simple/Configure.hs</title> <link type='text/css' rel='stylesheet' href='hscolour.css' /> </head> <body> <pre><a name="line-1"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span> <a name="line-2"></a><span class='hs-comment'>-- |</span> <a name="line-3"></a><span class='hs-comment'>-- Module : Distribution.Simple.Configure</span> <a name="line-4"></a><span class='hs-comment'>-- Copyright : Isaac Jones 2003-2005</span> <a name="line-5"></a><span class='hs-comment'>--</span> <a name="line-6"></a><span class='hs-comment'>-- Maintainer : cabal-devel@haskell.org</span> <a name="line-7"></a><span class='hs-comment'>-- Portability : portable</span> <a name="line-8"></a><span class='hs-comment'>--</span> <a name="line-9"></a><span class='hs-comment'>-- This deals with the /configure/ phase. It provides the 'configure' action</span> <a name="line-10"></a><span class='hs-comment'>-- which is given the package description and configure flags. It then tries</span> <a name="line-11"></a><span class='hs-comment'>-- to: configure the compiler; resolves any conditionals in the package</span> <a name="line-12"></a><span class='hs-comment'>-- description; resolve the package dependencies; check if all the extensions</span> <a name="line-13"></a><span class='hs-comment'>-- used by this package are supported by the compiler; check that all the build</span> <a name="line-14"></a><span class='hs-comment'>-- tools are available (including version checks if appropriate); checks for</span> <a name="line-15"></a><span class='hs-comment'>-- any required @pkg-config@ packages (updating the 'BuildInfo' with the</span> <a name="line-16"></a><span class='hs-comment'>-- results)</span> <a name="line-17"></a><span class='hs-comment'>-- </span> <a name="line-18"></a><span class='hs-comment'>-- Then based on all this it saves the info in the 'LocalBuildInfo' and writes</span> <a name="line-19"></a><span class='hs-comment'>-- it out to the @dist\/setup-config@ file. It also displays various details to</span> <a name="line-20"></a><span class='hs-comment'>-- the user, the amount of information displayed depending on the verbosity</span> <a name="line-21"></a><span class='hs-comment'>-- level.</span> <a name="line-22"></a> <a name="line-23"></a><span class='hs-comment'>{- All rights reserved. <a name="line-24"></a> <a name="line-25"></a>Redistribution and use in source and binary forms, with or without <a name="line-26"></a>modification, are permitted provided that the following conditions are <a name="line-27"></a>met: <a name="line-28"></a> <a name="line-29"></a> * Redistributions of source code must retain the above copyright <a name="line-30"></a> notice, this list of conditions and the following disclaimer. <a name="line-31"></a> <a name="line-32"></a> * Redistributions in binary form must reproduce the above <a name="line-33"></a> copyright notice, this list of conditions and the following <a name="line-34"></a> disclaimer in the documentation and/or other materials provided <a name="line-35"></a> with the distribution. <a name="line-36"></a> <a name="line-37"></a> * Neither the name of Isaac Jones nor the names of other <a name="line-38"></a> contributors may be used to endorse or promote products derived <a name="line-39"></a> from this software without specific prior written permission. <a name="line-40"></a> <a name="line-41"></a>THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS <a name="line-42"></a>"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT <a name="line-43"></a>LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR <a name="line-44"></a>A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT <a name="line-45"></a>OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, <a name="line-46"></a>SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT <a name="line-47"></a>LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, <a name="line-48"></a>DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY <a name="line-49"></a>THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT <a name="line-50"></a>(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE <a name="line-51"></a>OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -}</span> <a name="line-52"></a> <a name="line-53"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>Configure</span> <span class='hs-layout'>(</span><span class='hs-varid'>configure</span><span class='hs-layout'>,</span> <a name="line-54"></a> <span class='hs-varid'>writePersistBuildConfig</span><span class='hs-layout'>,</span> <a name="line-55"></a> <span class='hs-varid'>getPersistBuildConfig</span><span class='hs-layout'>,</span> <a name="line-56"></a> <span class='hs-varid'>checkPersistBuildConfigOutdated</span><span class='hs-layout'>,</span> <a name="line-57"></a> <span class='hs-varid'>maybeGetPersistBuildConfig</span><span class='hs-layout'>,</span> <a name="line-58"></a> <span class='hs-varid'>localBuildInfoFile</span><span class='hs-layout'>,</span> <a name="line-59"></a> <span class='hs-varid'>getInstalledPackages</span><span class='hs-layout'>,</span> <a name="line-60"></a> <span class='hs-varid'>configCompiler</span><span class='hs-layout'>,</span> <span class='hs-varid'>configCompilerAux</span><span class='hs-layout'>,</span> <a name="line-61"></a> <span class='hs-varid'>ccLdOptionsBuildInfo</span><span class='hs-layout'>,</span> <a name="line-62"></a> <span class='hs-varid'>tryGetConfigStateFile</span><span class='hs-layout'>,</span> <a name="line-63"></a> <span class='hs-varid'>checkForeignDeps</span><span class='hs-layout'>,</span> <a name="line-64"></a> <span class='hs-layout'>)</span> <a name="line-65"></a> <span class='hs-keyword'>where</span> <a name="line-66"></a> <a name="line-67"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>Compiler</span> <a name="line-68"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>CompilerFlavor</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>Compiler</span><span class='hs-layout'>(</span><span class='hs-varid'>compilerId</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>compilerFlavor</span><span class='hs-layout'>,</span> <span class='hs-varid'>compilerVersion</span> <a name="line-69"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>showCompilerId</span><span class='hs-layout'>,</span> <span class='hs-varid'>unsupportedLanguages</span><span class='hs-layout'>,</span> <span class='hs-varid'>unsupportedExtensions</span> <a name="line-70"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>PackageDB</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>PackageDBStack</span> <span class='hs-layout'>)</span> <a name="line-71"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Package</span> <a name="line-72"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>PackageName</span><span class='hs-layout'>(</span><span class='hs-conid'>PackageName</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>PackageIdentifier</span><span class='hs-layout'>(</span><span class='hs-conid'>PackageIdentifier</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>PackageId</span> <a name="line-73"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>packageName</span><span class='hs-layout'>,</span> <span class='hs-varid'>packageVersion</span><span class='hs-layout'>,</span> <span class='hs-conid'>Package</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-74"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>Dependency</span><span class='hs-layout'>(</span><span class='hs-conid'>Dependency</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>simplifyDependency</span> <a name="line-75"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>InstalledPackageId</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-76"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>InstalledPackageInfo</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Installed</span> <a name="line-77"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>InstalledPackageInfo</span><span class='hs-layout'>,</span> <span class='hs-conid'>InstalledPackageInfo_</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-78"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>emptyInstalledPackageInfo</span> <span class='hs-layout'>)</span> <a name="line-79"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>PackageIndex</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>PackageIndex</span> <a name="line-80"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>PackageIndex</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageIndex</span><span class='hs-layout'>)</span> <a name="line-81"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>PackageDescription</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>PD</span> <a name="line-82"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>PackageDescription</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>specVersion</span><span class='hs-layout'>,</span> <span class='hs-conid'>GenericPackageDescription</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-83"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>Library</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>hasLibs</span><span class='hs-layout'>,</span> <span class='hs-conid'>Executable</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>BuildInfo</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>allExtensions</span> <a name="line-84"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>HookedBuildInfo</span><span class='hs-layout'>,</span> <span class='hs-varid'>updatePackageDescription</span><span class='hs-layout'>,</span> <span class='hs-varid'>allBuildInfo</span> <a name="line-85"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>FlagName</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>TestSuite</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-86"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>PackageDescription</span><span class='hs-varop'>.</span><span class='hs-conid'>Configuration</span> <a name="line-87"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>finalizePackageDescription</span><span class='hs-layout'>,</span> <span class='hs-varid'>mapTreeData</span> <span class='hs-layout'>)</span> <a name="line-88"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>PackageDescription</span><span class='hs-varop'>.</span><span class='hs-conid'>Check</span> <a name="line-89"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>PackageCheck</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>checkPackage</span><span class='hs-layout'>,</span> <span class='hs-varid'>checkPackageFiles</span> <span class='hs-layout'>)</span> <a name="line-90"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>Program</span> <a name="line-91"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>Program</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>ProgramLocation</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>ConfiguredProgram</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-92"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>ProgramConfiguration</span><span class='hs-layout'>,</span> <span class='hs-varid'>defaultProgramConfiguration</span> <a name="line-93"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>configureAllKnownPrograms</span><span class='hs-layout'>,</span> <span class='hs-varid'>knownPrograms</span><span class='hs-layout'>,</span> <span class='hs-varid'>lookupKnownProgram</span> <a name="line-94"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>userSpecifyArgss</span><span class='hs-layout'>,</span> <span class='hs-varid'>userSpecifyPaths</span> <a name="line-95"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>requireProgram</span><span class='hs-layout'>,</span> <span class='hs-varid'>requireProgramVersion</span> <a name="line-96"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>pkgConfigProgram</span><span class='hs-layout'>,</span> <span class='hs-varid'>gccProgram</span><span class='hs-layout'>,</span> <span class='hs-varid'>rawSystemProgramStdoutConf</span> <span class='hs-layout'>)</span> <a name="line-97"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>Setup</span> <a name="line-98"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>ConfigFlags</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>CopyDest</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromFlag</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromFlagOrDefault</span><span class='hs-layout'>,</span> <span class='hs-varid'>flagToMaybe</span> <span class='hs-layout'>)</span> <a name="line-99"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>InstallDirs</span> <a name="line-100"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>InstallDirs</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>defaultInstallDirs</span><span class='hs-layout'>,</span> <span class='hs-varid'>combineInstallDirs</span> <span class='hs-layout'>)</span> <a name="line-101"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>LocalBuildInfo</span> <a name="line-102"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>LocalBuildInfo</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>ComponentLocalBuildInfo</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-103"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>absoluteInstallDirs</span><span class='hs-layout'>,</span> <span class='hs-varid'>prefixRelativeInstallDirs</span><span class='hs-layout'>,</span> <span class='hs-varid'>inplacePackageId</span> <span class='hs-layout'>)</span> <a name="line-104"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>BuildPaths</span> <a name="line-105"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>autogenModulesDir</span> <span class='hs-layout'>)</span> <a name="line-106"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>Utils</span> <a name="line-107"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>die</span><span class='hs-layout'>,</span> <span class='hs-varid'>warn</span><span class='hs-layout'>,</span> <span class='hs-varid'>info</span><span class='hs-layout'>,</span> <span class='hs-varid'>setupMessage</span><span class='hs-layout'>,</span> <span class='hs-varid'>createDirectoryIfMissingVerbose</span> <a name="line-108"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>intercalate</span><span class='hs-layout'>,</span> <span class='hs-varid'>cabalVersion</span> <a name="line-109"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>withFileContents</span><span class='hs-layout'>,</span> <span class='hs-varid'>writeFileAtomic</span> <a name="line-110"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>withTempFile</span> <span class='hs-layout'>)</span> <a name="line-111"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>System</span> <a name="line-112"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>OS</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>buildOS</span><span class='hs-layout'>,</span> <span class='hs-varid'>buildPlatform</span> <span class='hs-layout'>)</span> <a name="line-113"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Version</span> <a name="line-114"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>Version</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>anyVersion</span><span class='hs-layout'>,</span> <span class='hs-varid'>orLaterVersion</span><span class='hs-layout'>,</span> <span class='hs-varid'>withinRange</span><span class='hs-layout'>,</span> <span class='hs-varid'>isAnyVersion</span> <span class='hs-layout'>)</span> <a name="line-115"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Verbosity</span> <a name="line-116"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>Verbosity</span><span class='hs-layout'>,</span> <span class='hs-varid'>lessVerbose</span> <span class='hs-layout'>)</span> <a name="line-117"></a> <a name="line-118"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>GHC</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>GHC</span> <a name="line-119"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>JHC</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>JHC</span> <a name="line-120"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>LHC</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>LHC</span> <a name="line-121"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>NHC</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>NHC</span> <a name="line-122"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>Hugs</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Hugs</span> <a name="line-123"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>UHC</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>UHC</span> <a name="line-124"></a> <a name="line-125"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <a name="line-126"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>when</span><span class='hs-layout'>,</span> <span class='hs-varid'>unless</span><span class='hs-layout'>,</span> <span class='hs-varid'>foldM</span><span class='hs-layout'>,</span> <span class='hs-varid'>filterM</span> <span class='hs-layout'>)</span> <a name="line-127"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</span> <a name="line-128"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>nub</span><span class='hs-layout'>,</span> <span class='hs-varid'>partition</span><span class='hs-layout'>,</span> <span class='hs-varid'>isPrefixOf</span><span class='hs-layout'>,</span> <span class='hs-varid'>inits</span> <span class='hs-layout'>)</span> <a name="line-129"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span> <a name="line-130"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>isNothing</span><span class='hs-layout'>,</span> <span class='hs-varid'>catMaybes</span> <span class='hs-layout'>)</span> <a name="line-131"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Monoid</span> <a name="line-132"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>Monoid</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-133"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Directory</span> <a name="line-134"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>doesFileExist</span><span class='hs-layout'>,</span> <span class='hs-varid'>getModificationTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>createDirectoryIfMissing</span><span class='hs-layout'>,</span> <span class='hs-varid'>getTemporaryDirectory</span> <span class='hs-layout'>)</span> <a name="line-135"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Exit</span> <a name="line-136"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>ExitCode</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>exitWith</span> <span class='hs-layout'>)</span> <a name="line-137"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>FilePath</span> <a name="line-138"></a> <span class='hs-layout'>(</span> <span class='hs-layout'>(</span><span class='hs-varop'></></span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>isAbsolute</span> <span class='hs-layout'>)</span> <a name="line-139"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Info</span> <a name="line-140"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>compilerName</span><span class='hs-layout'>,</span> <span class='hs-varid'>compilerVersion</span> <span class='hs-layout'>)</span> <a name="line-141"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span> <a name="line-142"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>hPutStrLn</span><span class='hs-layout'>,</span> <span class='hs-varid'>stderr</span><span class='hs-layout'>,</span> <span class='hs-varid'>hClose</span> <span class='hs-layout'>)</span> <a name="line-143"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span> <a name="line-144"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>Text</span><span class='hs-layout'>(</span><span class='hs-varid'>disp</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>display</span><span class='hs-layout'>,</span> <span class='hs-varid'>simpleParse</span> <span class='hs-layout'>)</span> <a name="line-145"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>PrettyPrint</span><span class='hs-varop'>.</span><span class='hs-conid'>HughesPJ</span> <a name="line-146"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>comma</span><span class='hs-layout'>,</span> <span class='hs-varid'>punctuate</span><span class='hs-layout'>,</span> <span class='hs-varid'>render</span><span class='hs-layout'>,</span> <span class='hs-varid'>nest</span><span class='hs-layout'>,</span> <span class='hs-varid'>sep</span> <span class='hs-layout'>)</span> <a name="line-147"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Compat</span><span class='hs-varop'>.</span><span class='hs-conid'>Exception</span> <span class='hs-layout'>(</span> <span class='hs-varid'>catchExit</span><span class='hs-layout'>,</span> <span class='hs-varid'>catchIO</span> <span class='hs-layout'>)</span> <a name="line-148"></a> <a name="line-149"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Prelude</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span><span class='hs-varid'>catch</span><span class='hs-layout'>)</span> <a name="line-150"></a> <a name="line-151"></a><a name="tryGetConfigStateFile"></a><span class='hs-definition'>tryGetConfigStateFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Read</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Either</span> <span class='hs-conid'>String</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <a name="line-152"></a><span class='hs-definition'>tryGetConfigStateFile</span> <span class='hs-varid'>filename</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-153"></a> <span class='hs-varid'>exists</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>filename</span> <a name="line-154"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>not</span> <span class='hs-varid'>exists</span> <a name="line-155"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-varid'>missing</span><span class='hs-layout'>)</span> <a name="line-156"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>withFileContents</span> <span class='hs-varid'>filename</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>str</span> <span class='hs-keyglyph'>-></span> <a name="line-157"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>lines</span> <span class='hs-varid'>str</span> <span class='hs-keyword'>of</span> <a name="line-158"></a> <span class='hs-keyglyph'>[</span><span class='hs-varid'>headder</span><span class='hs-layout'>,</span> <span class='hs-varid'>rest</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>checkHeader</span> <span class='hs-varid'>headder</span> <span class='hs-keyword'>of</span> <a name="line-159"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>msg</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-varid'>msg</span><span class='hs-layout'>)</span> <a name="line-160"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>reads</span> <span class='hs-varid'>rest</span> <span class='hs-keyword'>of</span> <a name="line-161"></a> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-varid'>bi</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>Right</span> <span class='hs-varid'>bi</span><span class='hs-layout'>)</span> <a name="line-162"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-varid'>cantParse</span><span class='hs-layout'>)</span> <a name="line-163"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-varid'>cantParse</span><span class='hs-layout'>)</span> <a name="line-164"></a> <span class='hs-keyword'>where</span> <a name="line-165"></a> <span class='hs-varid'>checkHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span> <a name="line-166"></a> <span class='hs-varid'>checkHeader</span> <span class='hs-varid'>header</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>parseHeader</span> <span class='hs-varid'>header</span> <span class='hs-keyword'>of</span> <a name="line-167"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>cabalId</span><span class='hs-layout'>,</span> <span class='hs-varid'>compId</span><span class='hs-layout'>)</span> <a name="line-168"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>cabalId</span> <a name="line-169"></a> <span class='hs-varop'>==</span> <span class='hs-varid'>currentCabalId</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Nothing</span> <a name="line-170"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>badVersion</span> <span class='hs-varid'>cabalId</span> <span class='hs-varid'>compId</span><span class='hs-layout'>)</span> <a name="line-171"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Just</span> <span class='hs-varid'>cantParse</span> <a name="line-172"></a> <a name="line-173"></a> <span class='hs-varid'>missing</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"Run the 'configure' command first."</span> <a name="line-174"></a> <span class='hs-varid'>cantParse</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"Saved package config file seems to be corrupt. "</span> <a name="line-175"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"Try re-running the 'configure' command."</span> <a name="line-176"></a> <span class='hs-varid'>badVersion</span> <span class='hs-varid'>cabalId</span> <span class='hs-varid'>compId</span> <a name="line-177"></a> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"You need to re-run the 'configure' command. "</span> <a name="line-178"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"The version of Cabal being used has changed (was "</span> <a name="line-179"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>cabalId</span> <span class='hs-varop'>++</span> <span class='hs-str'>", now "</span> <a name="line-180"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>currentCabalId</span> <span class='hs-varop'>++</span> <span class='hs-str'>")."</span> <a name="line-181"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>badcompiler</span> <span class='hs-varid'>compId</span> <a name="line-182"></a> <span class='hs-varid'>badcompiler</span> <span class='hs-varid'>compId</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>compId</span> <span class='hs-varop'>==</span> <span class='hs-varid'>currentCompilerId</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>""</span> <a name="line-183"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <a name="line-184"></a> <span class='hs-keyglyph'>=</span> <span class='hs-str'>" Additionally the compiler is different (was "</span> <a name="line-185"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>compId</span> <span class='hs-varop'>++</span> <span class='hs-str'>", now "</span> <a name="line-186"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>currentCompilerId</span> <a name="line-187"></a> <span class='hs-varop'>++</span> <span class='hs-str'>") which is probably the cause of the problem."</span> <a name="line-188"></a> <a name="line-189"></a><a name="tryGetPersistBuildConfig"></a><span class='hs-comment'>-- internal function</span> <a name="line-190"></a><span class='hs-definition'>tryGetPersistBuildConfig</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Either</span> <span class='hs-conid'>String</span> <span class='hs-conid'>LocalBuildInfo</span><span class='hs-layout'>)</span> <a name="line-191"></a><span class='hs-definition'>tryGetPersistBuildConfig</span> <span class='hs-varid'>distPref</span> <a name="line-192"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tryGetConfigStateFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>localBuildInfoFile</span> <span class='hs-varid'>distPref</span><span class='hs-layout'>)</span> <a name="line-193"></a> <a name="line-194"></a><a name="getPersistBuildConfig"></a><span class='hs-comment'>-- |Read the 'localBuildInfoFile'. Error if it doesn't exist. Also</span> <a name="line-195"></a><span class='hs-comment'>-- fail if the file containing LocalBuildInfo is older than the .cabal</span> <a name="line-196"></a><span class='hs-comment'>-- file, indicating that a re-configure is required.</span> <a name="line-197"></a><span class='hs-definition'>getPersistBuildConfig</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>LocalBuildInfo</span> <a name="line-198"></a><span class='hs-definition'>getPersistBuildConfig</span> <span class='hs-varid'>distPref</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-199"></a> <span class='hs-varid'>lbi</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>tryGetPersistBuildConfig</span> <span class='hs-varid'>distPref</span> <a name="line-200"></a> <span class='hs-varid'>either</span> <span class='hs-varid'>die</span> <span class='hs-varid'>return</span> <span class='hs-varid'>lbi</span> <a name="line-201"></a> <a name="line-202"></a><a name="maybeGetPersistBuildConfig"></a><span class='hs-comment'>-- |Try to read the 'localBuildInfoFile'.</span> <a name="line-203"></a><span class='hs-definition'>maybeGetPersistBuildConfig</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>LocalBuildInfo</span><span class='hs-layout'>)</span> <a name="line-204"></a><span class='hs-definition'>maybeGetPersistBuildConfig</span> <span class='hs-varid'>distPref</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-205"></a> <span class='hs-varid'>lbi</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>tryGetPersistBuildConfig</span> <span class='hs-varid'>distPref</span> <a name="line-206"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>either</span> <span class='hs-layout'>(</span><span class='hs-varid'>const</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>lbi</span> <a name="line-207"></a> <a name="line-208"></a><a name="writePersistBuildConfig"></a><span class='hs-comment'>-- |After running configure, output the 'LocalBuildInfo' to the</span> <a name="line-209"></a><span class='hs-comment'>-- 'localBuildInfoFile'.</span> <a name="line-210"></a><span class='hs-definition'>writePersistBuildConfig</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LocalBuildInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-211"></a><span class='hs-definition'>writePersistBuildConfig</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>lbi</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-212"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>False</span> <span class='hs-varid'>distPref</span> <a name="line-213"></a> <span class='hs-varid'>writeFileAtomic</span> <span class='hs-layout'>(</span><span class='hs-varid'>localBuildInfoFile</span> <span class='hs-varid'>distPref</span><span class='hs-layout'>)</span> <a name="line-214"></a> <span class='hs-layout'>(</span><span class='hs-varid'>showHeader</span> <span class='hs-varid'>pkgid</span> <span class='hs-varop'>++</span> <span class='hs-chr'>'\n'</span> <span class='hs-conop'>:</span> <span class='hs-varid'>show</span> <span class='hs-varid'>lbi</span><span class='hs-layout'>)</span> <a name="line-215"></a> <span class='hs-keyword'>where</span> <a name="line-216"></a> <span class='hs-varid'>pkgid</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>packageId</span> <span class='hs-layout'>(</span><span class='hs-varid'>localPkgDescr</span> <span class='hs-varid'>lbi</span><span class='hs-layout'>)</span> <a name="line-217"></a> <a name="line-218"></a><a name="showHeader"></a><span class='hs-definition'>showHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageIdentifier</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <a name="line-219"></a><span class='hs-definition'>showHeader</span> <span class='hs-varid'>pkgid</span> <span class='hs-keyglyph'>=</span> <a name="line-220"></a> <span class='hs-str'>"Saved package config for "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>pkgid</span> <a name="line-221"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" written by "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>currentCabalId</span> <a name="line-222"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" using "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>currentCompilerId</span> <a name="line-223"></a> <span class='hs-keyword'>where</span> <a name="line-224"></a> <a name="line-225"></a><a name="currentCabalId"></a><span class='hs-definition'>currentCabalId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageIdentifier</span> <a name="line-226"></a><span class='hs-definition'>currentCabalId</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PackageIdentifier</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageName</span> <span class='hs-str'>"Cabal"</span><span class='hs-layout'>)</span> <span class='hs-varid'>cabalVersion</span> <a name="line-227"></a> <a name="line-228"></a><a name="currentCompilerId"></a><span class='hs-definition'>currentCompilerId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageIdentifier</span> <a name="line-229"></a><span class='hs-definition'>currentCompilerId</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PackageIdentifier</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageName</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Info</span><span class='hs-varop'>.</span><span class='hs-varid'>compilerName</span><span class='hs-layout'>)</span> <a name="line-230"></a> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Info</span><span class='hs-varop'>.</span><span class='hs-varid'>compilerVersion</span> <a name="line-231"></a> <a name="line-232"></a><a name="parseHeader"></a><span class='hs-definition'>parseHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageIdentifier</span><span class='hs-layout'>,</span> <span class='hs-conid'>PackageIdentifier</span><span class='hs-layout'>)</span> <a name="line-233"></a><span class='hs-definition'>parseHeader</span> <span class='hs-varid'>header</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>words</span> <span class='hs-varid'>header</span> <span class='hs-keyword'>of</span> <a name="line-234"></a> <span class='hs-keyglyph'>[</span><span class='hs-str'>"Saved"</span><span class='hs-layout'>,</span> <span class='hs-str'>"package"</span><span class='hs-layout'>,</span> <span class='hs-str'>"config"</span><span class='hs-layout'>,</span> <span class='hs-str'>"for"</span><span class='hs-layout'>,</span> <span class='hs-varid'>pkgid</span><span class='hs-layout'>,</span> <a name="line-235"></a> <span class='hs-str'>"written"</span><span class='hs-layout'>,</span> <span class='hs-str'>"by"</span><span class='hs-layout'>,</span> <span class='hs-varid'>cabalid</span><span class='hs-layout'>,</span> <span class='hs-str'>"using"</span><span class='hs-layout'>,</span> <span class='hs-varid'>compilerid</span><span class='hs-keyglyph'>]</span> <a name="line-236"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-layout'>(</span><span class='hs-varid'>simpleParse</span> <span class='hs-varid'>pkgid</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>PackageIdentifier</span><span class='hs-layout'>,</span> <a name="line-237"></a> <span class='hs-varid'>simpleParse</span> <span class='hs-varid'>cabalid</span><span class='hs-layout'>,</span> <a name="line-238"></a> <span class='hs-varid'>simpleParse</span> <span class='hs-varid'>compilerid</span><span class='hs-layout'>)</span> <span class='hs-keyword'>of</span> <a name="line-239"></a> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <a name="line-240"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>cabalid'</span><span class='hs-layout'>,</span> <a name="line-241"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>compilerid'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>cabalid'</span><span class='hs-layout'>,</span> <span class='hs-varid'>compilerid'</span><span class='hs-layout'>)</span> <a name="line-242"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Nothing</span> <a name="line-243"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Nothing</span> <a name="line-244"></a> <a name="line-245"></a><a name="checkPersistBuildConfigOutdated"></a><span class='hs-comment'>-- |Check that localBuildInfoFile is up-to-date with respect to the</span> <a name="line-246"></a><span class='hs-comment'>-- .cabal file.</span> <a name="line-247"></a><span class='hs-definition'>checkPersistBuildConfigOutdated</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <a name="line-248"></a><span class='hs-definition'>checkPersistBuildConfigOutdated</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>pkg_descr_file</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-249"></a> <span class='hs-varid'>t0</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>pkg_descr_file</span> <a name="line-250"></a> <span class='hs-varid'>t1</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varop'>$</span> <span class='hs-varid'>localBuildInfoFile</span> <span class='hs-varid'>distPref</span> <a name="line-251"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>t0</span> <span class='hs-varop'>></span> <span class='hs-varid'>t1</span><span class='hs-layout'>)</span> <a name="line-252"></a> <a name="line-253"></a><a name="localBuildInfoFile"></a><span class='hs-comment'>-- |@dist\/setup-config@</span> <a name="line-254"></a><span class='hs-definition'>localBuildInfoFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <a name="line-255"></a><span class='hs-definition'>localBuildInfoFile</span> <span class='hs-varid'>distPref</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>distPref</span> <span class='hs-varop'></></span> <span class='hs-str'>"setup-config"</span> <a name="line-256"></a> <a name="line-257"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span> <a name="line-258"></a><span class='hs-comment'>-- * Configuration</span> <a name="line-259"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span> <a name="line-260"></a> <a name="line-261"></a><a name="configure"></a><span class='hs-comment'>-- |Perform the \"@.\/setup configure@\" action.</span> <a name="line-262"></a><span class='hs-comment'>-- Returns the @.setup-config@ file.</span> <a name="line-263"></a><span class='hs-definition'>configure</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>GenericPackageDescription</span><span class='hs-layout'>,</span> <span class='hs-conid'>HookedBuildInfo</span><span class='hs-layout'>)</span> <a name="line-264"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ConfigFlags</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>LocalBuildInfo</span> <a name="line-265"></a><span class='hs-definition'>configure</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkg_descr0</span><span class='hs-layout'>,</span> <span class='hs-varid'>pbi</span><span class='hs-layout'>)</span> <span class='hs-varid'>cfg</span> <a name="line-266"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>distPref</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-layout'>(</span><span class='hs-varid'>configDistPref</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-267"></a> <span class='hs-varid'>verbosity</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-layout'>(</span><span class='hs-varid'>configVerbosity</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-268"></a> <a name="line-269"></a> <span class='hs-varid'>setupMessage</span> <span class='hs-varid'>verbosity</span> <span class='hs-str'>"Configuring"</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg_descr0</span><span class='hs-layout'>)</span> <a name="line-270"></a> <a name="line-271"></a> <span class='hs-varid'>createDirectoryIfMissingVerbose</span> <span class='hs-layout'>(</span><span class='hs-varid'>lessVerbose</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <span class='hs-conid'>True</span> <span class='hs-varid'>distPref</span> <a name="line-272"></a> <a name="line-273"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>programsConfig</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>userSpecifyArgss</span> <span class='hs-layout'>(</span><span class='hs-varid'>configProgramArgs</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-274"></a> <span class='hs-varop'>.</span> <span class='hs-varid'>userSpecifyPaths</span> <span class='hs-layout'>(</span><span class='hs-varid'>configProgramPaths</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-275"></a> <span class='hs-varop'>$</span> <span class='hs-varid'>configPrograms</span> <span class='hs-varid'>cfg</span> <a name="line-276"></a> <span class='hs-varid'>userInstall</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-layout'>(</span><span class='hs-varid'>configUserInstall</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-277"></a> <span class='hs-varid'>packageDbs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>implicitPackageDbStack</span> <span class='hs-varid'>userInstall</span> <a name="line-278"></a> <span class='hs-layout'>(</span><span class='hs-varid'>flagToMaybe</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configPackageDB</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-279"></a> <a name="line-280"></a> <span class='hs-comment'>-- detect compiler</span> <a name="line-281"></a> <span class='hs-layout'>(</span><span class='hs-varid'>comp</span><span class='hs-layout'>,</span> <span class='hs-varid'>programsConfig'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>configCompiler</span> <a name="line-282"></a> <span class='hs-layout'>(</span><span class='hs-varid'>flagToMaybe</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configHcFlavor</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-283"></a> <span class='hs-layout'>(</span><span class='hs-varid'>flagToMaybe</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configHcPath</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>flagToMaybe</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configHcPkg</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-284"></a> <span class='hs-varid'>programsConfig</span> <span class='hs-layout'>(</span><span class='hs-varid'>lessVerbose</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <a name="line-285"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>version</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compilerVersion</span> <span class='hs-varid'>comp</span> <a name="line-286"></a> <span class='hs-varid'>flavor</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compilerFlavor</span> <span class='hs-varid'>comp</span> <a name="line-287"></a> <a name="line-288"></a> <span class='hs-comment'>-- Create a PackageIndex that makes *any libraries that might be*</span> <a name="line-289"></a> <span class='hs-comment'>-- defined internally to this package look like installed packages, in</span> <a name="line-290"></a> <span class='hs-comment'>-- case an executable should refer to any of them as dependencies.</span> <a name="line-291"></a> <span class='hs-comment'>--</span> <a name="line-292"></a> <span class='hs-comment'>-- It must be *any libraries that might be* defined rather than the</span> <a name="line-293"></a> <span class='hs-comment'>-- actual definitions, because these depend on conditionals in the .cabal</span> <a name="line-294"></a> <span class='hs-comment'>-- file, and we haven't resolved them yet. finalizePackageDescription</span> <a name="line-295"></a> <span class='hs-comment'>-- does the resolution of conditionals, and it takes internalPackageSet</span> <a name="line-296"></a> <span class='hs-comment'>-- as part of its input.</span> <a name="line-297"></a> <span class='hs-comment'>--</span> <a name="line-298"></a> <span class='hs-comment'>-- Currently a package can define no more than one library (which has</span> <a name="line-299"></a> <span class='hs-comment'>-- the same name as the package) but we could extend this later.</span> <a name="line-300"></a> <span class='hs-comment'>-- If we later allowed private internal libraries, then here we would</span> <a name="line-301"></a> <span class='hs-comment'>-- need to pre-scan the conditional data to make a list of all private</span> <a name="line-302"></a> <span class='hs-comment'>-- libraries that could possibly be defined by the .cabal file.</span> <a name="line-303"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pid</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg_descr0</span> <a name="line-304"></a> <span class='hs-varid'>internalPackage</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>emptyInstalledPackageInfo</span> <span class='hs-layout'>{</span> <a name="line-305"></a> <span class='hs-comment'>--TODO: should use a per-compiler method to map the source</span> <a name="line-306"></a> <span class='hs-comment'>-- package ID into an installed package id we can use</span> <a name="line-307"></a> <span class='hs-comment'>-- for the internal package set. The open-codes use of</span> <a name="line-308"></a> <span class='hs-comment'>-- InstalledPackageId . display here is a hack.</span> <a name="line-309"></a> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>installedPackageId</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>InstalledPackageId</span> <span class='hs-varop'>$</span> <span class='hs-varid'>display</span> <span class='hs-varop'>$</span> <span class='hs-varid'>pid</span><span class='hs-layout'>,</span> <a name="line-310"></a> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>sourcePackageId</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pid</span> <a name="line-311"></a> <span class='hs-layout'>}</span> <a name="line-312"></a> <span class='hs-varid'>internalPackageSet</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>internalPackage</span><span class='hs-keyglyph'>]</span> <a name="line-313"></a> <span class='hs-varid'>installedPackageSet</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getInstalledPackages</span> <span class='hs-layout'>(</span><span class='hs-varid'>lessVerbose</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <span class='hs-varid'>comp</span> <a name="line-314"></a> <span class='hs-varid'>packageDbs</span> <span class='hs-varid'>programsConfig'</span> <a name="line-315"></a> <a name="line-316"></a> <span class='hs-keyword'>let</span> <span class='hs-comment'>-- Constraint test function for the solver</span> <a name="line-317"></a> <span class='hs-varid'>dependencySatisfiable</span> <span class='hs-keyglyph'>=</span> <a name="line-318"></a> <span class='hs-varid'>not</span> <span class='hs-varop'>.</span> <span class='hs-varid'>null</span> <span class='hs-varop'>.</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>lookupDependency</span> <span class='hs-varid'>pkgs'</span> <a name="line-319"></a> <span class='hs-keyword'>where</span> <a name="line-320"></a> <span class='hs-varid'>pkgs'</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>insert</span> <span class='hs-varid'>internalPackage</span> <span class='hs-varid'>installedPackageSet</span> <a name="line-321"></a> <span class='hs-varid'>enableTest</span> <span class='hs-varid'>t</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>t</span> <span class='hs-layout'>{</span> <span class='hs-varid'>testEnabled</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-layout'>(</span><span class='hs-varid'>configTests</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <span class='hs-layout'>}</span> <a name="line-322"></a> <span class='hs-varid'>flaggedTests</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-layout'>,</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>n</span><span class='hs-layout'>,</span> <span class='hs-varid'>mapTreeData</span> <span class='hs-varid'>enableTest</span> <span class='hs-varid'>t</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-323"></a> <span class='hs-layout'>(</span><span class='hs-varid'>condTestSuites</span> <span class='hs-varid'>pkg_descr0</span><span class='hs-layout'>)</span> <a name="line-324"></a> <span class='hs-varid'>pkg_descr0''</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pkg_descr0</span> <span class='hs-layout'>{</span> <span class='hs-varid'>condTestSuites</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>flaggedTests</span> <span class='hs-layout'>}</span> <a name="line-325"></a> <a name="line-326"></a> <span class='hs-layout'>(</span><span class='hs-varid'>pkg_descr0'</span><span class='hs-layout'>,</span> <span class='hs-varid'>flags</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <a name="line-327"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>finalizePackageDescription</span> <a name="line-328"></a> <span class='hs-layout'>(</span><span class='hs-varid'>configConfigurationsFlags</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-329"></a> <span class='hs-varid'>dependencySatisfiable</span> <a name="line-330"></a> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-varid'>buildPlatform</span> <a name="line-331"></a> <span class='hs-layout'>(</span><span class='hs-varid'>compilerId</span> <span class='hs-varid'>comp</span><span class='hs-layout'>)</span> <a name="line-332"></a> <span class='hs-layout'>(</span><span class='hs-varid'>configConstraints</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-333"></a> <span class='hs-varid'>pkg_descr0''</span> <a name="line-334"></a> <span class='hs-keyword'>of</span> <span class='hs-conid'>Right</span> <span class='hs-varid'>r</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-varid'>r</span> <a name="line-335"></a> <span class='hs-conid'>Left</span> <span class='hs-varid'>missing</span> <span class='hs-keyglyph'>-></span> <a name="line-336"></a> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-str'>"At least the following dependencies are missing:\n"</span> <a name="line-337"></a> <span class='hs-varop'>++</span> <span class='hs-layout'>(</span><span class='hs-varid'>render</span> <span class='hs-varop'>.</span> <span class='hs-varid'>nest</span> <span class='hs-num'>4</span> <span class='hs-varop'>.</span> <span class='hs-varid'>sep</span> <span class='hs-varop'>.</span> <span class='hs-varid'>punctuate</span> <span class='hs-varid'>comma</span> <a name="line-338"></a> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>disp</span> <span class='hs-varop'>.</span> <span class='hs-varid'>simplifyDependency</span><span class='hs-layout'>)</span> <a name="line-339"></a> <span class='hs-varop'>$</span> <span class='hs-varid'>missing</span><span class='hs-layout'>)</span> <a name="line-340"></a> <a name="line-341"></a> <span class='hs-comment'>-- add extra include/lib dirs as specified in cfg</span> <a name="line-342"></a> <span class='hs-comment'>-- we do it here so that those get checked too</span> <a name="line-343"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>addExtraIncludeLibDirs</span> <span class='hs-varid'>pkg_descr0'</span> <a name="line-344"></a> <a name="line-345"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>flags</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-346"></a> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Flags chosen: "</span> <a name="line-347"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>intercalate</span> <span class='hs-str'>", "</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>name</span> <span class='hs-varop'>++</span> <span class='hs-str'>"="</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>value</span> <a name="line-348"></a> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-conid'>FlagName</span> <span class='hs-varid'>name</span><span class='hs-layout'>,</span> <span class='hs-varid'>value</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>flags</span> <span class='hs-keyglyph'>]</span> <a name="line-349"></a> <a name="line-350"></a> <span class='hs-varid'>checkPackageProblems</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg_descr0</span> <a name="line-351"></a> <span class='hs-layout'>(</span><span class='hs-varid'>updatePackageDescription</span> <span class='hs-varid'>pbi</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-352"></a> <a name="line-353"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>selectDependencies</span> <span class='hs-keyglyph'>=</span> <a name="line-354"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>xs</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>[</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Left</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>xs</span> <span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Right</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>xs</span> <span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-355"></a> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>selectDependency</span> <span class='hs-varid'>internalPackageSet</span> <span class='hs-varid'>installedPackageSet</span><span class='hs-layout'>)</span> <a name="line-356"></a> <a name="line-357"></a> <span class='hs-layout'>(</span><span class='hs-varid'>failedDeps</span><span class='hs-layout'>,</span> <span class='hs-varid'>allPkgDeps</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>selectDependencies</span> <span class='hs-layout'>(</span><span class='hs-varid'>buildDepends</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-358"></a> <a name="line-359"></a> <span class='hs-varid'>internalPkgDeps</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>pkgid</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>InternalDependency</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>pkgid</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>allPkgDeps</span> <span class='hs-keyglyph'>]</span> <a name="line-360"></a> <span class='hs-varid'>externalPkgDeps</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ExternalDependency</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>allPkgDeps</span> <span class='hs-keyglyph'>]</span> <a name="line-361"></a> <a name="line-362"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>internalPkgDeps</span><span class='hs-layout'>)</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>newPackageDepsBehaviour</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-363"></a> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-str'>"The field 'build-depends: "</span> <a name="line-364"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>intercalate</span> <span class='hs-str'>", "</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>display</span> <span class='hs-varop'>.</span> <span class='hs-varid'>packageName</span><span class='hs-layout'>)</span> <span class='hs-varid'>internalPkgDeps</span><span class='hs-layout'>)</span> <a name="line-365"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"' refers to a library which is defined within the same "</span> <a name="line-366"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"package. To use this feature the package must specify at "</span> <a name="line-367"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"least 'cabal-version: >= 1.8'."</span> <a name="line-368"></a> <a name="line-369"></a> <span class='hs-varid'>reportFailedDependencies</span> <span class='hs-varid'>failedDeps</span> <a name="line-370"></a> <span class='hs-varid'>reportSelectedDependencies</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>allPkgDeps</span> <a name="line-371"></a> <a name="line-372"></a> <span class='hs-varid'>packageDependsIndex</span> <span class='hs-keyglyph'><-</span> <a name="line-373"></a> <span class='hs-keyword'>case</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>dependencyClosure</span> <span class='hs-varid'>installedPackageSet</span> <a name="line-374"></a> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>installedPackageId</span> <span class='hs-varid'>externalPkgDeps</span><span class='hs-layout'>)</span> <span class='hs-keyword'>of</span> <a name="line-375"></a> <span class='hs-conid'>Left</span> <span class='hs-varid'>packageDependsIndex</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-varid'>packageDependsIndex</span> <a name="line-376"></a> <span class='hs-conid'>Right</span> <span class='hs-varid'>broken</span> <span class='hs-keyglyph'>-></span> <a name="line-377"></a> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-str'>"The following installed packages are broken because other"</span> <a name="line-378"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" packages they depend on are missing. These broken "</span> <a name="line-379"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"packages must be rebuilt before they can be used.\n"</span> <a name="line-380"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>unlines</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"package "</span> <a name="line-381"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span> <a name="line-382"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" is broken due to missing package "</span> <a name="line-383"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>intercalate</span> <span class='hs-str'>", "</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>display</span> <span class='hs-varid'>deps</span><span class='hs-layout'>)</span> <a name="line-384"></a> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkg</span><span class='hs-layout'>,</span> <span class='hs-varid'>deps</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>broken</span> <span class='hs-keyglyph'>]</span> <a name="line-385"></a> <a name="line-386"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pseudoTopPkg</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>emptyInstalledPackageInfo</span> <span class='hs-layout'>{</span> <a name="line-387"></a> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>installedPackageId</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>InstalledPackageId</span> <span class='hs-layout'>(</span><span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-388"></a> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>sourcePackageId</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>,</span> <a name="line-389"></a> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>depends</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>installedPackageId</span> <span class='hs-varid'>externalPkgDeps</span> <a name="line-390"></a> <span class='hs-layout'>}</span> <a name="line-391"></a> <span class='hs-keyword'>case</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>dependencyInconsistencies</span> <a name="line-392"></a> <span class='hs-varop'>.</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>insert</span> <span class='hs-varid'>pseudoTopPkg</span> <a name="line-393"></a> <span class='hs-varop'>$</span> <span class='hs-varid'>packageDependsIndex</span> <span class='hs-keyword'>of</span> <a name="line-394"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <a name="line-395"></a> <span class='hs-varid'>inconsistencies</span> <span class='hs-keyglyph'>-></span> <a name="line-396"></a> <span class='hs-varid'>warn</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <a name="line-397"></a> <span class='hs-str'>"This package indirectly depends on multiple versions of the same "</span> <a name="line-398"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"package. This is highly likely to cause a compile failure.\n"</span> <a name="line-399"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>unlines</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"package "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>pkg</span> <span class='hs-varop'>++</span> <span class='hs-str'>" requires "</span> <a name="line-400"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageIdentifier</span> <span class='hs-varid'>name</span> <span class='hs-varid'>ver</span><span class='hs-layout'>)</span> <a name="line-401"></a> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-varid'>name</span><span class='hs-layout'>,</span> <span class='hs-varid'>uses</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>inconsistencies</span> <a name="line-402"></a> <span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkg</span><span class='hs-layout'>,</span> <span class='hs-varid'>ver</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>uses</span> <span class='hs-keyglyph'>]</span> <a name="line-403"></a> <a name="line-404"></a> <span class='hs-comment'>-- installation directories</span> <a name="line-405"></a> <span class='hs-varid'>defaultDirs</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>defaultInstallDirs</span> <span class='hs-varid'>flavor</span> <span class='hs-varid'>userInstall</span> <span class='hs-layout'>(</span><span class='hs-varid'>hasLibs</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-406"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>installDirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>combineInstallDirs</span> <span class='hs-varid'>fromFlagOrDefault</span> <a name="line-407"></a> <span class='hs-varid'>defaultDirs</span> <span class='hs-layout'>(</span><span class='hs-varid'>configInstallDirs</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-408"></a> <a name="line-409"></a> <span class='hs-comment'>-- check languages and extensions</span> <a name="line-410"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>langlist</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nub</span> <span class='hs-varop'>$</span> <span class='hs-varid'>catMaybes</span> <span class='hs-varop'>$</span> <span class='hs-varid'>map</span> <span class='hs-varid'>defaultLanguage</span> <span class='hs-layout'>(</span><span class='hs-varid'>allBuildInfo</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-411"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>langs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsupportedLanguages</span> <span class='hs-varid'>comp</span> <span class='hs-varid'>langlist</span> <a name="line-412"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>langs</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-413"></a> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-str'>"The package "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg_descr0</span><span class='hs-layout'>)</span> <a name="line-414"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" requires the following languages which are not "</span> <a name="line-415"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"supported by "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>compilerId</span> <span class='hs-varid'>comp</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>": "</span> <a name="line-416"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>intercalate</span> <span class='hs-str'>", "</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>display</span> <span class='hs-varid'>langs</span><span class='hs-layout'>)</span> <a name="line-417"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>extlist</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nub</span> <span class='hs-varop'>$</span> <span class='hs-varid'>concatMap</span> <span class='hs-varid'>allExtensions</span> <span class='hs-layout'>(</span><span class='hs-varid'>allBuildInfo</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-418"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>exts</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsupportedExtensions</span> <span class='hs-varid'>comp</span> <span class='hs-varid'>extlist</span> <a name="line-419"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>exts</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-420"></a> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-str'>"The package "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg_descr0</span><span class='hs-layout'>)</span> <a name="line-421"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" requires the following language extensions which are not "</span> <a name="line-422"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"supported by "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>compilerId</span> <span class='hs-varid'>comp</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>": "</span> <a name="line-423"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>intercalate</span> <span class='hs-str'>", "</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>display</span> <span class='hs-varid'>exts</span><span class='hs-layout'>)</span> <a name="line-424"></a> <a name="line-425"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>requiredBuildTools</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>concatMap</span> <span class='hs-varid'>buildTools</span> <span class='hs-layout'>(</span><span class='hs-varid'>allBuildInfo</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-426"></a> <span class='hs-varid'>programsConfig''</span> <span class='hs-keyglyph'><-</span> <a name="line-427"></a> <span class='hs-varid'>configureAllKnownPrograms</span> <span class='hs-layout'>(</span><span class='hs-varid'>lessVerbose</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <span class='hs-varid'>programsConfig'</span> <a name="line-428"></a> <span class='hs-varop'>>>=</span> <span class='hs-varid'>configureRequiredPrograms</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>requiredBuildTools</span> <a name="line-429"></a> <a name="line-430"></a> <span class='hs-layout'>(</span><span class='hs-varid'>pkg_descr'</span><span class='hs-layout'>,</span> <span class='hs-varid'>programsConfig'''</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>configurePkgconfigPackages</span> <span class='hs-varid'>verbosity</span> <a name="line-431"></a> <span class='hs-varid'>pkg_descr</span> <span class='hs-varid'>programsConfig''</span> <a name="line-432"></a> <a name="line-433"></a> <span class='hs-varid'>split_objs</span> <span class='hs-keyglyph'><-</span> <a name="line-434"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configSplitObjs</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-435"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span> <a name="line-436"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>flavor</span> <span class='hs-keyword'>of</span> <a name="line-437"></a> <span class='hs-conid'>GHC</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>version</span> <span class='hs-varop'>>=</span> <span class='hs-conid'>Version</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>6</span><span class='hs-layout'>,</span><span class='hs-num'>5</span><span class='hs-keyglyph'>]</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>True</span> <a name="line-438"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>warn</span> <span class='hs-varid'>verbosity</span> <a name="line-439"></a> <span class='hs-layout'>(</span><span class='hs-str'>"this compiler does not support "</span> <span class='hs-varop'>++</span> <a name="line-440"></a> <span class='hs-str'>"--enable-split-objs; ignoring"</span><span class='hs-layout'>)</span> <a name="line-441"></a> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span> <a name="line-442"></a> <a name="line-443"></a> <span class='hs-comment'>-- The allPkgDeps contains all the package deps for the whole package</span> <a name="line-444"></a> <span class='hs-comment'>-- but we need to select the subset for this specific component.</span> <a name="line-445"></a> <span class='hs-comment'>-- we just take the subset for the package names this component</span> <a name="line-446"></a> <span class='hs-comment'>-- needs. Note, this only works because we cannot yet depend on two</span> <a name="line-447"></a> <span class='hs-comment'>-- versions of the same package.</span> <a name="line-448"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>configLib</span> <span class='hs-varid'>lib</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>configComponent</span> <span class='hs-layout'>(</span><span class='hs-varid'>libBuildInfo</span> <span class='hs-varid'>lib</span><span class='hs-layout'>)</span> <a name="line-449"></a> <span class='hs-varid'>configExe</span> <span class='hs-varid'>exe</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>exeName</span> <span class='hs-varid'>exe</span><span class='hs-layout'>,</span> <span class='hs-varid'>configComponent</span><span class='hs-layout'>(</span><span class='hs-varid'>buildInfo</span> <span class='hs-varid'>exe</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-450"></a> <span class='hs-varid'>configTest</span> <span class='hs-varid'>test</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>testName</span> <span class='hs-varid'>test</span><span class='hs-layout'>,</span> <a name="line-451"></a> <span class='hs-varid'>configComponent</span><span class='hs-layout'>(</span><span class='hs-varid'>testBuildInfo</span> <span class='hs-varid'>test</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-452"></a> <span class='hs-varid'>configComponent</span> <span class='hs-varid'>bi</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ComponentLocalBuildInfo</span> <span class='hs-layout'>{</span> <a name="line-453"></a> <span class='hs-varid'>componentPackageDeps</span> <span class='hs-keyglyph'>=</span> <a name="line-454"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>newPackageDepsBehaviour</span> <span class='hs-varid'>pkg_descr'</span> <a name="line-455"></a> <span class='hs-keyword'>then</span> <span class='hs-keyglyph'>[</span> <span class='hs-layout'>(</span><span class='hs-varid'>installedPackageId</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>,</span> <span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span> <a name="line-456"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>selectSubset</span> <span class='hs-varid'>bi</span> <span class='hs-varid'>externalPkgDeps</span> <span class='hs-keyglyph'>]</span> <a name="line-457"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span> <span class='hs-layout'>(</span><span class='hs-varid'>inplacePackageId</span> <span class='hs-varid'>pkgid</span><span class='hs-layout'>,</span> <span class='hs-varid'>pkgid</span><span class='hs-layout'>)</span> <a name="line-458"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>pkgid</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>selectSubset</span> <span class='hs-varid'>bi</span> <span class='hs-varid'>internalPkgDeps</span> <span class='hs-keyglyph'>]</span> <a name="line-459"></a> <span class='hs-keyword'>else</span> <span class='hs-keyglyph'>[</span> <span class='hs-layout'>(</span><span class='hs-varid'>installedPackageId</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>,</span> <span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span> <a name="line-460"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>externalPkgDeps</span> <span class='hs-keyglyph'>]</span> <a name="line-461"></a> <span class='hs-layout'>}</span> <a name="line-462"></a> <span class='hs-varid'>selectSubset</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Package</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>BuildInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>pkg</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>pkg</span><span class='hs-keyglyph'>]</span> <a name="line-463"></a> <span class='hs-varid'>selectSubset</span> <span class='hs-varid'>bi</span> <span class='hs-varid'>pkgs</span> <span class='hs-keyglyph'>=</span> <a name="line-464"></a> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pkgs</span><span class='hs-layout'>,</span> <span class='hs-varid'>packageName</span> <span class='hs-varid'>pkg</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>names</span> <span class='hs-keyglyph'>]</span> <a name="line-465"></a> <span class='hs-keyword'>where</span> <a name="line-466"></a> <span class='hs-varid'>names</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>name</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Dependency</span> <span class='hs-varid'>name</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>targetBuildDepends</span> <span class='hs-varid'>bi</span> <span class='hs-keyglyph'>]</span> <a name="line-467"></a> <a name="line-468"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>lbi</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LocalBuildInfo</span><span class='hs-layout'>{</span> <a name="line-469"></a> <span class='hs-varid'>configFlags</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-470"></a> <span class='hs-varid'>extraConfigArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- Currently configure does not</span> <a name="line-471"></a> <span class='hs-comment'>-- take extra args, but if it</span> <a name="line-472"></a> <span class='hs-comment'>-- did they would go here.</span> <a name="line-473"></a> <span class='hs-varid'>installDirTemplates</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>installDirs</span><span class='hs-layout'>,</span> <a name="line-474"></a> <span class='hs-varid'>compiler</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>comp</span><span class='hs-layout'>,</span> <a name="line-475"></a> <span class='hs-varid'>buildDir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>distPref</span> <span class='hs-varop'></></span> <span class='hs-str'>"build"</span><span class='hs-layout'>,</span> <a name="line-476"></a> <span class='hs-varid'>scratchDir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlagOrDefault</span> <a name="line-477"></a> <span class='hs-layout'>(</span><span class='hs-varid'>distPref</span> <span class='hs-varop'></></span> <span class='hs-str'>"scratch"</span><span class='hs-layout'>)</span> <a name="line-478"></a> <span class='hs-layout'>(</span><span class='hs-varid'>configScratchDir</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-479"></a> <span class='hs-varid'>libraryConfig</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>configLib</span> <span class='hs-varop'>`fmap`</span> <span class='hs-varid'>library</span> <span class='hs-varid'>pkg_descr'</span><span class='hs-layout'>,</span> <a name="line-480"></a> <span class='hs-varid'>executableConfigs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>configExe</span> <span class='hs-varop'>`fmap`</span> <span class='hs-varid'>executables</span> <span class='hs-varid'>pkg_descr'</span><span class='hs-layout'>,</span> <a name="line-481"></a> <span class='hs-varid'>testSuiteConfigs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>configTest</span> <span class='hs-varop'>`fmap`</span> <span class='hs-varid'>filter</span> <span class='hs-varid'>testEnabled</span> <span class='hs-layout'>(</span><span class='hs-varid'>testSuites</span> <span class='hs-varid'>pkg_descr'</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-482"></a> <span class='hs-varid'>installedPkgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>packageDependsIndex</span><span class='hs-layout'>,</span> <a name="line-483"></a> <span class='hs-varid'>pkgDescrFile</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>,</span> <a name="line-484"></a> <span class='hs-varid'>localPkgDescr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pkg_descr'</span><span class='hs-layout'>,</span> <a name="line-485"></a> <span class='hs-varid'>withPrograms</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>programsConfig'''</span><span class='hs-layout'>,</span> <a name="line-486"></a> <span class='hs-varid'>withVanillaLib</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configVanillaLib</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-487"></a> <span class='hs-varid'>withProfLib</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configProfLib</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-488"></a> <span class='hs-varid'>withSharedLib</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configSharedLib</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-489"></a> <span class='hs-varid'>withDynExe</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configDynExe</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-490"></a> <span class='hs-varid'>withProfExe</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configProfExe</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-491"></a> <span class='hs-varid'>withOptimization</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configOptimization</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-492"></a> <span class='hs-varid'>withGHCiLib</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configGHCiLib</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-493"></a> <span class='hs-varid'>splitObjs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>split_objs</span><span class='hs-layout'>,</span> <a name="line-494"></a> <span class='hs-varid'>stripExes</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configStripExes</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-495"></a> <span class='hs-varid'>withPackageDB</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>packageDbs</span><span class='hs-layout'>,</span> <a name="line-496"></a> <span class='hs-varid'>progPrefix</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configProgPrefix</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>,</span> <a name="line-497"></a> <span class='hs-varid'>progSuffix</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configProgSuffix</span> <span class='hs-varid'>cfg</span> <a name="line-498"></a> <span class='hs-layout'>}</span> <a name="line-499"></a> <a name="line-500"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>dirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>absoluteInstallDirs</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varid'>lbi</span> <span class='hs-conid'>NoCopyDest</span> <a name="line-501"></a> <span class='hs-varid'>relative</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>prefixRelativeInstallDirs</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <span class='hs-varid'>lbi</span> <a name="line-502"></a> <a name="line-503"></a> <span class='hs-varid'>unless</span> <span class='hs-layout'>(</span><span class='hs-varid'>isAbsolute</span> <span class='hs-layout'>(</span><span class='hs-varid'>prefix</span> <span class='hs-varid'>dirs</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <a name="line-504"></a> <span class='hs-str'>"expected an absolute directory name for --prefix: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>prefix</span> <span class='hs-varid'>dirs</span> <a name="line-505"></a> <a name="line-506"></a> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Using "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>currentCabalId</span> <a name="line-507"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" compiled by "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>currentCompilerId</span> <a name="line-508"></a> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Using compiler: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>showCompilerId</span> <span class='hs-varid'>comp</span> <a name="line-509"></a> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Using install prefix: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>prefix</span> <span class='hs-varid'>dirs</span> <a name="line-510"></a> <a name="line-511"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>dirinfo</span> <span class='hs-varid'>name</span> <span class='hs-varid'>dir</span> <span class='hs-varid'>isPrefixRelative</span> <span class='hs-keyglyph'>=</span> <a name="line-512"></a> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-varid'>name</span> <span class='hs-varop'>++</span> <span class='hs-str'>" installed in: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>dir</span> <span class='hs-varop'>++</span> <span class='hs-varid'>relNote</span> <a name="line-513"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>relNote</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>buildOS</span> <span class='hs-keyword'>of</span> <a name="line-514"></a> <span class='hs-conid'>Windows</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>hasLibs</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-515"></a> <span class='hs-varop'>&&</span> <span class='hs-varid'>isNothing</span> <span class='hs-varid'>isPrefixRelative</span> <a name="line-516"></a> <span class='hs-keyglyph'>-></span> <span class='hs-str'>" (fixed location)"</span> <a name="line-517"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>""</span> <a name="line-518"></a> <a name="line-519"></a> <span class='hs-varid'>dirinfo</span> <span class='hs-str'>"Binaries"</span> <span class='hs-layout'>(</span><span class='hs-varid'>bindir</span> <span class='hs-varid'>dirs</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>bindir</span> <span class='hs-varid'>relative</span><span class='hs-layout'>)</span> <a name="line-520"></a> <span class='hs-varid'>dirinfo</span> <span class='hs-str'>"Libraries"</span> <span class='hs-layout'>(</span><span class='hs-varid'>libdir</span> <span class='hs-varid'>dirs</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>libdir</span> <span class='hs-varid'>relative</span><span class='hs-layout'>)</span> <a name="line-521"></a> <span class='hs-varid'>dirinfo</span> <span class='hs-str'>"Private binaries"</span> <span class='hs-layout'>(</span><span class='hs-varid'>libexecdir</span> <span class='hs-varid'>dirs</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>libexecdir</span> <span class='hs-varid'>relative</span><span class='hs-layout'>)</span> <a name="line-522"></a> <span class='hs-varid'>dirinfo</span> <span class='hs-str'>"Data files"</span> <span class='hs-layout'>(</span><span class='hs-varid'>datadir</span> <span class='hs-varid'>dirs</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>datadir</span> <span class='hs-varid'>relative</span><span class='hs-layout'>)</span> <a name="line-523"></a> <span class='hs-varid'>dirinfo</span> <span class='hs-str'>"Documentation"</span> <span class='hs-layout'>(</span><span class='hs-varid'>docdir</span> <span class='hs-varid'>dirs</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>docdir</span> <span class='hs-varid'>relative</span><span class='hs-layout'>)</span> <a name="line-524"></a> <a name="line-525"></a> <span class='hs-varid'>sequence_</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>reportProgram</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>prog</span> <span class='hs-varid'>configuredProg</span> <a name="line-526"></a> <span class='hs-keyglyph'>|</span> <span class='hs-layout'>(</span><span class='hs-varid'>prog</span><span class='hs-layout'>,</span> <span class='hs-varid'>configuredProg</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>knownPrograms</span> <span class='hs-varid'>programsConfig'''</span> <span class='hs-keyglyph'>]</span> <a name="line-527"></a> <a name="line-528"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>lbi</span> <a name="line-529"></a> <a name="line-530"></a> <span class='hs-keyword'>where</span> <a name="line-531"></a> <span class='hs-varid'>addExtraIncludeLibDirs</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-keyglyph'>=</span> <a name="line-532"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>extraBi</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mempty</span> <span class='hs-layout'>{</span> <span class='hs-varid'>extraLibDirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>configExtraLibDirs</span> <span class='hs-varid'>cfg</span> <a name="line-533"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>includeDirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>configExtraIncludeDirs</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>}</span> <a name="line-534"></a> <span class='hs-varid'>modifyLib</span> <span class='hs-varid'>l</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>l</span><span class='hs-layout'>{</span> <span class='hs-varid'>libBuildInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>libBuildInfo</span> <span class='hs-varid'>l</span> <span class='hs-varop'>`mappend`</span> <span class='hs-varid'>extraBi</span> <span class='hs-layout'>}</span> <a name="line-535"></a> <span class='hs-varid'>modifyExecutable</span> <span class='hs-varid'>e</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>e</span><span class='hs-layout'>{</span> <span class='hs-varid'>buildInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>buildInfo</span> <span class='hs-varid'>e</span> <span class='hs-varop'>`mappend`</span> <span class='hs-varid'>extraBi</span><span class='hs-layout'>}</span> <a name="line-536"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>{</span> <span class='hs-varid'>library</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>modifyLib</span> <span class='hs-varop'>`fmap`</span> <span class='hs-varid'>library</span> <span class='hs-varid'>pkg_descr</span> <a name="line-537"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>executables</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>modifyExecutable</span> <span class='hs-varop'>`map`</span> <span class='hs-varid'>executables</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>}</span> <a name="line-538"></a> <a name="line-539"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span> <a name="line-540"></a><span class='hs-comment'>-- Configuring package dependencies</span> <a name="line-541"></a> <a name="line-542"></a><a name="reportProgram"></a><span class='hs-definition'>reportProgram</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Program</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>ConfiguredProgram</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-543"></a><span class='hs-definition'>reportProgram</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>prog</span> <span class='hs-conid'>Nothing</span> <a name="line-544"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"No "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>programName</span> <span class='hs-varid'>prog</span> <span class='hs-varop'>++</span> <span class='hs-str'>" found"</span> <a name="line-545"></a><span class='hs-definition'>reportProgram</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>prog</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>configuredProg</span><span class='hs-layout'>)</span> <a name="line-546"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Using "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>programName</span> <span class='hs-varid'>prog</span> <span class='hs-varop'>++</span> <span class='hs-varid'>version</span> <span class='hs-varop'>++</span> <span class='hs-varid'>location</span> <a name="line-547"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>location</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>programLocation</span> <span class='hs-varid'>configuredProg</span> <span class='hs-keyword'>of</span> <a name="line-548"></a> <span class='hs-conid'>FoundOnSystem</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>" found on system at: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>p</span> <a name="line-549"></a> <span class='hs-conid'>UserSpecified</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>" given by user at: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>p</span> <a name="line-550"></a> <span class='hs-varid'>version</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>programVersion</span> <span class='hs-varid'>configuredProg</span> <span class='hs-keyword'>of</span> <a name="line-551"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>""</span> <a name="line-552"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>v</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>" version "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>v</span> <a name="line-553"></a> <a name="line-554"></a><a name="hackageUrl"></a><span class='hs-definition'>hackageUrl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <a name="line-555"></a><span class='hs-definition'>hackageUrl</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"http://hackage.haskell.org/package/"</span> <a name="line-556"></a> <a name="line-557"></a><a name="ResolvedDependency"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>ResolvedDependency</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ExternalDependency</span> <span class='hs-conid'>Dependency</span> <span class='hs-conid'>InstalledPackageInfo</span> <a name="line-558"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>InternalDependency</span> <span class='hs-conid'>Dependency</span> <span class='hs-conid'>PackageId</span> <span class='hs-comment'>-- should be a lib name</span> <a name="line-559"></a> <a name="line-560"></a><a name="FailedDependency"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>FailedDependency</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DependencyNotExists</span> <span class='hs-conid'>PackageName</span> <a name="line-561"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>DependencyNoVersion</span> <span class='hs-conid'>Dependency</span> <a name="line-562"></a> <a name="line-563"></a><a name="selectDependency"></a><span class='hs-comment'>-- | Test for a package dependency and record the version we have installed.</span> <a name="line-564"></a><span class='hs-definition'>selectDependency</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageIndex</span> <span class='hs-comment'>-- ^ Internally defined packages</span> <a name="line-565"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageIndex</span> <span class='hs-comment'>-- ^ Installed packages</span> <a name="line-566"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Dependency</span> <a name="line-567"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Either</span> <span class='hs-conid'>FailedDependency</span> <span class='hs-conid'>ResolvedDependency</span> <a name="line-568"></a><span class='hs-definition'>selectDependency</span> <span class='hs-varid'>internalIndex</span> <span class='hs-varid'>installedIndex</span> <a name="line-569"></a> <span class='hs-varid'>dep</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>Dependency</span> <span class='hs-varid'>pkgname</span> <span class='hs-varid'>vr</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-570"></a> <span class='hs-comment'>-- If the dependency specification matches anything in the internal package</span> <a name="line-571"></a> <span class='hs-comment'>-- index, then we prefer that match to anything in the second.</span> <a name="line-572"></a> <span class='hs-comment'>-- For example:</span> <a name="line-573"></a> <span class='hs-comment'>--</span> <a name="line-574"></a> <span class='hs-comment'>-- Name: MyLibrary</span> <a name="line-575"></a> <span class='hs-comment'>-- Version: 0.1</span> <a name="line-576"></a> <span class='hs-comment'>-- Library</span> <a name="line-577"></a> <span class='hs-comment'>-- ..</span> <a name="line-578"></a> <span class='hs-comment'>-- Executable my-exec</span> <a name="line-579"></a> <span class='hs-comment'>-- build-depends: MyLibrary</span> <a name="line-580"></a> <span class='hs-comment'>--</span> <a name="line-581"></a> <span class='hs-comment'>-- We want "build-depends: MyLibrary" always to match the internal library</span> <a name="line-582"></a> <span class='hs-comment'>-- even if there is a newer installed library "MyLibrary-0.2".</span> <a name="line-583"></a> <span class='hs-comment'>-- However, "build-depends: MyLibrary >= 0.2" should match the installed one.</span> <a name="line-584"></a> <span class='hs-keyword'>case</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>lookupPackageName</span> <span class='hs-varid'>internalIndex</span> <span class='hs-varid'>pkgname</span> <span class='hs-keyword'>of</span> <a name="line-585"></a> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-keyglyph'>[</span><span class='hs-varid'>pkg</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>packageVersion</span> <span class='hs-varid'>pkg</span> <span class='hs-varop'>`withinRange`</span> <span class='hs-varid'>vr</span> <a name="line-586"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Right</span> <span class='hs-varop'>$</span> <span class='hs-conid'>InternalDependency</span> <span class='hs-varid'>dep</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span> <a name="line-587"></a> <a name="line-588"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>lookupDependency</span> <span class='hs-varid'>installedIndex</span> <span class='hs-varid'>dep</span> <span class='hs-keyword'>of</span> <a name="line-589"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Left</span> <span class='hs-varop'>$</span> <span class='hs-conid'>DependencyNotExists</span> <span class='hs-varid'>pkgname</span> <a name="line-590"></a> <span class='hs-varid'>pkgs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Right</span> <span class='hs-varop'>$</span> <span class='hs-conid'>ExternalDependency</span> <span class='hs-varid'>dep</span> <span class='hs-varop'>$</span> <a name="line-591"></a> <span class='hs-comment'>-- by default we just pick the latest</span> <a name="line-592"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>last</span> <span class='hs-varid'>pkgs</span> <span class='hs-keyword'>of</span> <a name="line-593"></a> <span class='hs-layout'>(</span><span class='hs-sel'>_ver</span><span class='hs-layout'>,</span> <span class='hs-varid'>instances</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>head</span> <span class='hs-varid'>instances</span> <span class='hs-comment'>-- the first preference</span> <a name="line-594"></a> <a name="line-595"></a><a name="reportSelectedDependencies"></a><span class='hs-definition'>reportSelectedDependencies</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <a name="line-596"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ResolvedDependency</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-597"></a><span class='hs-definition'>reportSelectedDependencies</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>deps</span> <span class='hs-keyglyph'>=</span> <a name="line-598"></a> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-varid'>unlines</span> <a name="line-599"></a> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"Dependency "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>simplifyDependency</span> <span class='hs-varid'>dep</span><span class='hs-layout'>)</span> <a name="line-600"></a> <span class='hs-varop'>++</span> <span class='hs-str'>": using "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>pkgid</span> <a name="line-601"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>resolved</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deps</span> <a name="line-602"></a> <span class='hs-layout'>,</span> <span class='hs-keyword'>let</span> <span class='hs-layout'>(</span><span class='hs-varid'>dep</span><span class='hs-layout'>,</span> <span class='hs-varid'>pkgid</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>resolved</span> <span class='hs-keyword'>of</span> <a name="line-603"></a> <span class='hs-conid'>ExternalDependency</span> <span class='hs-varid'>dep'</span> <span class='hs-varid'>pkg'</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>dep'</span><span class='hs-layout'>,</span> <span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg'</span><span class='hs-layout'>)</span> <a name="line-604"></a> <span class='hs-conid'>InternalDependency</span> <span class='hs-varid'>dep'</span> <span class='hs-varid'>pkgid'</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>dep'</span><span class='hs-layout'>,</span> <span class='hs-varid'>pkgid'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>]</span> <a name="line-605"></a> <a name="line-606"></a><a name="reportFailedDependencies"></a><span class='hs-definition'>reportFailedDependencies</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FailedDependency</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-607"></a><span class='hs-definition'>reportFailedDependencies</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <a name="line-608"></a><span class='hs-definition'>reportFailedDependencies</span> <span class='hs-varid'>failed</span> <span class='hs-keyglyph'>=</span> <a name="line-609"></a> <span class='hs-varid'>die</span> <span class='hs-layout'>(</span><span class='hs-varid'>intercalate</span> <span class='hs-str'>"\n\n"</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>reportFailedDependency</span> <span class='hs-varid'>failed</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-610"></a> <a name="line-611"></a> <span class='hs-keyword'>where</span> <a name="line-612"></a> <span class='hs-varid'>reportFailedDependency</span> <span class='hs-layout'>(</span><span class='hs-conid'>DependencyNotExists</span> <span class='hs-varid'>pkgname</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-613"></a> <span class='hs-str'>"there is no version of "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>pkgname</span> <span class='hs-varop'>++</span> <span class='hs-str'>" installed.\n"</span> <a name="line-614"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"Perhaps you need to download and install it from\n"</span> <a name="line-615"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>hackageUrl</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>pkgname</span> <span class='hs-varop'>++</span> <span class='hs-str'>"?"</span> <a name="line-616"></a> <a name="line-617"></a> <span class='hs-varid'>reportFailedDependency</span> <span class='hs-layout'>(</span><span class='hs-conid'>DependencyNoVersion</span> <span class='hs-varid'>dep</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-618"></a> <span class='hs-str'>"cannot satisfy dependency "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-layout'>(</span><span class='hs-varid'>simplifyDependency</span> <span class='hs-varid'>dep</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>"\n"</span> <a name="line-619"></a> <a name="line-620"></a><a name="getInstalledPackages"></a><span class='hs-definition'>getInstalledPackages</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Compiler</span> <a name="line-621"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDBStack</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ProgramConfiguration</span> <a name="line-622"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>PackageIndex</span> <a name="line-623"></a><span class='hs-definition'>getInstalledPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>comp</span> <span class='hs-varid'>packageDBs</span> <span class='hs-varid'>progconf</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-624"></a> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-str'>"Reading installed packages..."</span> <a name="line-625"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>compilerFlavor</span> <span class='hs-varid'>comp</span> <span class='hs-keyword'>of</span> <a name="line-626"></a> <span class='hs-conid'>GHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-varid'>getInstalledPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>packageDBs</span> <span class='hs-varid'>progconf</span> <a name="line-627"></a> <span class='hs-conid'>Hugs</span><span class='hs-keyglyph'>-></span><span class='hs-conid'>Hugs</span><span class='hs-varop'>.</span><span class='hs-varid'>getInstalledPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>packageDBs</span> <span class='hs-varid'>progconf</span> <a name="line-628"></a> <span class='hs-conid'>JHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>JHC</span><span class='hs-varop'>.</span><span class='hs-varid'>getInstalledPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>packageDBs</span> <span class='hs-varid'>progconf</span> <a name="line-629"></a> <span class='hs-conid'>LHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LHC</span><span class='hs-varop'>.</span><span class='hs-varid'>getInstalledPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>packageDBs</span> <span class='hs-varid'>progconf</span> <a name="line-630"></a> <span class='hs-conid'>NHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>NHC</span><span class='hs-varop'>.</span><span class='hs-varid'>getInstalledPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>packageDBs</span> <span class='hs-varid'>progconf</span> <a name="line-631"></a> <span class='hs-conid'>UHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>UHC</span><span class='hs-varop'>.</span><span class='hs-varid'>getInstalledPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>comp</span> <span class='hs-varid'>packageDBs</span> <span class='hs-varid'>progconf</span> <a name="line-632"></a> <span class='hs-varid'>flv</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-str'>"don't know how to find the installed packages for "</span> <a name="line-633"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>flv</span> <a name="line-634"></a> <a name="line-635"></a><a name="implicitPackageDbStack"></a><span class='hs-comment'>-- | Currently the user interface specifies the package dbs to use with just a</span> <a name="line-636"></a><span class='hs-comment'>-- single valued option, a 'PackageDB'. However internally we represent the</span> <a name="line-637"></a><span class='hs-comment'>-- stack of 'PackageDB's explictly as a list. This function converts encodes</span> <a name="line-638"></a><span class='hs-comment'>-- the package db stack implicit in a single packagedb.</span> <a name="line-639"></a><span class='hs-comment'>--</span> <a name="line-640"></a><span class='hs-definition'>implicitPackageDbStack</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>PackageDB</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDBStack</span> <a name="line-641"></a><span class='hs-definition'>implicitPackageDbStack</span> <span class='hs-varid'>userInstall</span> <span class='hs-varid'>maybePackageDB</span> <a name="line-642"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>userInstall</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GlobalPackageDB</span> <span class='hs-conop'>:</span> <span class='hs-conid'>UserPackageDB</span> <span class='hs-conop'>:</span> <span class='hs-varid'>extra</span> <a name="line-643"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GlobalPackageDB</span> <span class='hs-conop'>:</span> <span class='hs-varid'>extra</span> <a name="line-644"></a> <span class='hs-keyword'>where</span> <a name="line-645"></a> <span class='hs-varid'>extra</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>maybePackageDB</span> <span class='hs-keyword'>of</span> <a name="line-646"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-conid'>SpecificPackageDB</span> <span class='hs-varid'>db</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>SpecificPackageDB</span> <span class='hs-varid'>db</span><span class='hs-keyglyph'>]</span> <a name="line-647"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>[]</span> <a name="line-648"></a> <a name="line-649"></a><a name="newPackageDepsBehaviourMinVersion"></a><span class='hs-definition'>newPackageDepsBehaviourMinVersion</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Version</span> <a name="line-650"></a><span class='hs-definition'>newPackageDepsBehaviourMinVersion</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Version</span> <span class='hs-layout'>{</span> <span class='hs-varid'>versionBranch</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>1</span><span class='hs-layout'>,</span><span class='hs-num'>7</span><span class='hs-layout'>,</span><span class='hs-num'>1</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span> <span class='hs-varid'>versionTags</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span> <span class='hs-layout'>}</span> <a name="line-651"></a> <a name="line-652"></a><a name="newPackageDepsBehaviour"></a><span class='hs-comment'>-- In older cabal versions, there was only one set of package dependencies for</span> <a name="line-653"></a><span class='hs-comment'>-- the whole package. In this version, we can have separate dependencies per</span> <a name="line-654"></a><span class='hs-comment'>-- target, but we only enable this behaviour if the minimum cabal version</span> <a name="line-655"></a><span class='hs-comment'>-- specified is >= a certain minimum. Otherwise, for compatibility we use the</span> <a name="line-656"></a><span class='hs-comment'>-- old behaviour.</span> <a name="line-657"></a><span class='hs-definition'>newPackageDepsBehaviour</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageDescription</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <a name="line-658"></a><span class='hs-definition'>newPackageDepsBehaviour</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>=</span> <a name="line-659"></a> <span class='hs-varid'>specVersion</span> <span class='hs-varid'>pkg</span> <span class='hs-varop'>>=</span> <span class='hs-varid'>newPackageDepsBehaviourMinVersion</span> <a name="line-660"></a> <a name="line-661"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span> <a name="line-662"></a><span class='hs-comment'>-- Configuring program dependencies</span> <a name="line-663"></a> <a name="line-664"></a><a name="configureRequiredPrograms"></a><span class='hs-definition'>configureRequiredPrograms</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Dependency</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ProgramConfiguration</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>ProgramConfiguration</span> <a name="line-665"></a><span class='hs-definition'>configureRequiredPrograms</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>deps</span> <span class='hs-varid'>conf</span> <span class='hs-keyglyph'>=</span> <a name="line-666"></a> <span class='hs-varid'>foldM</span> <span class='hs-layout'>(</span><span class='hs-varid'>configureRequiredProgram</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <span class='hs-varid'>conf</span> <span class='hs-varid'>deps</span> <a name="line-667"></a> <a name="line-668"></a><a name="configureRequiredProgram"></a><span class='hs-definition'>configureRequiredProgram</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ProgramConfiguration</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Dependency</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>ProgramConfiguration</span> <a name="line-669"></a><span class='hs-definition'>configureRequiredProgram</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>conf</span> <span class='hs-layout'>(</span><span class='hs-conid'>Dependency</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageName</span> <span class='hs-varid'>progName</span><span class='hs-layout'>)</span> <span class='hs-varid'>verRange</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-670"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>lookupKnownProgram</span> <span class='hs-varid'>progName</span> <span class='hs-varid'>conf</span> <span class='hs-keyword'>of</span> <a name="line-671"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>die</span> <span class='hs-layout'>(</span><span class='hs-str'>"Unknown build tool "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>progName</span><span class='hs-layout'>)</span> <a name="line-672"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>prog</span> <a name="line-673"></a> <span class='hs-comment'>-- requireProgramVersion always requires the program have a version</span> <a name="line-674"></a> <span class='hs-comment'>-- but if the user says "build-depends: foo" ie no version constraint</span> <a name="line-675"></a> <span class='hs-comment'>-- then we should not fail if we cannot discover the program version.</span> <a name="line-676"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>verRange</span> <span class='hs-varop'>==</span> <span class='hs-varid'>anyVersion</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <a name="line-677"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-varid'>conf'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>requireProgram</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>prog</span> <span class='hs-varid'>conf</span> <a name="line-678"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>conf'</span> <a name="line-679"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <a name="line-680"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-varid'>conf'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>requireProgramVersion</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>prog</span> <span class='hs-varid'>verRange</span> <span class='hs-varid'>conf</span> <a name="line-681"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>conf'</span> <a name="line-682"></a> <a name="line-683"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span> <a name="line-684"></a><span class='hs-comment'>-- Configuring pkg-config package dependencies</span> <a name="line-685"></a> <a name="line-686"></a><a name="configurePkgconfigPackages"></a><span class='hs-definition'>configurePkgconfigPackages</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <a name="line-687"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ProgramConfiguration</span> <a name="line-688"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageDescription</span><span class='hs-layout'>,</span> <span class='hs-conid'>ProgramConfiguration</span><span class='hs-layout'>)</span> <a name="line-689"></a><span class='hs-definition'>configurePkgconfigPackages</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varid'>conf</span> <a name="line-690"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>allpkgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkg_descr</span><span class='hs-layout'>,</span> <span class='hs-varid'>conf</span><span class='hs-layout'>)</span> <a name="line-691"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-692"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>,</span> <span class='hs-varid'>conf'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>requireProgramVersion</span> <a name="line-693"></a> <span class='hs-layout'>(</span><span class='hs-varid'>lessVerbose</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <span class='hs-varid'>pkgConfigProgram</span> <a name="line-694"></a> <span class='hs-layout'>(</span><span class='hs-varid'>orLaterVersion</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Version</span> <span class='hs-keyglyph'>[</span><span class='hs-num'>0</span><span class='hs-layout'>,</span><span class='hs-num'>9</span><span class='hs-layout'>,</span><span class='hs-num'>0</span><span class='hs-keyglyph'>]</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span> <span class='hs-varid'>conf</span> <a name="line-695"></a> <span class='hs-varid'>mapM_</span> <span class='hs-varid'>requirePkg</span> <span class='hs-varid'>allpkgs</span> <a name="line-696"></a> <span class='hs-varid'>lib'</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>updateLibrary</span> <span class='hs-layout'>(</span><span class='hs-varid'>library</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-697"></a> <span class='hs-varid'>exes'</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>mapM</span> <span class='hs-varid'>updateExecutable</span> <span class='hs-layout'>(</span><span class='hs-varid'>executables</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-698"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pkg_descr'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-layout'>{</span> <span class='hs-varid'>library</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lib'</span><span class='hs-layout'>,</span> <span class='hs-varid'>executables</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>exes'</span> <span class='hs-layout'>}</span> <a name="line-699"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkg_descr'</span><span class='hs-layout'>,</span> <span class='hs-varid'>conf'</span><span class='hs-layout'>)</span> <a name="line-700"></a> <a name="line-701"></a> <span class='hs-keyword'>where</span> <a name="line-702"></a> <span class='hs-varid'>allpkgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>concatMap</span> <span class='hs-varid'>pkgconfigDepends</span> <span class='hs-layout'>(</span><span class='hs-varid'>allBuildInfo</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <a name="line-703"></a> <span class='hs-varid'>pkgconfig</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>rawSystemProgramStdoutConf</span> <span class='hs-layout'>(</span><span class='hs-varid'>lessVerbose</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <a name="line-704"></a> <span class='hs-varid'>pkgConfigProgram</span> <span class='hs-varid'>conf</span> <a name="line-705"></a> <a name="line-706"></a> <span class='hs-varid'>requirePkg</span> <span class='hs-varid'>dep</span><span class='hs-keyglyph'>@</span><span class='hs-layout'>(</span><span class='hs-conid'>Dependency</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageName</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span> <span class='hs-varid'>range</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-707"></a> <span class='hs-varid'>version</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pkgconfig</span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"--modversion"</span><span class='hs-layout'>,</span> <span class='hs-varid'>pkg</span><span class='hs-keyglyph'>]</span> <a name="line-708"></a> <span class='hs-varop'>`catchIO`</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>die</span> <span class='hs-varid'>notFound</span><span class='hs-layout'>)</span> <a name="line-709"></a> <span class='hs-varop'>`catchExit`</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>die</span> <span class='hs-varid'>notFound</span><span class='hs-layout'>)</span> <a name="line-710"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>simpleParse</span> <span class='hs-varid'>version</span> <span class='hs-keyword'>of</span> <a name="line-711"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>die</span> <span class='hs-str'>"parsing output of pkg-config --modversion failed"</span> <a name="line-712"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>v</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>withinRange</span> <span class='hs-varid'>v</span> <span class='hs-varid'>range</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>die</span> <span class='hs-layout'>(</span><span class='hs-varid'>badVersion</span> <span class='hs-varid'>v</span><span class='hs-layout'>)</span> <a name="line-713"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>info</span> <span class='hs-varid'>verbosity</span> <span class='hs-layout'>(</span><span class='hs-varid'>depSatisfied</span> <span class='hs-varid'>v</span><span class='hs-layout'>)</span> <a name="line-714"></a> <span class='hs-keyword'>where</span> <a name="line-715"></a> <span class='hs-varid'>notFound</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"The pkg-config package "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>pkg</span> <span class='hs-varop'>++</span> <span class='hs-varid'>versionRequirement</span> <a name="line-716"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" is required but it could not be found."</span> <a name="line-717"></a> <span class='hs-varid'>badVersion</span> <span class='hs-varid'>v</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"The pkg-config package "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>pkg</span> <span class='hs-varop'>++</span> <span class='hs-varid'>versionRequirement</span> <a name="line-718"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" is required but the version installed on the"</span> <a name="line-719"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" system is version "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>v</span> <a name="line-720"></a> <span class='hs-varid'>depSatisfied</span> <span class='hs-varid'>v</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"Dependency "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>dep</span> <a name="line-721"></a> <span class='hs-varop'>++</span> <span class='hs-str'>": using version "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>v</span> <a name="line-722"></a> <a name="line-723"></a> <span class='hs-varid'>versionRequirement</span> <a name="line-724"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isAnyVersion</span> <span class='hs-varid'>range</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>""</span> <a name="line-725"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>" version "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>range</span> <a name="line-726"></a> <a name="line-727"></a> <span class='hs-varid'>updateLibrary</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <a name="line-728"></a> <span class='hs-varid'>updateLibrary</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>lib</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-729"></a> <span class='hs-varid'>bi</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pkgconfigBuildInfo</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkgconfigDepends</span> <span class='hs-layout'>(</span><span class='hs-varid'>libBuildInfo</span> <span class='hs-varid'>lib</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-730"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>lib</span> <span class='hs-layout'>{</span> <span class='hs-varid'>libBuildInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>libBuildInfo</span> <span class='hs-varid'>lib</span> <span class='hs-varop'>`mappend`</span> <span class='hs-varid'>bi</span> <span class='hs-layout'>}</span> <a name="line-731"></a> <a name="line-732"></a> <span class='hs-varid'>updateExecutable</span> <span class='hs-varid'>exe</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-733"></a> <span class='hs-varid'>bi</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pkgconfigBuildInfo</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkgconfigDepends</span> <span class='hs-layout'>(</span><span class='hs-varid'>buildInfo</span> <span class='hs-varid'>exe</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-734"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>exe</span> <span class='hs-layout'>{</span> <span class='hs-varid'>buildInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>buildInfo</span> <span class='hs-varid'>exe</span> <span class='hs-varop'>`mappend`</span> <span class='hs-varid'>bi</span> <span class='hs-layout'>}</span> <a name="line-735"></a> <a name="line-736"></a> <span class='hs-varid'>pkgconfigBuildInfo</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Dependency</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>BuildInfo</span> <a name="line-737"></a> <span class='hs-varid'>pkgconfigBuildInfo</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-varid'>mempty</span> <a name="line-738"></a> <span class='hs-varid'>pkgconfigBuildInfo</span> <span class='hs-varid'>pkgdeps</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-739"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pkgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nub</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>display</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Dependency</span> <span class='hs-varid'>pkg</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pkgdeps</span> <span class='hs-keyglyph'>]</span> <a name="line-740"></a> <span class='hs-varid'>ccflags</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pkgconfig</span> <span class='hs-layout'>(</span><span class='hs-str'>"--cflags"</span> <span class='hs-conop'>:</span> <span class='hs-varid'>pkgs</span><span class='hs-layout'>)</span> <a name="line-741"></a> <span class='hs-varid'>ldflags</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pkgconfig</span> <span class='hs-layout'>(</span><span class='hs-str'>"--libs"</span> <span class='hs-conop'>:</span> <span class='hs-varid'>pkgs</span><span class='hs-layout'>)</span> <a name="line-742"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>ccLdOptionsBuildInfo</span> <span class='hs-layout'>(</span><span class='hs-varid'>words</span> <span class='hs-varid'>ccflags</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>words</span> <span class='hs-varid'>ldflags</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-743"></a> <a name="line-744"></a><a name="ccLdOptionsBuildInfo"></a><span class='hs-comment'>-- | Makes a 'BuildInfo' from C compiler and linker flags.</span> <a name="line-745"></a><span class='hs-comment'>--</span> <a name="line-746"></a><span class='hs-comment'>-- This can be used with the output from configuration programs like pkg-config</span> <a name="line-747"></a><span class='hs-comment'>-- and similar package-specific programs like mysql-config, freealut-config etc.</span> <a name="line-748"></a><span class='hs-comment'>-- For example:</span> <a name="line-749"></a><span class='hs-comment'>--</span> <a name="line-750"></a><span class='hs-comment'>-- > ccflags <- rawSystemProgramStdoutConf verbosity prog conf ["--cflags"]</span> <a name="line-751"></a><span class='hs-comment'>-- > ldflags <- rawSystemProgramStdoutConf verbosity prog conf ["--libs"]</span> <a name="line-752"></a><span class='hs-comment'>-- > return (ccldOptionsBuildInfo (words ccflags) (words ldflags))</span> <a name="line-753"></a><span class='hs-comment'>--</span> <a name="line-754"></a><span class='hs-definition'>ccLdOptionsBuildInfo</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>BuildInfo</span> <a name="line-755"></a><span class='hs-definition'>ccLdOptionsBuildInfo</span> <span class='hs-varid'>cflags</span> <span class='hs-varid'>ldflags</span> <span class='hs-keyglyph'>=</span> <a name="line-756"></a> <span class='hs-keyword'>let</span> <span class='hs-layout'>(</span><span class='hs-varid'>includeDirs'</span><span class='hs-layout'>,</span> <span class='hs-varid'>cflags'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>partition</span> <span class='hs-layout'>(</span><span class='hs-str'>"-I"</span> <span class='hs-varop'>`isPrefixOf`</span><span class='hs-layout'>)</span> <span class='hs-varid'>cflags</span> <a name="line-757"></a> <span class='hs-layout'>(</span><span class='hs-varid'>extraLibs'</span><span class='hs-layout'>,</span> <span class='hs-varid'>ldflags'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>partition</span> <span class='hs-layout'>(</span><span class='hs-str'>"-l"</span> <span class='hs-varop'>`isPrefixOf`</span><span class='hs-layout'>)</span> <span class='hs-varid'>ldflags</span> <a name="line-758"></a> <span class='hs-layout'>(</span><span class='hs-varid'>extraLibDirs'</span><span class='hs-layout'>,</span> <span class='hs-varid'>ldflags''</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>partition</span> <span class='hs-layout'>(</span><span class='hs-str'>"-L"</span> <span class='hs-varop'>`isPrefixOf`</span><span class='hs-layout'>)</span> <span class='hs-varid'>ldflags'</span> <a name="line-759"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>mempty</span> <span class='hs-layout'>{</span> <a name="line-760"></a> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>includeDirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>drop</span> <span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varid'>includeDirs'</span><span class='hs-layout'>,</span> <a name="line-761"></a> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>extraLibs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>drop</span> <span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varid'>extraLibs'</span><span class='hs-layout'>,</span> <a name="line-762"></a> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>extraLibDirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>drop</span> <span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varid'>extraLibDirs'</span><span class='hs-layout'>,</span> <a name="line-763"></a> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>ccOptions</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cflags'</span><span class='hs-layout'>,</span> <a name="line-764"></a> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>ldOptions</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ldflags''</span> <a name="line-765"></a> <span class='hs-layout'>}</span> <a name="line-766"></a> <a name="line-767"></a><span class='hs-comment'>-- -----------------------------------------------------------------------------</span> <a name="line-768"></a><span class='hs-comment'>-- Determining the compiler details</span> <a name="line-769"></a> <a name="line-770"></a><a name="configCompilerAux"></a><span class='hs-definition'>configCompilerAux</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ConfigFlags</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Compiler</span><span class='hs-layout'>,</span> <span class='hs-conid'>ProgramConfiguration</span><span class='hs-layout'>)</span> <a name="line-771"></a><span class='hs-definition'>configCompilerAux</span> <span class='hs-varid'>cfg</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>configCompiler</span> <span class='hs-layout'>(</span><span class='hs-varid'>flagToMaybe</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configHcFlavor</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-772"></a> <span class='hs-layout'>(</span><span class='hs-varid'>flagToMaybe</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configHcPath</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-773"></a> <span class='hs-layout'>(</span><span class='hs-varid'>flagToMaybe</span> <span class='hs-varop'>$</span> <span class='hs-varid'>configHcPkg</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-774"></a> <span class='hs-varid'>programsConfig</span> <a name="line-775"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromFlag</span> <span class='hs-layout'>(</span><span class='hs-varid'>configVerbosity</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-776"></a> <span class='hs-keyword'>where</span> <a name="line-777"></a> <span class='hs-varid'>programsConfig</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>userSpecifyArgss</span> <span class='hs-layout'>(</span><span class='hs-varid'>configProgramArgs</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-778"></a> <span class='hs-varop'>.</span> <span class='hs-varid'>userSpecifyPaths</span> <span class='hs-layout'>(</span><span class='hs-varid'>configProgramPaths</span> <span class='hs-varid'>cfg</span><span class='hs-layout'>)</span> <a name="line-779"></a> <span class='hs-varop'>$</span> <span class='hs-varid'>defaultProgramConfiguration</span> <a name="line-780"></a> <a name="line-781"></a><a name="configCompiler"></a><span class='hs-definition'>configCompiler</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>CompilerFlavor</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>FilePath</span> <a name="line-782"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ProgramConfiguration</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Verbosity</span> <a name="line-783"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Compiler</span><span class='hs-layout'>,</span> <span class='hs-conid'>ProgramConfiguration</span><span class='hs-layout'>)</span> <a name="line-784"></a><span class='hs-definition'>configCompiler</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>die</span> <span class='hs-str'>"Unknown compiler"</span> <a name="line-785"></a><span class='hs-definition'>configCompiler</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>hcFlavor</span><span class='hs-layout'>)</span> <span class='hs-varid'>hcPath</span> <span class='hs-varid'>hcPkg</span> <span class='hs-varid'>conf</span> <span class='hs-varid'>verbosity</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-786"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>hcFlavor</span> <span class='hs-keyword'>of</span> <a name="line-787"></a> <span class='hs-conid'>GHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-varid'>configure</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>hcPath</span> <span class='hs-varid'>hcPkg</span> <span class='hs-varid'>conf</span> <a name="line-788"></a> <span class='hs-conid'>JHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>JHC</span><span class='hs-varop'>.</span><span class='hs-varid'>configure</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>hcPath</span> <span class='hs-varid'>hcPkg</span> <span class='hs-varid'>conf</span> <a name="line-789"></a> <span class='hs-conid'>LHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-varid'>ghcConf</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-varid'>configure</span> <span class='hs-varid'>verbosity</span> <span class='hs-conid'>Nothing</span> <span class='hs-varid'>hcPkg</span> <span class='hs-varid'>conf</span> <a name="line-790"></a> <span class='hs-conid'>LHC</span><span class='hs-varop'>.</span><span class='hs-varid'>configure</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>hcPath</span> <span class='hs-conid'>Nothing</span> <span class='hs-varid'>ghcConf</span> <a name="line-791"></a> <span class='hs-conid'>Hugs</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Hugs</span><span class='hs-varop'>.</span><span class='hs-varid'>configure</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>hcPath</span> <span class='hs-varid'>hcPkg</span> <span class='hs-varid'>conf</span> <a name="line-792"></a> <span class='hs-conid'>NHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>NHC</span><span class='hs-varop'>.</span><span class='hs-varid'>configure</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>hcPath</span> <span class='hs-varid'>hcPkg</span> <span class='hs-varid'>conf</span> <a name="line-793"></a> <span class='hs-conid'>UHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>UHC</span><span class='hs-varop'>.</span><span class='hs-varid'>configure</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>hcPath</span> <span class='hs-varid'>hcPkg</span> <span class='hs-varid'>conf</span> <a name="line-794"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>die</span> <span class='hs-str'>"Unknown compiler"</span> <a name="line-795"></a> <a name="line-796"></a> <a name="line-797"></a><a name="checkForeignDeps"></a><span class='hs-comment'>-- Try to build a test C program which includes every header and links every</span> <a name="line-798"></a><span class='hs-comment'>-- lib. If that fails, try to narrow it down by preprocessing (only) and linking</span> <a name="line-799"></a><span class='hs-comment'>-- with individual headers and libs. If none is the obvious culprit then give a</span> <a name="line-800"></a><span class='hs-comment'>-- generic error message.</span> <a name="line-801"></a><span class='hs-comment'>-- TODO: produce a log file from the compiler errors, if any.</span> <a name="line-802"></a><span class='hs-definition'>checkForeignDeps</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageDescription</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>LocalBuildInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Verbosity</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-803"></a><span class='hs-definition'>checkForeignDeps</span> <span class='hs-varid'>pkg</span> <span class='hs-varid'>lbi</span> <span class='hs-varid'>verbosity</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-804"></a> <span class='hs-varid'>ifBuildsWith</span> <span class='hs-varid'>allHeaders</span> <span class='hs-layout'>(</span><span class='hs-varid'>commonCcArgs</span> <span class='hs-varop'>++</span> <span class='hs-varid'>makeLdArgs</span> <span class='hs-varid'>allLibs</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- I'm feeling lucky</span> <a name="line-805"></a> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-806"></a> <span class='hs-layout'>(</span><span class='hs-keyword'>do</span> <span class='hs-varid'>missingLibs</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>findMissingLibs</span> <a name="line-807"></a> <span class='hs-varid'>missingHdr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>findOffendingHdr</span> <a name="line-808"></a> <span class='hs-varid'>explainErrors</span> <span class='hs-varid'>missingHdr</span> <span class='hs-varid'>missingLibs</span><span class='hs-layout'>)</span> <a name="line-809"></a> <span class='hs-keyword'>where</span> <a name="line-810"></a> <span class='hs-varid'>allHeaders</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>includes</span> <a name="line-811"></a> <span class='hs-varid'>allLibs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>extraLibs</span> <a name="line-812"></a> <a name="line-813"></a> <span class='hs-varid'>ifBuildsWith</span> <span class='hs-varid'>headers</span> <span class='hs-varid'>args</span> <span class='hs-varid'>success</span> <span class='hs-varid'>failure</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-814"></a> <span class='hs-varid'>ok</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>builds</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeProgram</span> <span class='hs-varid'>headers</span><span class='hs-layout'>)</span> <span class='hs-varid'>args</span> <a name="line-815"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>ok</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>success</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>failure</span> <a name="line-816"></a> <a name="line-817"></a> <span class='hs-varid'>findOffendingHdr</span> <span class='hs-keyglyph'>=</span> <a name="line-818"></a> <span class='hs-varid'>ifBuildsWith</span> <span class='hs-varid'>allHeaders</span> <span class='hs-varid'>ccArgs</span> <a name="line-819"></a> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span> <a name="line-820"></a> <span class='hs-layout'>(</span><span class='hs-varid'>go</span> <span class='hs-varop'>.</span> <span class='hs-varid'>tail</span> <span class='hs-varop'>.</span> <span class='hs-varid'>inits</span> <span class='hs-varop'>$</span> <span class='hs-varid'>allHeaders</span><span class='hs-layout'>)</span> <a name="line-821"></a> <span class='hs-keyword'>where</span> <a name="line-822"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <span class='hs-comment'>-- cannot happen</span> <a name="line-823"></a> <span class='hs-varid'>go</span> <span class='hs-layout'>(</span><span class='hs-varid'>hdrs</span><span class='hs-conop'>:</span><span class='hs-varid'>hdrsInits</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-824"></a> <span class='hs-comment'>-- Try just preprocessing first</span> <a name="line-825"></a> <span class='hs-varid'>ifBuildsWith</span> <span class='hs-varid'>hdrs</span> <span class='hs-varid'>cppArgs</span> <a name="line-826"></a> <span class='hs-comment'>-- If that works, try compiling too</span> <a name="line-827"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ifBuildsWith</span> <span class='hs-varid'>hdrs</span> <span class='hs-varid'>ccArgs</span> <a name="line-828"></a> <span class='hs-layout'>(</span><span class='hs-varid'>go</span> <span class='hs-varid'>hdrsInits</span><span class='hs-layout'>)</span> <a name="line-829"></a> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Right</span> <span class='hs-varop'>.</span> <span class='hs-varid'>last</span> <span class='hs-varop'>$</span> <span class='hs-varid'>hdrs</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-830"></a> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Left</span> <span class='hs-varop'>.</span> <span class='hs-varid'>last</span> <span class='hs-varop'>$</span> <span class='hs-varid'>hdrs</span><span class='hs-layout'>)</span> <a name="line-831"></a> <a name="line-832"></a> <span class='hs-varid'>cppArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"-E"</span><span class='hs-conop'>:</span><span class='hs-varid'>commonCppArgs</span> <span class='hs-comment'>-- preprocess only</span> <a name="line-833"></a> <span class='hs-varid'>ccArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"-c"</span><span class='hs-conop'>:</span><span class='hs-varid'>commonCcArgs</span> <span class='hs-comment'>-- don't try to link</span> <a name="line-834"></a> <a name="line-835"></a> <span class='hs-varid'>findMissingLibs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ifBuildsWith</span> <span class='hs-conid'>[]</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeLdArgs</span> <span class='hs-varid'>allLibs</span><span class='hs-layout'>)</span> <a name="line-836"></a> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span> <a name="line-837"></a> <span class='hs-layout'>(</span><span class='hs-varid'>filterM</span> <span class='hs-layout'>(</span><span class='hs-varid'>fmap</span> <span class='hs-varid'>not</span> <span class='hs-varop'>.</span> <span class='hs-varid'>libExists</span><span class='hs-layout'>)</span> <span class='hs-varid'>allLibs</span><span class='hs-layout'>)</span> <a name="line-838"></a> <a name="line-839"></a> <span class='hs-varid'>libExists</span> <span class='hs-varid'>lib</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>builds</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeProgram</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeLdArgs</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>lib</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <a name="line-840"></a> <a name="line-841"></a> <span class='hs-varid'>commonCppArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hcDefines</span> <span class='hs-layout'>(</span><span class='hs-varid'>compiler</span> <span class='hs-varid'>lbi</span><span class='hs-layout'>)</span> <a name="line-842"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"-I"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>autogenModulesDir</span> <span class='hs-varid'>lbi</span> <span class='hs-keyglyph'>]</span> <a name="line-843"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"-I"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>includeDirs</span> <span class='hs-keyglyph'>]</span> <a name="line-844"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"-I."</span><span class='hs-keyglyph'>]</span> <a name="line-845"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>cppOptions</span> <a name="line-846"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>ccOptions</span> <a name="line-847"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"-I"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>dir</span> <a name="line-848"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deps</span> <a name="line-849"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>includeDirs</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'>]</span> <a name="line-850"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>opt</span> <a name="line-851"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deps</span> <a name="line-852"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>opt</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>ccOptions</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'>]</span> <a name="line-853"></a> <a name="line-854"></a> <span class='hs-varid'>commonCcArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>commonCppArgs</span> <a name="line-855"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>ccOptions</span> <a name="line-856"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>opt</span> <a name="line-857"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deps</span> <a name="line-858"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>opt</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>ccOptions</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'>]</span> <a name="line-859"></a> <a name="line-860"></a> <span class='hs-varid'>commonLdArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"-L"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>extraLibDirs</span> <span class='hs-keyglyph'>]</span> <a name="line-861"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>collectField</span> <span class='hs-conid'>PD</span><span class='hs-varop'>.</span><span class='hs-varid'>ldOptions</span> <a name="line-862"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"-L"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>dir</span> <a name="line-863"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deps</span> <a name="line-864"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>Installed</span><span class='hs-varop'>.</span><span class='hs-varid'>libraryDirs</span> <span class='hs-varid'>dep</span> <span class='hs-keyglyph'>]</span> <a name="line-865"></a> <span class='hs-comment'>--TODO: do we also need dependent packages' ld options?</span> <a name="line-866"></a> <span class='hs-varid'>makeLdArgs</span> <span class='hs-varid'>libs</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"-l"</span><span class='hs-varop'>++</span><span class='hs-varid'>lib</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>lib</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>libs</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'>++</span> <span class='hs-varid'>commonLdArgs</span> <a name="line-867"></a> <a name="line-868"></a> <span class='hs-varid'>makeProgram</span> <span class='hs-varid'>hdrs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unlines</span> <span class='hs-varop'>$</span> <a name="line-869"></a> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"#include \""</span> <span class='hs-varop'>++</span> <span class='hs-varid'>hdr</span> <span class='hs-varop'>++</span> <span class='hs-str'>"\""</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>hdr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>hdrs</span> <span class='hs-keyglyph'>]</span> <span class='hs-varop'>++</span> <a name="line-870"></a> <span class='hs-keyglyph'>[</span><span class='hs-str'>"int main(int argc, char** argv) { return 0; }"</span><span class='hs-keyglyph'>]</span> <a name="line-871"></a> <a name="line-872"></a> <span class='hs-varid'>collectField</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>concatMap</span> <span class='hs-varid'>f</span> <span class='hs-varid'>allBi</span> <a name="line-873"></a> <span class='hs-varid'>allBi</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>allBuildInfo</span> <span class='hs-varid'>pkg</span> <a name="line-874"></a> <span class='hs-varid'>deps</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PackageIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>topologicalOrder</span> <span class='hs-layout'>(</span><span class='hs-varid'>installedPkgs</span> <span class='hs-varid'>lbi</span><span class='hs-layout'>)</span> <a name="line-875"></a> <a name="line-876"></a> <span class='hs-varid'>builds</span> <span class='hs-varid'>program</span> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-877"></a> <span class='hs-varid'>tempDir</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getTemporaryDirectory</span> <a name="line-878"></a> <span class='hs-varid'>withTempFile</span> <span class='hs-varid'>tempDir</span> <span class='hs-str'>".c"</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>cName</span> <span class='hs-varid'>cHnd</span> <span class='hs-keyglyph'>-></span> <a name="line-879"></a> <span class='hs-varid'>withTempFile</span> <span class='hs-varid'>tempDir</span> <span class='hs-str'>""</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>oNname</span> <span class='hs-varid'>oHnd</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <a name="line-880"></a> <span class='hs-varid'>hPutStrLn</span> <span class='hs-varid'>cHnd</span> <span class='hs-varid'>program</span> <a name="line-881"></a> <span class='hs-varid'>hClose</span> <span class='hs-varid'>cHnd</span> <a name="line-882"></a> <span class='hs-varid'>hClose</span> <span class='hs-varid'>oHnd</span> <a name="line-883"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>rawSystemProgramStdoutConf</span> <span class='hs-varid'>verbosity</span> <a name="line-884"></a> <span class='hs-varid'>gccProgram</span> <span class='hs-layout'>(</span><span class='hs-varid'>withPrograms</span> <span class='hs-varid'>lbi</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>cName</span><span class='hs-conop'>:</span><span class='hs-str'>"-o"</span><span class='hs-conop'>:</span><span class='hs-varid'>oNname</span><span class='hs-conop'>:</span><span class='hs-varid'>args</span><span class='hs-layout'>)</span> <a name="line-885"></a> <span class='hs-varid'>return</span> <span class='hs-conid'>True</span> <a name="line-886"></a> <span class='hs-varop'>`catchIO`</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <a name="line-887"></a> <span class='hs-varop'>`catchExit`</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <a name="line-888"></a> <a name="line-889"></a> <span class='hs-varid'>explainErrors</span> <span class='hs-conid'>Nothing</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-comment'>-- should be impossible!</span> <a name="line-890"></a> <span class='hs-varid'>explainErrors</span> <span class='hs-varid'>hdr</span> <span class='hs-varid'>libs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-varid'>unlines</span> <span class='hs-varop'>$</span> <a name="line-891"></a> <span class='hs-keyglyph'>[</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>plural</span> <a name="line-892"></a> <span class='hs-keyword'>then</span> <span class='hs-str'>"Missing dependencies on foreign libraries:"</span> <a name="line-893"></a> <span class='hs-keyword'>else</span> <span class='hs-str'>"Missing dependency on a foreign library:"</span> <a name="line-894"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>missing</span> <span class='hs-keyglyph'>]</span> <a name="line-895"></a> <span class='hs-varop'>++</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>hdr</span> <span class='hs-keyword'>of</span> <a name="line-896"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"* Missing (or bad) header file: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>h</span> <span class='hs-keyglyph'>]</span> <a name="line-897"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>[]</span> <a name="line-898"></a> <span class='hs-varop'>++</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>libs</span> <span class='hs-keyword'>of</span> <a name="line-899"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>[]</span> <a name="line-900"></a> <span class='hs-keyglyph'>[</span><span class='hs-varid'>lib</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"* Missing C library: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>lib</span><span class='hs-keyglyph'>]</span> <a name="line-901"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"* Missing C libraries: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>intercalate</span> <span class='hs-str'>", "</span> <span class='hs-varid'>libs</span><span class='hs-keyglyph'>]</span> <a name="line-902"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span><span class='hs-keyword'>if</span> <span class='hs-varid'>plural</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>messagePlural</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>messageSingular</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>missing</span><span class='hs-keyglyph'>]</span> <a name="line-903"></a> <span class='hs-varop'>++</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>hdr</span> <span class='hs-keyword'>of</span> <a name="line-904"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>headerCppMessage</span> <span class='hs-keyglyph'>]</span> <a name="line-905"></a> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-conid'>Right</span> <span class='hs-varid'>h</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span> <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>missing</span> <span class='hs-keyword'>then</span> <span class='hs-str'>"* "</span> <span class='hs-keyword'>else</span> <span class='hs-str'>""</span><span class='hs-layout'>)</span> <a name="line-906"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"Bad header file: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>h</span> <a name="line-907"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>headerCcMessage</span> <span class='hs-keyglyph'>]</span> <a name="line-908"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>[]</span> <a name="line-909"></a> <a name="line-910"></a> <span class='hs-keyword'>where</span> <a name="line-911"></a> <span class='hs-varid'>plural</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>length</span> <span class='hs-varid'>libs</span> <span class='hs-varop'>>=</span> <span class='hs-num'>2</span> <a name="line-912"></a> <span class='hs-comment'>-- Is there something missing? (as opposed to broken)</span> <a name="line-913"></a> <span class='hs-varid'>missing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>libs</span><span class='hs-layout'>)</span> <a name="line-914"></a> <span class='hs-varop'>||</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>hdr</span> <span class='hs-keyword'>of</span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>True</span><span class='hs-layout'>;</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>False</span> <a name="line-915"></a> <a name="line-916"></a> <span class='hs-varid'>messageSingular</span> <span class='hs-keyglyph'>=</span> <a name="line-917"></a> <span class='hs-str'>"This problem can usually be solved by installing the system "</span> <a name="line-918"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"package that provides this library (you may need the "</span> <a name="line-919"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"\"-dev\" version). If the library is already installed "</span> <a name="line-920"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"but in a non-standard location then you can use the flags "</span> <a name="line-921"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"--extra-include-dirs= and --extra-lib-dirs= to specify "</span> <a name="line-922"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"where it is."</span> <a name="line-923"></a> <span class='hs-varid'>messagePlural</span> <span class='hs-keyglyph'>=</span> <a name="line-924"></a> <span class='hs-str'>"This problem can usually be solved by installing the system "</span> <a name="line-925"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"packages that provide these libraries (you may need the "</span> <a name="line-926"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"\"-dev\" versions). If the libraries are already installed "</span> <a name="line-927"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"but in a non-standard location then you can use the flags "</span> <a name="line-928"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"--extra-include-dirs= and --extra-lib-dirs= to specify "</span> <a name="line-929"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"where they are."</span> <a name="line-930"></a> <span class='hs-varid'>headerCppMessage</span> <span class='hs-keyglyph'>=</span> <a name="line-931"></a> <span class='hs-str'>"If the header file does exist, it may contain errors that "</span> <a name="line-932"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"are caught by the C compiler at the preprocessing stage. "</span> <a name="line-933"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"In this case you can re-run configure with the verbosity "</span> <a name="line-934"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"flag -v3 to see the error messages."</span> <a name="line-935"></a> <span class='hs-varid'>headerCcMessage</span> <span class='hs-keyglyph'>=</span> <a name="line-936"></a> <span class='hs-str'>"The header file contains a compile error. "</span> <a name="line-937"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"You can re-run configure with the verbosity flag "</span> <a name="line-938"></a> <span class='hs-varop'>++</span> <span class='hs-str'>"-v3 to see the error messages from the C compiler."</span> <a name="line-939"></a> <a name="line-940"></a> <span class='hs-comment'>--FIXME: share this with the PreProcessor module</span> <a name="line-941"></a> <span class='hs-varid'>hcDefines</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Compiler</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <a name="line-942"></a> <span class='hs-varid'>hcDefines</span> <span class='hs-varid'>comp</span> <span class='hs-keyglyph'>=</span> <a name="line-943"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>compilerFlavor</span> <span class='hs-varid'>comp</span> <span class='hs-keyword'>of</span> <a name="line-944"></a> <span class='hs-conid'>GHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"-D__GLASGOW_HASKELL__="</span> <span class='hs-varop'>++</span> <span class='hs-varid'>versionInt</span> <span class='hs-varid'>version</span><span class='hs-keyglyph'>]</span> <a name="line-945"></a> <span class='hs-conid'>JHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"-D__JHC__="</span> <span class='hs-varop'>++</span> <span class='hs-varid'>versionInt</span> <span class='hs-varid'>version</span><span class='hs-keyglyph'>]</span> <a name="line-946"></a> <span class='hs-conid'>NHC</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"-D__NHC__="</span> <span class='hs-varop'>++</span> <span class='hs-varid'>versionInt</span> <span class='hs-varid'>version</span><span class='hs-keyglyph'>]</span> <a name="line-947"></a> <span class='hs-conid'>Hugs</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"-D__HUGS__"</span><span class='hs-keyglyph'>]</span> <a name="line-948"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>[]</span> <a name="line-949"></a> <span class='hs-keyword'>where</span> <a name="line-950"></a> <span class='hs-varid'>version</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compilerVersion</span> <span class='hs-varid'>comp</span> <a name="line-951"></a> <span class='hs-comment'>-- TODO: move this into the compiler abstraction</span> <a name="line-952"></a> <span class='hs-comment'>-- FIXME: this forces GHC's crazy 4.8.2 -> 408 convention on all</span> <a name="line-953"></a> <span class='hs-comment'>-- the other compilers. Check if that's really what they want.</span> <a name="line-954"></a> <span class='hs-varid'>versionInt</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Version</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <a name="line-955"></a> <span class='hs-varid'>versionInt</span> <span class='hs-layout'>(</span><span class='hs-conid'>Version</span> <span class='hs-layout'>{</span> <span class='hs-varid'>versionBranch</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"1"</span> <a name="line-956"></a> <span class='hs-varid'>versionInt</span> <span class='hs-layout'>(</span><span class='hs-conid'>Version</span> <span class='hs-layout'>{</span> <span class='hs-varid'>versionBranch</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>n</span><span class='hs-keyglyph'>]</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>show</span> <span class='hs-varid'>n</span> <a name="line-957"></a> <span class='hs-varid'>versionInt</span> <span class='hs-layout'>(</span><span class='hs-conid'>Version</span> <span class='hs-layout'>{</span> <span class='hs-varid'>versionBranch</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>n1</span><span class='hs-conop'>:</span><span class='hs-varid'>n2</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span> <a name="line-958"></a> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-- 6.8.x -> 608</span> <a name="line-959"></a> <span class='hs-comment'>-- 6.10.x -> 610</span> <a name="line-960"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>s1</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>show</span> <span class='hs-varid'>n1</span> <a name="line-961"></a> <span class='hs-varid'>s2</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>show</span> <span class='hs-varid'>n2</span> <a name="line-962"></a> <span class='hs-varid'>middle</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>s2</span> <span class='hs-keyword'>of</span> <a name="line-963"></a> <span class='hs-keyword'>_</span> <span class='hs-conop'>:</span> <span class='hs-keyword'>_</span> <span class='hs-conop'>:</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>""</span> <a name="line-964"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>"0"</span> <a name="line-965"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>s1</span> <span class='hs-varop'>++</span> <span class='hs-varid'>middle</span> <span class='hs-varop'>++</span> <span class='hs-varid'>s2</span> <a name="line-966"></a> <a name="line-967"></a><a name="checkPackageProblems"></a><span class='hs-comment'>-- | Output package check warnings and errors. Exit if any errors.</span> <a name="line-968"></a><span class='hs-definition'>checkPackageProblems</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <a name="line-969"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GenericPackageDescription</span> <a name="line-970"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <a name="line-971"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-972"></a><span class='hs-definition'>checkPackageProblems</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>gpkg</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-973"></a> <span class='hs-varid'>ioChecks</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>checkPackageFiles</span> <span class='hs-varid'>pkg</span> <span class='hs-str'>"."</span> <a name="line-974"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pureChecks</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>checkPackage</span> <span class='hs-varid'>gpkg</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span> <a name="line-975"></a> <span class='hs-varid'>errors</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>e</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PackageBuildImpossible</span> <span class='hs-varid'>e</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pureChecks</span> <span class='hs-varop'>++</span> <span class='hs-varid'>ioChecks</span> <span class='hs-keyglyph'>]</span> <a name="line-976"></a> <span class='hs-varid'>warnings</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PackageBuildWarning</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pureChecks</span> <span class='hs-varop'>++</span> <span class='hs-varid'>ioChecks</span> <span class='hs-keyglyph'>]</span> <a name="line-977"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>null</span> <span class='hs-varid'>errors</span> <a name="line-978"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-varid'>warn</span> <span class='hs-varid'>verbosity</span><span class='hs-layout'>)</span> <span class='hs-varid'>warnings</span> <a name="line-979"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-varid'>hPutStrLn</span> <span class='hs-varid'>stderr</span> <span class='hs-varop'>.</span> <span class='hs-layout'>(</span><span class='hs-str'>"Error: "</span> <span class='hs-varop'>++</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>errors</span> <a name="line-980"></a> <span class='hs-varid'>exitWith</span> <span class='hs-layout'>(</span><span class='hs-conid'>ExitFailure</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span> </pre></body> </html>