<?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/SrcDist.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.SrcDist</span>
<a name="line-4"></a><span class='hs-comment'>-- Copyright : Simon Marlow 2004</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 handles the @sdist@ command. The module exports an 'sdist' action but</span>
<a name="line-10"></a><span class='hs-comment'>-- also some of the phases that make it up so that other tools can use just the</span>
<a name="line-11"></a><span class='hs-comment'>-- bits they need. In particular the preparation of the tree of files to go</span>
<a name="line-12"></a><span class='hs-comment'>-- into the source tarball is separated from actually building the source</span>
<a name="line-13"></a><span class='hs-comment'>-- tarball.</span>
<a name="line-14"></a><span class='hs-comment'>--</span>
<a name="line-15"></a><span class='hs-comment'>-- The 'createArchive' action uses the external @tar@ program and assumes that</span>
<a name="line-16"></a><span class='hs-comment'>-- it accepts the @-z@ flag. Neither of these assumptions are valid on Windows.</span>
<a name="line-17"></a><span class='hs-comment'>-- The 'sdist' action now also does some distribution QA checks.</span>
<a name="line-18"></a>
<a name="line-19"></a><span class='hs-comment'>{- Copyright (c) 2003-2004, Simon Marlow
<a name="line-20"></a>All rights reserved.
<a name="line-21"></a>
<a name="line-22"></a>Redistribution and use in source and binary forms, with or without
<a name="line-23"></a>modification, are permitted provided that the following conditions are
<a name="line-24"></a>met:
<a name="line-25"></a>
<a name="line-26"></a> * Redistributions of source code must retain the above copyright
<a name="line-27"></a> notice, this list of conditions and the following disclaimer.
<a name="line-28"></a>
<a name="line-29"></a> * Redistributions in binary form must reproduce the above
<a name="line-30"></a> copyright notice, this list of conditions and the following
<a name="line-31"></a> disclaimer in the documentation and/or other materials provided
<a name="line-32"></a> with the distribution.
<a name="line-33"></a>
<a name="line-34"></a> * Neither the name of Isaac Jones nor the names of other
<a name="line-35"></a> contributors may be used to endorse or promote products derived
<a name="line-36"></a> from this software without specific prior written permission.
<a name="line-37"></a>
<a name="line-38"></a>THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
<a name="line-39"></a>"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
<a name="line-40"></a>LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
<a name="line-41"></a>A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
<a name="line-42"></a>OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
<a name="line-43"></a>SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
<a name="line-44"></a>LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
<a name="line-45"></a>DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
<a name="line-46"></a>THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
<a name="line-47"></a>(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
<a name="line-48"></a>OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -}</span>
<a name="line-49"></a>
<a name="line-50"></a><span class='hs-comment'>-- NOTE: FIX: we don't have a great way of testing this module, since</span>
<a name="line-51"></a><span class='hs-comment'>-- we can't easily look inside a tarball once its created.</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'>SrcDist</span> <span class='hs-layout'>(</span>
<a name="line-54"></a> <span class='hs-comment'>-- * The top level action</span>
<a name="line-55"></a> <span class='hs-varid'>sdist</span><span class='hs-layout'>,</span>
<a name="line-56"></a>
<a name="line-57"></a> <span class='hs-comment'>-- ** Parts of 'sdist'</span>
<a name="line-58"></a> <span class='hs-varid'>printPackageProblems</span><span class='hs-layout'>,</span>
<a name="line-59"></a> <span class='hs-varid'>prepareTree</span><span class='hs-layout'>,</span>
<a name="line-60"></a> <span class='hs-varid'>createArchive</span><span class='hs-layout'>,</span>
<a name="line-61"></a>
<a name="line-62"></a> <span class='hs-comment'>-- ** Snaphots</span>
<a name="line-63"></a> <span class='hs-varid'>prepareSnapshotTree</span><span class='hs-layout'>,</span>
<a name="line-64"></a> <span class='hs-varid'>snapshotPackage</span><span class='hs-layout'>,</span>
<a name="line-65"></a> <span class='hs-varid'>snapshotVersion</span><span class='hs-layout'>,</span>
<a name="line-66"></a> <span class='hs-varid'>dateToSnapshotNumber</span><span class='hs-layout'>,</span>
<a name="line-67"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-68"></a>
<a name="line-69"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>PackageDescription</span>
<a name="line-70"></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-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-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'>Library</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</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'>PackageDescription</span><span class='hs-varop'>.</span><span class='hs-conid'>Check</span>
<a name="line-72"></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'>checkConfiguredPackage</span><span class='hs-layout'>,</span> <span class='hs-varid'>checkPackageFiles</span> <span class='hs-layout'>)</span>
<a name="line-73"></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-74"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>PackageIdentifier</span><span class='hs-layout'>(</span><span class='hs-varid'>pkgVersion</span><span class='hs-layout'>)</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><span class='hs-layout'>,</span> <span class='hs-varid'>packageVersion</span> <span class='hs-layout'>)</span>
<a name="line-75"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>ModuleName</span> <span class='hs-layout'>(</span><span class='hs-conid'>ModuleName</span><span class='hs-layout'>)</span>
<a name="line-76"></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'>ModuleName</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>ModuleName</span>
<a name="line-77"></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-78"></a> <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-layout'>)</span> <span class='hs-layout'>)</span>
<a name="line-79"></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-80"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>createDirectoryIfMissingVerbose</span><span class='hs-layout'>,</span> <span class='hs-varid'>withUTF8FileContents</span><span class='hs-layout'>,</span> <span class='hs-varid'>writeUTF8File</span>
<a name="line-81"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>installOrdinaryFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>installOrdinaryFiles</span>
<a name="line-82"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>findFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>findFileWithExtension</span><span class='hs-layout'>,</span> <span class='hs-varid'>matchFileGlob</span>
<a name="line-83"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>withTempDirectory</span><span class='hs-layout'>,</span> <span class='hs-varid'>defaultPackageDesc</span>
<a name="line-84"></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'>notice</span><span class='hs-layout'>,</span> <span class='hs-varid'>setupMessage</span> <span class='hs-layout'>)</span>
<a name="line-85"></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> <span class='hs-layout'>(</span><span class='hs-conid'>SDistFlags</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>
<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'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>PreProcess</span> <span class='hs-layout'>(</span><span class='hs-conid'>PPSuffixHandler</span><span class='hs-layout'>,</span> <span class='hs-varid'>ppSuffixes</span><span class='hs-layout'>,</span> <span class='hs-varid'>preprocessSources</span><span class='hs-layout'>)</span>
<a name="line-87"></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> <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>
<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'>Simple</span><span class='hs-varop'>.</span><span class='hs-conid'>BuildPaths</span> <span class='hs-layout'>(</span> <span class='hs-varid'>autogenModuleName</span> <span class='hs-layout'>)</span>
<a name="line-89"></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> <span class='hs-layout'>(</span> <span class='hs-varid'>defaultProgramConfiguration</span><span class='hs-layout'>,</span> <span class='hs-varid'>requireProgram</span><span class='hs-layout'>,</span>
<a name="line-90"></a> <span class='hs-varid'>rawSystemProgram</span><span class='hs-layout'>,</span> <span class='hs-varid'>tarProgram</span> <span class='hs-layout'>)</span>
<a name="line-91"></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-92"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>display</span> <span class='hs-layout'>)</span>
<a name="line-93"></a>
<a name="line-94"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span><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>
<a name="line-95"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Char</span> <span class='hs-layout'>(</span><span class='hs-varid'>toLower</span><span class='hs-layout'>)</span>
<a name="line-96"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</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>
<a name="line-97"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span> <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-98"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Time</span> <span class='hs-layout'>(</span><span class='hs-varid'>getClockTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>toCalendarTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>CalendarTime</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-99"></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-100"></a> <span class='hs-layout'>(</span> <span class='hs-varid'>doesFileExist</span><span class='hs-layout'>,</span> <span class='hs-conid'>Permissions</span><span class='hs-layout'>(</span><span class='hs-varid'>executable</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>getPermissions</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'>Compat</span><span class='hs-varop'>.</span><span class='hs-conid'>CopyFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>setFileExecutable</span><span class='hs-layout'>)</span>
<a name="line-102"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Distribution</span><span class='hs-varop'>.</span><span class='hs-conid'>Verbosity</span> <span class='hs-layout'>(</span><span class='hs-conid'>Verbosity</span><span class='hs-layout'>)</span>
<a name="line-103"></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-104"></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-layout'>(</span><span class='hs-varop'><.></span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>takeDirectory</span><span class='hs-layout'>,</span> <span class='hs-varid'>dropExtension</span><span class='hs-layout'>,</span> <span class='hs-varid'>isAbsolute</span> <span class='hs-layout'>)</span>
<a name="line-105"></a>
<a name="line-106"></a><a name="sdist"></a><span class='hs-comment'>-- |Create a source distribution.</span>
<a name="line-107"></a><span class='hs-definition'>sdist</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageDescription</span> <span class='hs-comment'>-- ^information from the tarball</span>
<a name="line-108"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>LocalBuildInfo</span> <span class='hs-comment'>-- ^Information from configure</span>
<a name="line-109"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SDistFlags</span> <span class='hs-comment'>-- ^verbosity & snapshot</span>
<a name="line-110"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^build prefix (temp dir)</span>
<a name="line-111"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>PPSuffixHandler</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ extra preprocessors (includes suffixes)</span>
<a name="line-112"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-113"></a><span class='hs-definition'>sdist</span> <span class='hs-varid'>pkg</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>flags</span> <span class='hs-varid'>mkTmpDir</span> <span class='hs-varid'>pps</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-114"></a> <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-varop'>$</span> <span class='hs-varid'>sDistDistPref</span> <span class='hs-varid'>flags</span>
<a name="line-115"></a> <span class='hs-varid'>targetPref</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>distPref</span>
<a name="line-116"></a> <span class='hs-varid'>tmpTargetDir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mkTmpDir</span> <span class='hs-varid'>distPref</span>
<a name="line-117"></a>
<a name="line-118"></a> <span class='hs-comment'>-- do some QA</span>
<a name="line-119"></a> <span class='hs-varid'>printPackageProblems</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg</span>
<a name="line-120"></a>
<a name="line-121"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>isNothing</span> <span class='hs-varid'>mb_lbi</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-122"></a> <span class='hs-varid'>warn</span> <span class='hs-varid'>verbosity</span> <span class='hs-str'>"Cannot run preprocessors. Run 'configure' command first."</span>
<a name="line-123"></a>
<a name="line-124"></a> <span class='hs-varid'>createDirectoryIfMissingVerbose</span> <span class='hs-varid'>verbosity</span> <span class='hs-conid'>True</span> <span class='hs-varid'>tmpTargetDir</span>
<a name="line-125"></a> <span class='hs-varid'>withTempDirectory</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>tmpTargetDir</span> <span class='hs-str'>"sdist."</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>tmpDir</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-126"></a>
<a name="line-127"></a> <span class='hs-varid'>date</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>toCalendarTime</span> <span class='hs-varop'>=<<</span> <span class='hs-varid'>getClockTime</span>
<a name="line-128"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pkg'</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>snapshot</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>snapshotPackage</span> <span class='hs-varid'>date</span> <span class='hs-varid'>pkg</span>
<a name="line-129"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pkg</span>
<a name="line-130"></a> <span class='hs-varid'>setupMessage</span> <span class='hs-varid'>verbosity</span> <span class='hs-str'>"Building source dist for"</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-131"></a>
<a name="line-132"></a> <span class='hs-comment'>-- FIXME This looks a bit suspicious. Should createArchive be passed</span>
<a name="line-133"></a> <span class='hs-comment'>-- the result of prepareSnapshotTree/prepareTree?</span>
<a name="line-134"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>snapshot</span>
<a name="line-135"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>prepareSnapshotTree</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg'</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varid'>pps</span>
<a name="line-136"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>prepareTree</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg'</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varid'>pps</span>
<a name="line-137"></a> <span class='hs-varid'>targzFile</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>createArchive</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg'</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varid'>targetPref</span>
<a name="line-138"></a> <span class='hs-varid'>notice</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Source tarball created: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>targzFile</span>
<a name="line-139"></a>
<a name="line-140"></a> <span class='hs-keyword'>where</span>
<a name="line-141"></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'>sDistVerbosity</span> <span class='hs-varid'>flags</span><span class='hs-layout'>)</span>
<a name="line-142"></a> <span class='hs-varid'>snapshot</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromFlag</span> <span class='hs-layout'>(</span><span class='hs-varid'>sDistSnapshot</span> <span class='hs-varid'>flags</span><span class='hs-layout'>)</span>
<a name="line-143"></a>
<a name="line-144"></a><a name="prepareTree"></a><span class='hs-comment'>-- |Prepare a directory tree of source files.</span>
<a name="line-145"></a><span class='hs-definition'>prepareTree</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-comment'>-- ^verbosity</span>
<a name="line-146"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <span class='hs-comment'>-- ^info from the cabal file</span>
<a name="line-147"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>LocalBuildInfo</span>
<a name="line-148"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^dist dir</span>
<a name="line-149"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^source tree to populate</span>
<a name="line-150"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>PPSuffixHandler</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^extra preprocessors (includes suffixes)</span>
<a name="line-151"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^the name of the dir created and populated</span>
<a name="line-152"></a>
<a name="line-153"></a><span class='hs-definition'>prepareTree</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg_descr0</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varid'>pps</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-154"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>targetDir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varop'></></span> <span class='hs-varid'>tarBallName</span> <span class='hs-varid'>pkg_descr</span>
<a name="line-155"></a> <span class='hs-varid'>createDirectoryIfMissingVerbose</span> <span class='hs-varid'>verbosity</span> <span class='hs-conid'>True</span> <span class='hs-varid'>targetDir</span>
<a name="line-156"></a> <span class='hs-comment'>-- maybe move the library files into place</span>
<a name="line-157"></a> <span class='hs-varid'>withLib</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-conid'>Library</span> <span class='hs-layout'>{</span> <span class='hs-varid'>exposedModules</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>modules</span><span class='hs-layout'>,</span> <span class='hs-varid'>libBuildInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>libBi</span> <span class='hs-layout'>}</span> <span class='hs-keyglyph'>-></span>
<a name="line-158"></a> <span class='hs-varid'>prepareDir</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>targetDir</span> <span class='hs-varid'>pps</span> <span class='hs-varid'>modules</span> <span class='hs-varid'>libBi</span>
<a name="line-159"></a> <span class='hs-comment'>-- move the executables into place</span>
<a name="line-160"></a> <span class='hs-varid'>withExe</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-conid'>Executable</span> <span class='hs-layout'>{</span> <span class='hs-varid'>modulePath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mainPath</span><span class='hs-layout'>,</span> <span class='hs-varid'>buildInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>exeBi</span> <span class='hs-layout'>}</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-161"></a> <span class='hs-varid'>prepareDir</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>targetDir</span> <span class='hs-varid'>pps</span> <span class='hs-conid'>[]</span> <span class='hs-varid'>exeBi</span>
<a name="line-162"></a> <span class='hs-varid'>srcMainFile</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>do</span>
<a name="line-163"></a> <span class='hs-varid'>ppFile</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>findFileWithExtension</span> <span class='hs-layout'>(</span><span class='hs-varid'>ppSuffixes</span> <span class='hs-varid'>pps</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>hsSourceDirs</span> <span class='hs-varid'>exeBi</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>dropExtension</span> <span class='hs-varid'>mainPath</span><span class='hs-layout'>)</span>
<a name="line-164"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>ppFile</span> <span class='hs-keyword'>of</span>
<a name="line-165"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>findFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>hsSourceDirs</span> <span class='hs-varid'>exeBi</span><span class='hs-layout'>)</span> <span class='hs-varid'>mainPath</span>
<a name="line-166"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>pp</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-varid'>pp</span>
<a name="line-167"></a> <span class='hs-varid'>copyFileTo</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>targetDir</span> <span class='hs-varid'>srcMainFile</span>
<a name="line-168"></a> <span class='hs-varid'>flip</span> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-varid'>dataFiles</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span> <span class='hs-varid'>filename</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-169"></a> <span class='hs-varid'>files</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>matchFileGlob</span> <span class='hs-layout'>(</span><span class='hs-varid'>dataDir</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varop'></></span> <span class='hs-varid'>filename</span><span class='hs-layout'>)</span>
<a name="line-170"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>takeDirectory</span> <span class='hs-layout'>(</span><span class='hs-varid'>dataDir</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varop'></></span> <span class='hs-varid'>filename</span><span class='hs-layout'>)</span>
<a name="line-171"></a> <span class='hs-varid'>createDirectoryIfMissingVerbose</span> <span class='hs-varid'>verbosity</span> <span class='hs-conid'>True</span> <span class='hs-layout'>(</span><span class='hs-varid'>targetDir</span> <span class='hs-varop'></></span> <span class='hs-varid'>dir</span><span class='hs-layout'>)</span>
<a name="line-172"></a> <span class='hs-varid'>sequence_</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>installOrdinaryFile</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>file</span> <span class='hs-layout'>(</span><span class='hs-varid'>targetDir</span> <span class='hs-varop'></></span> <span class='hs-varid'>file</span><span class='hs-layout'>)</span>
<a name="line-173"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>file</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>files</span> <span class='hs-keyglyph'>]</span>
<a name="line-174"></a>
<a name="line-175"></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-layout'>(</span><span class='hs-varid'>licenseFile</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-176"></a> <span class='hs-varid'>copyFileTo</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>targetDir</span> <span class='hs-layout'>(</span><span class='hs-varid'>licenseFile</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span>
<a name="line-177"></a> <span class='hs-varid'>flip</span> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-varid'>extraSrcFiles</span> <span class='hs-varid'>pkg_descr</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span> <span class='hs-varid'>fpath</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-178"></a> <span class='hs-varid'>files</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>matchFileGlob</span> <span class='hs-varid'>fpath</span>
<a name="line-179"></a> <span class='hs-varid'>sequence_</span>
<a name="line-180"></a> <span class='hs-keyglyph'>[</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>copyFileTo</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>targetDir</span> <span class='hs-varid'>file</span>
<a name="line-181"></a> <span class='hs-comment'>-- preserve executable bit on extra-src-files like ./configure</span>
<a name="line-182"></a> <span class='hs-varid'>perms</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getPermissions</span> <span class='hs-varid'>file</span>
<a name="line-183"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>executable</span> <span class='hs-varid'>perms</span><span class='hs-layout'>)</span> <span class='hs-comment'>--only checks user x bit</span>
<a name="line-184"></a> <span class='hs-layout'>(</span><span class='hs-varid'>setFileExecutable</span> <span class='hs-layout'>(</span><span class='hs-varid'>targetDir</span> <span class='hs-varop'></></span> <span class='hs-varid'>file</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-185"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>file</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>files</span> <span class='hs-keyglyph'>]</span>
<a name="line-186"></a>
<a name="line-187"></a> <span class='hs-comment'>-- copy the install-include files</span>
<a name="line-188"></a> <span class='hs-varid'>withLib</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span> <span class='hs-varid'>l</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-189"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>lbi</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>libBuildInfo</span> <span class='hs-varid'>l</span>
<a name="line-190"></a> <span class='hs-varid'>relincdirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"."</span> <span class='hs-conop'>:</span> <span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span><span class='hs-varop'>.</span><span class='hs-varid'>isAbsolute</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>includeDirs</span> <span class='hs-varid'>lbi</span><span class='hs-layout'>)</span>
<a name="line-191"></a> <span class='hs-varid'>incs</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>mapM</span> <span class='hs-layout'>(</span><span class='hs-varid'>findInc</span> <span class='hs-varid'>relincdirs</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>installIncludes</span> <span class='hs-varid'>lbi</span><span class='hs-layout'>)</span>
<a name="line-192"></a> <span class='hs-varid'>flip</span> <span class='hs-varid'>mapM_</span> <span class='hs-varid'>incs</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-layout'>,</span><span class='hs-varid'>fpath</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-193"></a> <span class='hs-varid'>copyFileTo</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>targetDir</span> <span class='hs-varid'>fpath</span>
<a name="line-194"></a>
<a name="line-195"></a> <span class='hs-comment'>-- if the package was configured then we can run platform independent</span>
<a name="line-196"></a> <span class='hs-comment'>-- pre-processors and include those generated files</span>
<a name="line-197"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-keyword'>of</span>
<a name="line-198"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>lbi</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'>pps</span><span class='hs-layout'>)</span>
<a name="line-199"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>preprocessSources</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-layout'>(</span><span class='hs-varid'>lbi</span> <span class='hs-layout'>{</span> <span class='hs-varid'>buildDir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>targetDir</span> <span class='hs-varop'></></span> <span class='hs-varid'>buildDir</span> <span class='hs-varid'>lbi</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span>
<a name="line-200"></a> <span class='hs-conid'>True</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pps</span>
<a name="line-201"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-202"></a>
<a name="line-203"></a> <span class='hs-comment'>-- setup isn't listed in the description file.</span>
<a name="line-204"></a> <span class='hs-varid'>hsExists</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-str'>"Setup.hs"</span>
<a name="line-205"></a> <span class='hs-varid'>lhsExists</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-str'>"Setup.lhs"</span>
<a name="line-206"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>hsExists</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>copyFileTo</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>targetDir</span> <span class='hs-str'>"Setup.hs"</span>
<a name="line-207"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>lhsExists</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>copyFileTo</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>targetDir</span> <span class='hs-str'>"Setup.lhs"</span>
<a name="line-208"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>writeUTF8File</span> <span class='hs-layout'>(</span><span class='hs-varid'>targetDir</span> <span class='hs-varop'></></span> <span class='hs-str'>"Setup.hs"</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>unlines</span> <span class='hs-keyglyph'>[</span>
<a name="line-209"></a> <span class='hs-str'>"import Distribution.Simple"</span><span class='hs-layout'>,</span>
<a name="line-210"></a> <span class='hs-str'>"main = defaultMain"</span><span class='hs-keyglyph'>]</span>
<a name="line-211"></a> <span class='hs-comment'>-- the description file itself</span>
<a name="line-212"></a> <span class='hs-varid'>descFile</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>defaultPackageDesc</span> <span class='hs-varid'>verbosity</span>
<a name="line-213"></a> <span class='hs-varid'>installOrdinaryFile</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>descFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>targetDir</span> <span class='hs-varop'></></span> <span class='hs-varid'>descFile</span><span class='hs-layout'>)</span>
<a name="line-214"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>targetDir</span>
<a name="line-215"></a>
<a name="line-216"></a> <span class='hs-keyword'>where</span>
<a name="line-217"></a> <span class='hs-varid'>pkg_descr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mapAllBuildInfo</span> <span class='hs-varid'>filterAutogenModule</span> <span class='hs-varid'>pkg_descr0</span>
<a name="line-218"></a> <span class='hs-varid'>filterAutogenModule</span> <span class='hs-varid'>bi</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>bi</span> <span class='hs-layout'>{</span>
<a name="line-219"></a> <span class='hs-varid'>otherModules</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>/=</span><span class='hs-varid'>autogenModule</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>otherModules</span> <span class='hs-varid'>bi</span><span class='hs-layout'>)</span>
<a name="line-220"></a> <span class='hs-layout'>}</span>
<a name="line-221"></a> <span class='hs-varid'>autogenModule</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>autogenModuleName</span> <span class='hs-varid'>pkg_descr0</span>
<a name="line-222"></a>
<a name="line-223"></a> <span class='hs-varid'>findInc</span> <span class='hs-conid'>[]</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>die</span> <span class='hs-layout'>(</span><span class='hs-str'>"can't find include file "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span>
<a name="line-224"></a> <span class='hs-varid'>findInc</span> <span class='hs-layout'>(</span><span class='hs-varid'>d</span><span class='hs-conop'>:</span><span class='hs-varid'>ds</span><span class='hs-layout'>)</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-225"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>d</span> <span class='hs-varop'></></span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span>
<a name="line-226"></a> <span class='hs-varid'>b</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>path</span>
<a name="line-227"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>b</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>f</span><span class='hs-layout'>,</span><span class='hs-varid'>path</span><span class='hs-layout'>)</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>findInc</span> <span class='hs-varid'>ds</span> <span class='hs-varid'>f</span>
<a name="line-228"></a>
<a name="line-229"></a> <span class='hs-comment'>-- We have to deal with all libs and executables, so we have local</span>
<a name="line-230"></a> <span class='hs-comment'>-- versions of these functions that ignore the 'buildable' attribute:</span>
<a name="line-231"></a> <span class='hs-varid'>withLib</span> <span class='hs-varid'>action</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>maybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <span class='hs-varid'>action</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-232"></a> <span class='hs-varid'>withExe</span> <span class='hs-varid'>action</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mapM_</span> <span class='hs-varid'>action</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-233"></a>
<a name="line-234"></a><a name="prepareSnapshotTree"></a><span class='hs-comment'>-- | Prepare a directory tree of source files for a snapshot version.</span>
<a name="line-235"></a><span class='hs-comment'>-- It is expected that the appropriate snapshot version has already been set</span>
<a name="line-236"></a><span class='hs-comment'>-- in the package description, eg using 'snapshotPackage' or 'snapshotVersion'.</span>
<a name="line-237"></a><span class='hs-comment'>--</span>
<a name="line-238"></a><span class='hs-definition'>prepareSnapshotTree</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-comment'>-- ^verbosity</span>
<a name="line-239"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <span class='hs-comment'>-- ^info from the cabal file</span>
<a name="line-240"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>LocalBuildInfo</span>
<a name="line-241"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^dist dir</span>
<a name="line-242"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^source tree to populate</span>
<a name="line-243"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>PPSuffixHandler</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^extra preprocessors (includes suffixes)</span>
<a name="line-244"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^the resulting temp dir</span>
<a name="line-245"></a><span class='hs-definition'>prepareSnapshotTree</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varid'>pps</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-246"></a> <span class='hs-varid'>targetDir</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>prepareTree</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>distPref</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varid'>pps</span>
<a name="line-247"></a> <span class='hs-varid'>overwriteSnapshotPackageDesc</span> <span class='hs-layout'>(</span><span class='hs-varid'>packageVersion</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span> <span class='hs-varid'>targetDir</span>
<a name="line-248"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>targetDir</span>
<a name="line-249"></a>
<a name="line-250"></a> <span class='hs-keyword'>where</span>
<a name="line-251"></a> <span class='hs-varid'>overwriteSnapshotPackageDesc</span> <span class='hs-varid'>version</span> <span class='hs-varid'>targetDir</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-252"></a> <span class='hs-comment'>-- We could just writePackageDescription targetDescFile pkg_descr,</span>
<a name="line-253"></a> <span class='hs-comment'>-- but that would lose comments and formatting.</span>
<a name="line-254"></a> <span class='hs-varid'>descFile</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>defaultPackageDesc</span> <span class='hs-varid'>verbosity</span>
<a name="line-255"></a> <span class='hs-varid'>withUTF8FileContents</span> <span class='hs-varid'>descFile</span> <span class='hs-varop'>$</span>
<a name="line-256"></a> <span class='hs-varid'>writeUTF8File</span> <span class='hs-layout'>(</span><span class='hs-varid'>targetDir</span> <span class='hs-varop'></></span> <span class='hs-varid'>descFile</span><span class='hs-layout'>)</span>
<a name="line-257"></a> <span class='hs-varop'>.</span> <span class='hs-varid'>unlines</span> <span class='hs-varop'>.</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>replaceVersion</span> <span class='hs-varid'>version</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-varid'>lines</span>
<a name="line-258"></a>
<a name="line-259"></a> <span class='hs-varid'>replaceVersion</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Version</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-260"></a> <span class='hs-varid'>replaceVersion</span> <span class='hs-varid'>version</span> <span class='hs-varid'>line</span>
<a name="line-261"></a> <span class='hs-keyglyph'>|</span> <span class='hs-str'>"version:"</span> <span class='hs-varop'>`isPrefixOf`</span> <span class='hs-varid'>map</span> <span class='hs-varid'>toLower</span> <span class='hs-varid'>line</span>
<a name="line-262"></a> <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'>version</span>
<a name="line-263"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>line</span>
<a name="line-264"></a>
<a name="line-265"></a><a name="snapshotPackage"></a><span class='hs-comment'>-- | Modifies a 'PackageDescription' by appending a snapshot number</span>
<a name="line-266"></a><span class='hs-comment'>-- corresponding to the given date.</span>
<a name="line-267"></a><span class='hs-comment'>--</span>
<a name="line-268"></a><span class='hs-definition'>snapshotPackage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CalendarTime</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span>
<a name="line-269"></a><span class='hs-definition'>snapshotPackage</span> <span class='hs-varid'>date</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>=</span>
<a name="line-270"></a> <span class='hs-varid'>pkg</span> <span class='hs-layout'>{</span>
<a name="line-271"></a> <span class='hs-varid'>package</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pkgid</span> <span class='hs-layout'>{</span> <span class='hs-varid'>pkgVersion</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>snapshotVersion</span> <span class='hs-varid'>date</span> <span class='hs-layout'>(</span><span class='hs-varid'>pkgVersion</span> <span class='hs-varid'>pkgid</span><span class='hs-layout'>)</span> <span class='hs-layout'>}</span>
<a name="line-272"></a> <span class='hs-layout'>}</span>
<a name="line-273"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>pkgid</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>packageId</span> <span class='hs-varid'>pkg</span>
<a name="line-274"></a>
<a name="line-275"></a><a name="snapshotVersion"></a><span class='hs-comment'>-- | Modifies a 'Version' by appending a snapshot number corresponding</span>
<a name="line-276"></a><span class='hs-comment'>-- to the given date.</span>
<a name="line-277"></a><span class='hs-comment'>--</span>
<a name="line-278"></a><span class='hs-definition'>snapshotVersion</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CalendarTime</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Version</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Version</span>
<a name="line-279"></a><span class='hs-definition'>snapshotVersion</span> <span class='hs-varid'>date</span> <span class='hs-varid'>version</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>version</span> <span class='hs-layout'>{</span>
<a name="line-280"></a> <span class='hs-varid'>versionBranch</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>versionBranch</span> <span class='hs-varid'>version</span>
<a name="line-281"></a> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>dateToSnapshotNumber</span> <span class='hs-varid'>date</span><span class='hs-keyglyph'>]</span>
<a name="line-282"></a> <span class='hs-layout'>}</span>
<a name="line-283"></a>
<a name="line-284"></a><a name="dateToSnapshotNumber"></a><span class='hs-comment'>-- | Given a date produce a corresponding integer representation.</span>
<a name="line-285"></a><span class='hs-comment'>-- For example given a date @18/03/2008@ produce the number @20080318@.</span>
<a name="line-286"></a><span class='hs-comment'>--</span>
<a name="line-287"></a><span class='hs-definition'>dateToSnapshotNumber</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CalendarTime</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span>
<a name="line-288"></a><span class='hs-definition'>dateToSnapshotNumber</span> <span class='hs-varid'>date</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>year</span> <span class='hs-varop'>*</span> <span class='hs-num'>10000</span>
<a name="line-289"></a> <span class='hs-varop'>+</span> <span class='hs-varid'>month</span> <span class='hs-varop'>*</span> <span class='hs-num'>100</span>
<a name="line-290"></a> <span class='hs-varop'>+</span> <span class='hs-varid'>day</span>
<a name="line-291"></a> <span class='hs-keyword'>where</span>
<a name="line-292"></a> <span class='hs-varid'>year</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ctYear</span> <span class='hs-varid'>date</span>
<a name="line-293"></a> <span class='hs-varid'>month</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromEnum</span> <span class='hs-layout'>(</span><span class='hs-varid'>ctMonth</span> <span class='hs-varid'>date</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span>
<a name="line-294"></a> <span class='hs-varid'>day</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ctDay</span> <span class='hs-varid'>date</span>
<a name="line-295"></a>
<a name="line-296"></a><a name="createArchive"></a><span class='hs-comment'>-- |Create an archive from a tree of source files, and clean up the tree.</span>
<a name="line-297"></a><span class='hs-definition'>createArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-comment'>-- ^verbosity</span>
<a name="line-298"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <span class='hs-comment'>-- ^info from cabal file</span>
<a name="line-299"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>LocalBuildInfo</span> <span class='hs-comment'>-- ^info from configure</span>
<a name="line-300"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^source tree to archive</span>
<a name="line-301"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^name of archive to create</span>
<a name="line-302"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>FilePath</span>
<a name="line-303"></a>
<a name="line-304"></a><span class='hs-definition'>createArchive</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varid'>mb_lbi</span> <span class='hs-varid'>tmpDir</span> <span class='hs-varid'>targetPref</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-305"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>tarBallFilePath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>targetPref</span> <span class='hs-varop'></></span> <span class='hs-varid'>tarBallName</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-varop'><.></span> <span class='hs-str'>"tar.gz"</span>
<a name="line-306"></a>
<a name="line-307"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tarProg</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'>requireProgram</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>tarProgram</span>
<a name="line-308"></a> <span class='hs-layout'>(</span><span class='hs-varid'>maybe</span> <span class='hs-varid'>defaultProgramConfiguration</span> <span class='hs-varid'>withPrograms</span> <span class='hs-varid'>mb_lbi</span><span class='hs-layout'>)</span>
<a name="line-309"></a>
<a name="line-310"></a> <span class='hs-comment'>-- Hmm: I could well be skating on thinner ice here by using the -C option (=> GNU tar-specific?)</span>
<a name="line-311"></a> <span class='hs-comment'>-- [The prev. solution used pipes and sub-command sequences to set up the paths correctly,</span>
<a name="line-312"></a> <span class='hs-comment'>-- which is problematic in a Windows setting.]</span>
<a name="line-313"></a> <span class='hs-varid'>rawSystemProgram</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>tarProg</span>
<a name="line-314"></a> <span class='hs-keyglyph'>[</span><span class='hs-str'>"-C"</span><span class='hs-layout'>,</span> <span class='hs-varid'>tmpDir</span><span class='hs-layout'>,</span> <span class='hs-str'>"-czf"</span><span class='hs-layout'>,</span> <span class='hs-varid'>tarBallFilePath</span><span class='hs-layout'>,</span> <span class='hs-varid'>tarBallName</span> <span class='hs-varid'>pkg_descr</span><span class='hs-keyglyph'>]</span>
<a name="line-315"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>tarBallFilePath</span>
<a name="line-316"></a>
<a name="line-317"></a><a name="prepareDir"></a><span class='hs-comment'>-- |Move the sources into place based on buildInfo</span>
<a name="line-318"></a><span class='hs-definition'>prepareDir</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-comment'>-- ^verbosity</span>
<a name="line-319"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <span class='hs-comment'>-- ^info from the cabal file</span>
<a name="line-320"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^dist dir</span>
<a name="line-321"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^TargetPrefix</span>
<a name="line-322"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>PPSuffixHandler</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ extra preprocessors (includes suffixes)</span>
<a name="line-323"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ModuleName</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^Exposed modules</span>
<a name="line-324"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>BuildInfo</span>
<a name="line-325"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-326"></a><span class='hs-definition'>prepareDir</span> <span class='hs-varid'>verbosity</span> <span class='hs-sel'>_pkg</span> <span class='hs-sel'>_distPref</span> <span class='hs-varid'>inPref</span> <span class='hs-varid'>pps</span> <span class='hs-varid'>modules</span> <span class='hs-varid'>bi</span>
<a name="line-327"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>searchDirs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hsSourceDirs</span> <span class='hs-varid'>bi</span>
<a name="line-328"></a> <span class='hs-varid'>sources</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>sequence</span>
<a name="line-329"></a> <span class='hs-keyglyph'>[</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>file</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ModuleName</span><span class='hs-varop'>.</span><span class='hs-varid'>toFilePath</span> <span class='hs-varid'>module_</span>
<a name="line-330"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>findFileWithExtension</span> <span class='hs-varid'>suffixes</span> <span class='hs-varid'>searchDirs</span> <span class='hs-varid'>file</span>
<a name="line-331"></a> <span class='hs-varop'>>>=</span> <span class='hs-varid'>maybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>notFound</span> <span class='hs-varid'>module_</span><span class='hs-layout'>)</span> <span class='hs-varid'>return</span>
<a name="line-332"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>module_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>modules</span> <span class='hs-varop'>++</span> <span class='hs-varid'>otherModules</span> <span class='hs-varid'>bi</span> <span class='hs-keyglyph'>]</span>
<a name="line-333"></a> <span class='hs-varid'>bootFiles</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>sequence</span>
<a name="line-334"></a> <span class='hs-keyglyph'>[</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>file</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ModuleName</span><span class='hs-varop'>.</span><span class='hs-varid'>toFilePath</span> <span class='hs-varid'>module_</span>
<a name="line-335"></a> <span class='hs-varid'>fileExts</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"hs-boot"</span><span class='hs-layout'>,</span> <span class='hs-str'>"lhs-boot"</span><span class='hs-keyglyph'>]</span>
<a name="line-336"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>findFileWithExtension</span> <span class='hs-varid'>fileExts</span> <span class='hs-layout'>(</span><span class='hs-varid'>hsSourceDirs</span> <span class='hs-varid'>bi</span><span class='hs-layout'>)</span> <span class='hs-varid'>file</span>
<a name="line-337"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>module_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>modules</span> <span class='hs-varop'>++</span> <span class='hs-varid'>otherModules</span> <span class='hs-varid'>bi</span> <span class='hs-keyglyph'>]</span>
<a name="line-338"></a>
<a name="line-339"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>allSources</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>sources</span> <span class='hs-varop'>++</span> <span class='hs-varid'>catMaybes</span> <span class='hs-varid'>bootFiles</span> <span class='hs-varop'>++</span> <span class='hs-varid'>cSources</span> <span class='hs-varid'>bi</span>
<a name="line-340"></a> <span class='hs-varid'>installOrdinaryFiles</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>inPref</span> <span class='hs-layout'>(</span><span class='hs-varid'>zip</span> <span class='hs-layout'>(</span><span class='hs-varid'>repeat</span> <span class='hs-conid'>[]</span><span class='hs-layout'>)</span> <span class='hs-varid'>allSources</span><span class='hs-layout'>)</span>
<a name="line-341"></a>
<a name="line-342"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>suffixes</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>ppSuffixes</span> <span class='hs-varid'>pps</span> <span class='hs-varop'>++</span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"hs"</span><span class='hs-layout'>,</span> <span class='hs-str'>"lhs"</span><span class='hs-keyglyph'>]</span>
<a name="line-343"></a> <span class='hs-varid'>notFound</span> <span class='hs-varid'>m</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>die</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Error: Could not find module: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>display</span> <span class='hs-varid'>m</span>
<a name="line-344"></a> <span class='hs-varop'>++</span> <span class='hs-str'>" with any suffix: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>suffixes</span>
<a name="line-345"></a>
<a name="line-346"></a><a name="copyFileTo"></a><span class='hs-definition'>copyFileTo</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</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'>()</span>
<a name="line-347"></a><span class='hs-definition'>copyFileTo</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>dir</span> <span class='hs-varid'>file</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-348"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>targetFile</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>dir</span> <span class='hs-varop'></></span> <span class='hs-varid'>file</span>
<a name="line-349"></a> <span class='hs-varid'>createDirectoryIfMissingVerbose</span> <span class='hs-varid'>verbosity</span> <span class='hs-conid'>True</span> <span class='hs-layout'>(</span><span class='hs-varid'>takeDirectory</span> <span class='hs-varid'>targetFile</span><span class='hs-layout'>)</span>
<a name="line-350"></a> <span class='hs-varid'>installOrdinaryFile</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>file</span> <span class='hs-varid'>targetFile</span>
<a name="line-351"></a>
<a name="line-352"></a><a name="printPackageProblems"></a><span class='hs-definition'>printPackageProblems</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Verbosity</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-353"></a><span class='hs-definition'>printPackageProblems</span> <span class='hs-varid'>verbosity</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-354"></a> <span class='hs-varid'>ioChecks</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>checkPackageFiles</span> <span class='hs-varid'>pkg_descr</span> <span class='hs-str'>"."</span>
<a name="line-355"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pureChecks</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>checkConfiguredPackage</span> <span class='hs-varid'>pkg_descr</span>
<a name="line-356"></a> <span class='hs-varid'>isDistError</span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageDistSuspicious</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
<a name="line-357"></a> <span class='hs-varid'>isDistError</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
<a name="line-358"></a> <span class='hs-layout'>(</span><span class='hs-varid'>errors</span><span class='hs-layout'>,</span> <span class='hs-varid'>warnings</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>partition</span> <span class='hs-varid'>isDistError</span> <span class='hs-layout'>(</span><span class='hs-varid'>pureChecks</span> <span class='hs-varop'>++</span> <span class='hs-varid'>ioChecks</span><span class='hs-layout'>)</span>
<a name="line-359"></a> <span class='hs-varid'>unless</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>errors</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-360"></a> <span class='hs-varid'>notice</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Distribution quality errors:\n"</span>
<a name="line-361"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>unlines</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>explanation</span> <span class='hs-varid'>errors</span><span class='hs-layout'>)</span>
<a name="line-362"></a> <span class='hs-varid'>unless</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>warnings</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-363"></a> <span class='hs-varid'>notice</span> <span class='hs-varid'>verbosity</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Distribution quality warnings:\n"</span>
<a name="line-364"></a> <span class='hs-varop'>++</span> <span class='hs-varid'>unlines</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>explanation</span> <span class='hs-varid'>warnings</span><span class='hs-layout'>)</span>
<a name="line-365"></a> <span class='hs-varid'>unless</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-varid'>errors</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-366"></a> <span class='hs-varid'>notice</span> <span class='hs-varid'>verbosity</span>
<a name="line-367"></a> <span class='hs-str'>"Note: the public hackage server would reject this package."</span>
<a name="line-368"></a>
<a name="line-369"></a><span class='hs-comment'>------------------------------------------------------------</span>
<a name="line-370"></a>
<a name="line-371"></a><a name="tarBallName"></a><span class='hs-comment'>-- | The name of the tarball without extension</span>
<a name="line-372"></a><span class='hs-comment'>--</span>
<a name="line-373"></a><span class='hs-definition'>tarBallName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PackageDescription</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-374"></a><span class='hs-definition'>tarBallName</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>display</span> <span class='hs-varop'>.</span> <span class='hs-varid'>packageId</span>
<a name="line-375"></a>
<a name="line-376"></a><a name="mapAllBuildInfo"></a><span class='hs-definition'>mapAllBuildInfo</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>BuildInfo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>BuildInfo</span><span class='hs-layout'>)</span>
<a name="line-377"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>PackageDescription</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PackageDescription</span><span class='hs-layout'>)</span>
<a name="line-378"></a><span class='hs-definition'>mapAllBuildInfo</span> <span class='hs-varid'>f</span> <span class='hs-varid'>pkg</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>pkg</span> <span class='hs-layout'>{</span>
<a name="line-379"></a> <span class='hs-varid'>library</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fmap</span> <span class='hs-varid'>mapLibBi</span> <span class='hs-layout'>(</span><span class='hs-varid'>library</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-380"></a> <span class='hs-varid'>executables</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fmap</span> <span class='hs-varid'>mapExeBi</span> <span class='hs-layout'>(</span><span class='hs-varid'>executables</span> <span class='hs-varid'>pkg</span><span class='hs-layout'>)</span>
<a name="line-381"></a> <span class='hs-layout'>}</span>
<a name="line-382"></a> <span class='hs-keyword'>where</span>
<a name="line-383"></a> <span class='hs-varid'>mapLibBi</span> <span class='hs-varid'>lib</span> <span class='hs-keyglyph'>=</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'>f</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-384"></a> <span class='hs-varid'>mapExeBi</span> <span class='hs-varid'>exe</span> <span class='hs-keyglyph'>=</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'>f</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>
</pre></body>
</html>
