<?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://code.haskell.org/~malcolm/hscolour/ -->
<title>src/Darcs/Commands/Diff.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>-- Copyright (C) 2003-2004 David Roundy</span>
<a name="line-2"></a><span class='hs-comment'>--</span>
<a name="line-3"></a><span class='hs-comment'>-- This program is free software; you can redistribute it and/or modify</span>
<a name="line-4"></a><span class='hs-comment'>-- it under the terms of the GNU General Public License as published by</span>
<a name="line-5"></a><span class='hs-comment'>-- the Free Software Foundation; either version 2, or (at your option)</span>
<a name="line-6"></a><span class='hs-comment'>-- any later version.</span>
<a name="line-7"></a><span class='hs-comment'>--</span>
<a name="line-8"></a><span class='hs-comment'>-- This program is distributed in the hope that it will be useful,</span>
<a name="line-9"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="line-10"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span>
<a name="line-11"></a><span class='hs-comment'>-- GNU General Public License for more details.</span>
<a name="line-12"></a><span class='hs-comment'>--</span>
<a name="line-13"></a><span class='hs-comment'>-- You should have received a copy of the GNU General Public License</span>
<a name="line-14"></a><span class='hs-comment'>-- along with this program; see the file COPYING. If not, write to</span>
<a name="line-15"></a><span class='hs-comment'>-- the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,</span>
<a name="line-16"></a><span class='hs-comment'>-- Boston, MA 02110-1301, USA.</span>
<a name="line-17"></a>
<a name="line-18"></a><span class='hs-comment'>{-# LANGUAGE CPP #-}</span>
<a name="line-19"></a>
<a name="line-20"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Commands</span><span class='hs-varop'>.</span><span class='hs-conid'>Diff</span> <span class='hs-layout'>(</span> <span class='hs-varid'>diffCommand</span> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-21"></a>
<a name="line-22"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>FilePath</span><span class='hs-varop'>.</span><span class='hs-conid'>Posix</span> <span class='hs-layout'>(</span> <span class='hs-varid'>takeFileName</span> <span class='hs-layout'>)</span>
<a name="line-23"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Workaround</span> <span class='hs-layout'>(</span> <span class='hs-varid'>getCurrentDirectory</span> <span class='hs-layout'>)</span>
<a name="line-24"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Utils</span> <span class='hs-layout'>(</span> <span class='hs-varid'>askEnter</span><span class='hs-layout'>,</span> <span class='hs-varid'>withCurrentDirectory</span> <span class='hs-layout'>)</span>
<a name="line-25"></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>
<a name="line-26"></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-layout'>(</span><span class='hs-varop'>\\</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span>
<a name="line-27"></a>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Storage</span><span class='hs-varop'>.</span><span class='hs-conid'>Hashed</span><span class='hs-varop'>.</span><span class='hs-conid'>Plain</span><span class='hs-layout'>(</span> <span class='hs-varid'>writePlainTree</span> <span class='hs-layout'>)</span>
<a name="line-29"></a>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>External</span><span class='hs-layout'>(</span> <span class='hs-varid'>diffProgram</span> <span class='hs-layout'>)</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>CommandLine</span> <span class='hs-layout'>(</span> <span class='hs-varid'>parseCmd</span> <span class='hs-layout'>)</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Commands</span> <span class='hs-layout'>(</span> <span class='hs-conid'>DarcsCommand</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'>nodefaults</span> <span class='hs-layout'>)</span>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Arguments</span>
<a name="line-34"></a> <span class='hs-layout'>(</span> <span class='hs-conid'>DarcsFlag</span><span class='hs-layout'>(</span><span class='hs-conid'>AfterPatch</span><span class='hs-layout'>,</span> <span class='hs-conid'>DiffCmd</span><span class='hs-layout'>,</span> <span class='hs-conid'>DiffFlags</span><span class='hs-layout'>,</span> <span class='hs-conid'>LastN</span><span class='hs-layout'>)</span>
<a name="line-35"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>diffCmdFlag</span>
<a name="line-36"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>diffflags</span>
<a name="line-37"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>fixSubPaths</span>
<a name="line-38"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>matchRange</span>
<a name="line-39"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>pauseForGui</span>
<a name="line-40"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>storeInMemory</span>
<a name="line-41"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>unidiff</span>
<a name="line-42"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>workingRepoDir</span>
<a name="line-43"></a> <span class='hs-layout'>)</span>
<a name="line-44"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Flags</span> <span class='hs-layout'>(</span> <span class='hs-varid'>isNotUnified</span><span class='hs-layout'>,</span> <span class='hs-varid'>wantGuiPause</span> <span class='hs-layout'>)</span>
<a name="line-45"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Patch</span><span class='hs-varop'>.</span><span class='hs-conid'>PatchInfoAnd</span> <span class='hs-layout'>(</span> <span class='hs-varid'>info</span> <span class='hs-layout'>)</span>
<a name="line-46"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>RepoPath</span> <span class='hs-layout'>(</span> <span class='hs-conid'>AbsolutePath</span><span class='hs-layout'>,</span> <span class='hs-conid'>SubPath</span><span class='hs-layout'>,</span> <span class='hs-varid'>toFilePath</span><span class='hs-layout'>,</span> <span class='hs-varid'>sp2fn</span> <span class='hs-layout'>)</span>
<a name="line-47"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Match</span> <span class='hs-layout'>(</span> <span class='hs-varid'>getPartialFirstMatch</span><span class='hs-layout'>,</span> <span class='hs-varid'>getPartialSecondMatch</span><span class='hs-layout'>,</span>
<a name="line-48"></a> <span class='hs-varid'>firstMatch</span><span class='hs-layout'>,</span> <span class='hs-varid'>secondMatch</span><span class='hs-layout'>,</span>
<a name="line-49"></a> <span class='hs-varid'>matchFirstPatchset</span><span class='hs-layout'>,</span> <span class='hs-varid'>matchSecondPatchset</span> <span class='hs-layout'>)</span>
<a name="line-50"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Repository</span> <span class='hs-layout'>(</span> <span class='hs-varid'>withRepository</span><span class='hs-layout'>,</span> <span class='hs-conid'>RepoJob</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'>readRepo</span><span class='hs-layout'>,</span>
<a name="line-51"></a> <span class='hs-varid'>amInHashedRepository</span><span class='hs-layout'>,</span>
<a name="line-52"></a> <span class='hs-varid'>createPristineDirectoryTree</span><span class='hs-layout'>,</span>
<a name="line-53"></a> <span class='hs-varid'>createPartialsPristineDirectoryTree</span> <span class='hs-layout'>)</span>
<a name="line-54"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Patch</span><span class='hs-varop'>.</span><span class='hs-conid'>Set</span> <span class='hs-layout'>(</span> <span class='hs-conid'>PatchSet</span><span class='hs-layout'>,</span> <span class='hs-varid'>newset2RL</span> <span class='hs-layout'>)</span>
<a name="line-55"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Repository</span><span class='hs-varop'>.</span><span class='hs-conid'>State</span> <span class='hs-layout'>(</span> <span class='hs-varid'>readUnrecorded</span> <span class='hs-layout'>)</span>
<a name="line-56"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Patch</span> <span class='hs-layout'>(</span> <span class='hs-conid'>RepoPatch</span> <span class='hs-layout'>)</span>
<a name="line-57"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Witnesses</span><span class='hs-varop'>.</span><span class='hs-conid'>Ordered</span> <span class='hs-layout'>(</span> <span class='hs-varid'>mapRL</span> <span class='hs-layout'>)</span>
<a name="line-58"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Patch</span><span class='hs-varop'>.</span><span class='hs-conid'>Info</span> <span class='hs-layout'>(</span> <span class='hs-conid'>PatchInfo</span><span class='hs-layout'>,</span> <span class='hs-varid'>humanFriendly</span> <span class='hs-layout'>)</span>
<a name="line-59"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>External</span> <span class='hs-layout'>(</span> <span class='hs-varid'>execPipeIgnoreError</span> <span class='hs-layout'>)</span>
<a name="line-60"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Lock</span> <span class='hs-layout'>(</span> <span class='hs-varid'>withTempDir</span> <span class='hs-layout'>)</span>
<a name="line-61"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Witnesses</span><span class='hs-varop'>.</span><span class='hs-conid'>Sealed</span> <span class='hs-layout'>(</span> <span class='hs-varid'>unseal</span> <span class='hs-layout'>)</span>
<a name="line-62"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Printer</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Doc</span><span class='hs-layout'>,</span> <span class='hs-varid'>putDoc</span><span class='hs-layout'>,</span> <span class='hs-varid'>vcat</span><span class='hs-layout'>,</span> <span class='hs-varid'>empty</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>
<a name="line-63"></a><span class='hs-cpp'>#include "impossible.h"</span>
<a name="line-64"></a>
<a name="line-65"></a><span class='hs-cpp'>#include "gadts.h"</span>
<a name="line-66"></a>
<a name="line-67"></a><a name="diffDescription"></a><span class='hs-definition'>diffDescription</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>
<a name="line-68"></a><span class='hs-definition'>diffDescription</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"Create a diff between two versions of the repository."</span>
<a name="line-69"></a>
<a name="line-70"></a><a name="diffHelp"></a><span class='hs-definition'>diffHelp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>
<a name="line-71"></a><span class='hs-definition'>diffHelp</span> <span class='hs-keyglyph'>=</span>
<a name="line-72"></a> <span class='hs-str'>"The `darcs diff' command compares two versions of the working tree of\n"</span> <span class='hs-varop'>++</span>
<a name="line-73"></a> <span class='hs-str'>"the current repository. Without options, the pristine (recorded) and\n"</span> <span class='hs-varop'>++</span>
<a name="line-74"></a> <span class='hs-str'>"unrecorded working trees are compared. This is lower-level than\n"</span> <span class='hs-varop'>++</span>
<a name="line-75"></a> <span class='hs-str'>"the `darcs whatsnew' command, since it outputs a line-by-line diff,\n"</span> <span class='hs-varop'>++</span>
<a name="line-76"></a> <span class='hs-str'>"and it is also slower. As with `darcs whatsnew', if you specify\n"</span> <span class='hs-varop'>++</span>
<a name="line-77"></a> <span class='hs-str'>"files or directories, changes to other files are not listed.\n"</span> <span class='hs-varop'>++</span>
<a name="line-78"></a> <span class='hs-str'>"The command always uses an external diff utility.\n"</span> <span class='hs-varop'>++</span>
<a name="line-79"></a> <span class='hs-str'>"\n"</span> <span class='hs-varop'>++</span>
<a name="line-80"></a> <span class='hs-str'>"With the --patch option, the comparison will be made between working\n"</span> <span class='hs-varop'>++</span>
<a name="line-81"></a> <span class='hs-str'>"trees with and without that patch. Patches `after' the selected patch\n"</span> <span class='hs-varop'>++</span>
<a name="line-82"></a> <span class='hs-str'>"are not present in either of the compared working trees. The\n"</span> <span class='hs-varop'>++</span>
<a name="line-83"></a> <span class='hs-str'>"--from-patch and --to-patch options allow the set of patches in the\n"</span> <span class='hs-varop'>++</span>
<a name="line-84"></a> <span class='hs-str'>"`old' and `new' working trees to be specified separately.\n"</span> <span class='hs-varop'>++</span>
<a name="line-85"></a> <span class='hs-str'>"\n"</span> <span class='hs-varop'>++</span>
<a name="line-86"></a> <span class='hs-str'>"The associated tag and match options are also understood, e.g. `darcs\n"</span> <span class='hs-varop'>++</span>
<a name="line-87"></a> <span class='hs-str'>"diff --from-tag 1.0 --to-tag 1.1'. All these options assume an\n"</span> <span class='hs-varop'>++</span>
<a name="line-88"></a> <span class='hs-str'>"ordering of the patch set, so results may be affected by operations\n"</span> <span class='hs-varop'>++</span>
<a name="line-89"></a> <span class='hs-str'>"such as `darcs optimize --reorder'.\n"</span> <span class='hs-varop'>++</span>
<a name="line-90"></a> <span class='hs-str'>"\n"</span> <span class='hs-varop'>++</span>
<a name="line-91"></a> <span class='hs-str'>"diff(1) is called with the arguments -rN. The --unified option causes\n"</span> <span class='hs-varop'>++</span>
<a name="line-92"></a> <span class='hs-str'>"-u to be passed to diff(1). An additional argument can be passed\n"</span> <span class='hs-varop'>++</span>
<a name="line-93"></a> <span class='hs-str'>"using --diff-opts, such as --diff-opts=-ud or --diff-opts=-wU9.\n"</span> <span class='hs-varop'>++</span>
<a name="line-94"></a> <span class='hs-str'>"\n"</span> <span class='hs-varop'>++</span>
<a name="line-95"></a> <span class='hs-str'>"The --diff-command option can be used to specify an alternative\n"</span> <span class='hs-varop'>++</span>
<a name="line-96"></a> <span class='hs-str'>"utility, such as meld (GNOME) or opendiff (OS X). Arguments may be\n"</span> <span class='hs-varop'>++</span>
<a name="line-97"></a> <span class='hs-str'>"included, separated by whitespace. The value is not interpreted by a\n"</span> <span class='hs-varop'>++</span>
<a name="line-98"></a> <span class='hs-str'>"shell, so shell constructs cannot be used. The arguments %1 and %2\n"</span> <span class='hs-varop'>++</span>
<a name="line-99"></a> <span class='hs-str'>"MUST be included, these are substituted for the two working trees\n"</span> <span class='hs-varop'>++</span>
<a name="line-100"></a> <span class='hs-str'>"being compared. If this option is used, --diff-opts is ignored.\n"</span>
<a name="line-101"></a>
<a name="line-102"></a><a name="diffCommand"></a><span class='hs-definition'>diffCommand</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DarcsCommand</span>
<a name="line-103"></a><span class='hs-definition'>diffCommand</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DarcsCommand</span> <span class='hs-layout'>{</span><span class='hs-varid'>commandProgramName</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"darcs"</span><span class='hs-layout'>,</span>
<a name="line-104"></a> <span class='hs-varid'>commandName</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"diff"</span><span class='hs-layout'>,</span>
<a name="line-105"></a> <span class='hs-varid'>commandHelp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>diffHelp</span><span class='hs-layout'>,</span>
<a name="line-106"></a> <span class='hs-varid'>commandDescription</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>diffDescription</span><span class='hs-layout'>,</span>
<a name="line-107"></a> <span class='hs-varid'>commandExtraArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>1</span><span class='hs-layout'>,</span>
<a name="line-108"></a> <span class='hs-varid'>commandExtraArgHelp</span>
<a name="line-109"></a> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"[FILE or DIRECTORY]..."</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span>
<a name="line-110"></a> <span class='hs-varid'>commandCommand</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>diffCmd</span><span class='hs-layout'>,</span>
<a name="line-111"></a> <span class='hs-varid'>commandPrereq</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>amInHashedRepository</span><span class='hs-layout'>,</span>
<a name="line-112"></a> <span class='hs-varid'>commandGetArgPossibilities</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>[]</span><span class='hs-layout'>,</span>
<a name="line-113"></a> <span class='hs-varid'>commandArgdefaults</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nodefaults</span><span class='hs-layout'>,</span>
<a name="line-114"></a> <span class='hs-varid'>commandAdvancedOptions</span> <span class='hs-keyglyph'>=</span>
<a name="line-115"></a> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>pauseForGui</span>
<a name="line-116"></a> <span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span>
<a name="line-117"></a> <span class='hs-varid'>commandBasicOptions</span> <span class='hs-keyglyph'>=</span>
<a name="line-118"></a> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>matchRange</span>
<a name="line-119"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>diffCmdFlag</span>
<a name="line-120"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>diffflags</span>
<a name="line-121"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>unidiff</span>
<a name="line-122"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>workingRepoDir</span>
<a name="line-123"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>storeInMemory</span>
<a name="line-124"></a> <span class='hs-keyglyph'>]</span>
<a name="line-125"></a> <span class='hs-layout'>}</span>
<a name="line-126"></a>
<a name="line-127"></a><a name="getDiffOpts"></a><span class='hs-definition'>getDiffOpts</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DarcsFlag</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>
<a name="line-128"></a><span class='hs-definition'>getDiffOpts</span> <span class='hs-varid'>opts</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isNotUnified</span> <span class='hs-varid'>opts</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>get_nonU_diff_opts</span> <span class='hs-varid'>opts</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-str'>"-u"</span> <span class='hs-conop'>:</span> <span class='hs-varid'>get_nonU_diff_opts</span> <span class='hs-varid'>opts</span>
<a name="line-130"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>get_nonU_diff_opts</span> <span class='hs-layout'>(</span><span class='hs-conid'>DiffFlags</span> <span class='hs-varid'>f</span><span class='hs-conop'>:</span><span class='hs-varid'>fs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>f</span> <span class='hs-conop'>:</span> <span class='hs-varid'>get_nonU_diff_opts</span> <span class='hs-varid'>fs</span>
<a name="line-131"></a> <span class='hs-varid'>get_nonU_diff_opts</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-conop'>:</span><span class='hs-varid'>fs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>get_nonU_diff_opts</span> <span class='hs-varid'>fs</span>
<a name="line-132"></a> <span class='hs-varid'>get_nonU_diff_opts</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span>
<a name="line-133"></a>
<a name="line-134"></a><a name="getDiffCmdAndArgs"></a><span class='hs-comment'>-- | Returns the command we should use for diff as a tuple (command, arguments).</span>
<a name="line-135"></a><span class='hs-comment'>-- This will either be whatever the user specified via --diff-command or the</span>
<a name="line-136"></a><span class='hs-comment'>-- default 'diffProgram'. Note that this potentially involves parsing the</span>
<a name="line-137"></a><span class='hs-comment'>-- user's diff-command, hence the possibility for failure with an exception.</span>
<a name="line-138"></a><span class='hs-definition'>getDiffCmdAndArgs</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'>DarcsFlag</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-conid'>String</span>
<a name="line-139"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Either</span> <span class='hs-conid'>String</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-140"></a><span class='hs-definition'>getDiffCmdAndArgs</span> <span class='hs-varid'>cmd</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>f1</span> <span class='hs-varid'>f2</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>helper</span> <span class='hs-varid'>opts</span> <span class='hs-keyword'>where</span>
<a name="line-141"></a> <span class='hs-varid'>helper</span> <span class='hs-layout'>(</span><span class='hs-conid'>DiffCmd</span> <span class='hs-varid'>c</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-142"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>parseCmd</span> <span class='hs-keyglyph'>[</span> <span class='hs-layout'>(</span><span class='hs-chr'>'1'</span><span class='hs-layout'>,</span> <span class='hs-varid'>f1</span><span class='hs-layout'>)</span> <span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-chr'>'2'</span><span class='hs-layout'>,</span> <span class='hs-varid'>f2</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>]</span> <span class='hs-varid'>c</span> <span class='hs-keyword'>of</span>
<a name="line-143"></a> <span class='hs-conid'>Left</span> <span class='hs-varid'>err</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Left</span> <span class='hs-varop'>$</span> <span class='hs-varid'>show</span> <span class='hs-varid'>err</span>
<a name="line-144"></a> <span class='hs-conid'>Right</span> <span class='hs-layout'>(</span><span class='hs-conid'>[]</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'>bug</span> <span class='hs-varop'>$</span> <span class='hs-str'>"parseCmd should never return empty list"</span>
<a name="line-145"></a> <span class='hs-conid'>Right</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>h</span><span class='hs-conop'>:</span><span class='hs-varid'>t</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Right</span> <span class='hs-layout'>(</span><span class='hs-varid'>h</span><span class='hs-layout'>,</span><span class='hs-varid'>t</span><span class='hs-layout'>)</span>
<a name="line-146"></a> <span class='hs-varid'>helper</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-- if no command specified, use 'diff'</span>
<a name="line-147"></a> <span class='hs-conid'>Right</span> <span class='hs-layout'>(</span><span class='hs-varid'>cmd</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-str'>"-rN"</span><span class='hs-conop'>:</span><span class='hs-varid'>getDiffOpts</span> <span class='hs-varid'>opts</span><span class='hs-varop'>++</span><span class='hs-keyglyph'>[</span><span class='hs-varid'>f1</span><span class='hs-layout'>,</span><span class='hs-varid'>f2</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-148"></a> <span class='hs-varid'>helper</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-conop'>:</span><span class='hs-varid'>t</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>helper</span> <span class='hs-varid'>t</span>
<a name="line-149"></a>
<a name="line-150"></a><a name="diffCmd"></a><span class='hs-definition'>diffCmd</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DarcsFlag</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'>IO</span> <span class='hs-conid'>()</span>
<a name="line-151"></a><span class='hs-definition'>diffCmd</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>args</span>
<a name="line-152"></a> <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-keyglyph'>[</span><span class='hs-varid'>i</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>LastN</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>opts</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-varop'>&&</span>
<a name="line-153"></a> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>null</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>p</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AfterPatch</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>opts</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-154"></a> <span class='hs-varid'>fail</span> <span class='hs-varop'>$</span> <span class='hs-str'>"using --patch and --last at the same time with the 'diff'"</span> <span class='hs-varop'>++</span>
<a name="line-155"></a> <span class='hs-str'>" command doesn't make sense. Use --from-patch to create a diff"</span> <span class='hs-varop'>++</span>
<a name="line-156"></a> <span class='hs-str'>" from this patch to the present, or use just '--patch' to view"</span> <span class='hs-varop'>++</span>
<a name="line-157"></a> <span class='hs-str'>" this specific patch."</span>
<a name="line-158"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>null</span> <span class='hs-varid'>args</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doDiff</span> <span class='hs-varid'>opts</span> <span class='hs-conid'>Nothing</span>
<a name="line-159"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doDiff</span> <span class='hs-varid'>opts</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>=<<</span> <span class='hs-varid'>fixSubPaths</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>args</span>
<a name="line-160"></a>
<a name="line-161"></a><a name="doDiff"></a><span class='hs-definition'>doDiff</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DarcsFlag</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>SubPath</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-162"></a><span class='hs-definition'>doDiff</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>sps</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withRepository</span> <span class='hs-varid'>opts</span> <span class='hs-varop'>$</span> <span class='hs-conid'>RepoJob</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>repository</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-163"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pathList</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-varid'>sp2fn</span> <span class='hs-varop'>`fmap`</span> <span class='hs-varid'>sps</span>
<a name="line-164"></a> <span class='hs-varid'>formerdir</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getCurrentDirectory</span>
<a name="line-165"></a> <span class='hs-varid'>withTempDirs</span> <span class='hs-layout'>(</span><span class='hs-varid'>takeFileName</span> <span class='hs-varid'>formerdir</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>odir</span> <span class='hs-varid'>ndir</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-166"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>firstMatch</span> <span class='hs-varid'>opts</span>
<a name="line-167"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>withCurrentDirectory</span> <span class='hs-varid'>odir</span> <span class='hs-varop'>$</span> <span class='hs-varid'>getPartialFirstMatch</span> <span class='hs-varid'>repository</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>pathList</span>
<a name="line-168"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>pathList</span> <span class='hs-keyword'>of</span>
<a name="line-169"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>createPristineDirectoryTree</span> <span class='hs-varid'>repository</span> <span class='hs-varop'>$</span> <span class='hs-varid'>toFilePath</span> <span class='hs-varid'>odir</span>
<a name="line-170"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>pl</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>createPartialsPristineDirectoryTree</span> <span class='hs-varid'>repository</span> <span class='hs-varid'>pl</span> <span class='hs-varop'>$</span> <span class='hs-varid'>toFilePath</span> <span class='hs-varid'>odir</span>
<a name="line-171"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>secondMatch</span> <span class='hs-varid'>opts</span>
<a name="line-172"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>withCurrentDirectory</span> <span class='hs-varid'>ndir</span> <span class='hs-varop'>$</span> <span class='hs-varid'>getPartialSecondMatch</span> <span class='hs-varid'>repository</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>pathList</span>
<a name="line-173"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>withCurrentDirectory</span> <span class='hs-varid'>formerdir</span> <span class='hs-varop'>$</span>
<a name="line-174"></a> <span class='hs-varid'>readUnrecorded</span> <span class='hs-varid'>repository</span> <span class='hs-varid'>sps</span> <span class='hs-varop'>>>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>flip</span> <span class='hs-varid'>writePlainTree</span> <span class='hs-layout'>(</span><span class='hs-varid'>toFilePath</span> <span class='hs-varid'>ndir</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-175"></a> <span class='hs-varid'>thediff</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>withCurrentDirectory</span> <span class='hs-layout'>(</span><span class='hs-varid'>toFilePath</span> <span class='hs-varid'>odir</span> <span class='hs-varop'>++</span> <span class='hs-str'>"/.."</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-176"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>pathList</span> <span class='hs-keyword'>of</span>
<a name="line-177"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>rundiff</span> <span class='hs-layout'>(</span><span class='hs-varid'>takeFileName</span> <span class='hs-varop'>$</span> <span class='hs-varid'>toFilePath</span> <span class='hs-varid'>odir</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>takeFileName</span> <span class='hs-varop'>$</span> <span class='hs-varid'>toFilePath</span> <span class='hs-varid'>ndir</span><span class='hs-layout'>)</span>
<a name="line-178"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>fs</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>vcat</span> <span class='hs-varop'>`fmap`</span>
<a name="line-179"></a> <span class='hs-varid'>mapM</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>f</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>rundiff</span>
<a name="line-180"></a> <span class='hs-layout'>(</span><span class='hs-varid'>takeFileName</span> <span class='hs-layout'>(</span><span class='hs-varid'>toFilePath</span> <span class='hs-varid'>odir</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>"/"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>toFilePath</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span>
<a name="line-181"></a> <span class='hs-layout'>(</span><span class='hs-varid'>takeFileName</span> <span class='hs-layout'>(</span><span class='hs-varid'>toFilePath</span> <span class='hs-varid'>ndir</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>"/"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>toFilePath</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>fs</span>
<a name="line-182"></a> <span class='hs-varid'>morepatches</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readRepo</span> <span class='hs-varid'>repository</span>
<a name="line-183"></a> <span class='hs-varid'>putDoc</span> <span class='hs-varop'>$</span> <span class='hs-varid'>changelog</span> <span class='hs-layout'>(</span><span class='hs-varid'>getDiffInfo</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>morepatches</span><span class='hs-layout'>)</span>
<a name="line-184"></a> <span class='hs-varop'>$$</span> <span class='hs-varid'>thediff</span>
<a name="line-185"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>rundiff</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Doc</span>
<a name="line-186"></a> <span class='hs-varid'>rundiff</span> <span class='hs-varid'>f1</span> <span class='hs-varid'>f2</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-187"></a> <span class='hs-varid'>cmd</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>diffProgram</span>
<a name="line-188"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>getDiffCmdAndArgs</span> <span class='hs-varid'>cmd</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>f1</span> <span class='hs-varid'>f2</span> <span class='hs-keyword'>of</span>
<a name="line-189"></a> <span class='hs-conid'>Left</span> <span class='hs-varid'>err</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fail</span> <span class='hs-varid'>err</span>
<a name="line-190"></a> <span class='hs-conid'>Right</span> <span class='hs-layout'>(</span><span class='hs-varid'>d_cmd</span><span class='hs-layout'>,</span> <span class='hs-varid'>d_args</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-191"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>pausingForGui</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>wantGuiPause</span> <span class='hs-varid'>opts</span> <span class='hs-keyword'>in</span>
<a name="line-192"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>when</span> <span class='hs-varid'>pausingForGui</span> <span class='hs-varop'>$</span> <span class='hs-varid'>putStrLn</span> <span class='hs-varop'>$</span>
<a name="line-193"></a> <span class='hs-str'>"Running command '"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>unwords</span> <span class='hs-layout'>(</span><span class='hs-varid'>d_cmd</span><span class='hs-conop'>:</span><span class='hs-varid'>d_args</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-str'>"'"</span>
<a name="line-194"></a> <span class='hs-varid'>output</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>execPipeIgnoreError</span> <span class='hs-varid'>d_cmd</span> <span class='hs-varid'>d_args</span> <span class='hs-varid'>empty</span>
<a name="line-195"></a> <span class='hs-varid'>when</span> <span class='hs-varid'>pausingForGui</span> <span class='hs-varop'>$</span>
<a name="line-196"></a> <span class='hs-varid'>askEnter</span> <span class='hs-str'>"Hit return to move on..."</span>
<a name="line-197"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>output</span>
<a name="line-198"></a>
<a name="line-199"></a> <span class='hs-varid'>withTempDirs</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>AbsolutePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>AbsolutePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>a</span>
<a name="line-200"></a> <span class='hs-varid'>withTempDirs</span> <span class='hs-varid'>x</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withTempDir</span> <span class='hs-layout'>(</span><span class='hs-str'>"old-"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>odir</span> <span class='hs-keyglyph'>-></span>
<a name="line-201"></a> <span class='hs-varid'>withTempDir</span> <span class='hs-layout'>(</span><span class='hs-str'>"new-"</span> <span class='hs-varop'>++</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>ndir</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>f</span> <span class='hs-varid'>odir</span> <span class='hs-varid'>ndir</span>
<a name="line-202"></a>
<a name="line-203"></a><a name="getDiffInfo"></a><span class='hs-definition'>getDiffInfo</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>RepoPatch</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>=></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DarcsFlag</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>PatchSet</span> <span class='hs-varid'>p</span> <span class='hs-conid'>C</span><span class='hs-layout'>(</span><span class='hs-varid'>start</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>PatchInfo</span><span class='hs-keyglyph'>]</span>
<a name="line-204"></a><span class='hs-definition'>getDiffInfo</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>ps</span> <span class='hs-keyglyph'>=</span>
<a name="line-205"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>infos</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mapRL</span> <span class='hs-varid'>info</span> <span class='hs-varop'>.</span> <span class='hs-varid'>newset2RL</span>
<a name="line-206"></a> <span class='hs-varid'>handle</span> <span class='hs-layout'>(</span><span class='hs-varid'>match_cond</span><span class='hs-layout'>,</span> <span class='hs-varid'>do_match</span><span class='hs-layout'>)</span>
<a name="line-207"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>match_cond</span> <span class='hs-varid'>opts</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unseal</span> <span class='hs-varid'>infos</span> <span class='hs-layout'>(</span><span class='hs-varid'>do_match</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>ps</span><span class='hs-layout'>)</span>
<a name="line-208"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>infos</span> <span class='hs-varid'>ps</span>
<a name="line-209"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>handle</span> <span class='hs-layout'>(</span><span class='hs-varid'>secondMatch</span><span class='hs-layout'>,</span> <span class='hs-varid'>matchSecondPatchset</span><span class='hs-layout'>)</span>
<a name="line-210"></a> <span class='hs-varop'>\\</span> <span class='hs-varid'>handle</span> <span class='hs-layout'>(</span><span class='hs-varid'>firstMatch</span><span class='hs-layout'>,</span> <span class='hs-varid'>matchFirstPatchset</span><span class='hs-layout'>)</span>
<a name="line-211"></a>
<a name="line-212"></a><a name="changelog"></a><span class='hs-definition'>changelog</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>PatchInfo</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Doc</span>
<a name="line-213"></a><span class='hs-definition'>changelog</span> <span class='hs-varid'>pis</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>vcat</span> <span class='hs-varop'>$</span> <span class='hs-varid'>map</span> <span class='hs-varid'>humanFriendly</span> <span class='hs-varid'>pis</span>
<a name="line-214"></a>
</pre></body>
</html>
