0 0 ,      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRST U V W X Y Z [ \ ] ^ _ ` a b c d e f g h ij k l m n o p q r s t u v w x y z { |}~           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D!E!F!G!H!I!J!K!L!M!N"O"P"Q"R"S"T"U"V"W"X"Y"Z[\]^_`abcdefghijklmnopqrstuvwx#y#z#{#|#}#~################$$$$%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&''''''''''''(((((()****+++ + + + + +++++++++++++++++++ +!+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P+Q+R+S+T+U+V+W+X,Y,Z,[,\,],^,_,`-a-b-c-d-e-f.g.h.i.j.k.l.m.n.o.p/q/r/s0t0u0v0w0x0y0z0{0|0}0~00000000000000000000000000000000001111111111222222223333344444444444444444444444444444455555555556666666666666666666666666666666666 6 6 6 6 7777777777777777777 8!8"8#8$8%8&8'8(8)8*8+8,8-8.8/808182838485868788898:8;8<9=9>:?:@:A:B:C:D:E:F:G:H:I:J:K:L:M:N:O:P:Q:R:S:T:U:V:W:X:Y:Z:[:\:]:^:_:`:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z:{:|:}:~:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;;;; ; ; ; ; ;;;;;;;<=========== =!="=#=$=%=&='=(=)=*=+=,=-=.=/=0=1=2=3=4=5=6=7=8=9=:=;=<===>=?=@=A=B=C=D=E=F=G=H=I=J=K=L>M>N>O>P>Q>R>S>T>U?V?W?X?Y?Z?[?\?]?^?_?`@a@b@cAdAeBfBgBhBiBjBkClCmCnCoCpCqCrCsCtCuCvCwCxCyDzD{D|D}D~DDDDDDDDDDDDDDDDDDDDDDDDDDDEEEEEEEEEEEEEEEEEEEEEEEEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGHHHHHHHHIIIIIIIIIII I I I I IIIIIIIIIIIIJJKKKLL L!L"L#L$L%M&M'M(M)M*M+M,M-M.M/M0M1M2M3M4M5M6M7M8M9N:N;N<N=N>N?N@NANBNCNDNENFNGNHNINJNKNLNMNNNONPNQNROSOTOUOVOWOXOYOZP[Q\Q]Q^Q_R`RaRbScSdTeTfTgThTiTjTkUlUmUnUoVpVqVrVsVtVuVvVwVxWyWzW{W|X}X~XXXXXXXXXXXXXXYYYYYYYYZZZZZZZ[[[[[[[[[[[[\]^^^^^________________________________________________```aaaaaaaaaaaabccccddddddddddddddddeeeeeee e f f f ffffffffgghiijjjjjj j!j"j#j$j%j&j'j(j)k*k+k,k-k.k/k0k1l2l3l4l5l6l7l8l9m:m;m<m=m>m?m@mAmBmCmDmEmFmGmHmImJmKmLnMoNoOoPoQoRoSoTpUpVpWpXpYpZp[p\q]r^s_s`sasbscsdteufuguhvivjvkvlvmvnvovpvqvrvswtwuwvwwwxwywzw{w|w}w~wwwwwwwwwwwwwwwxxxxxyzzzz{{{{{{{{{{{{|||||||||||||||}}}~~~~~~~~~~~~~~~~~~~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~                           ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~                            ! " # $ % & ' ( ) * +None !"345>IKLN , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D 9 : , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C DNone!"345>IKLN E=Requires NULL-terminated bytestring -> unsafe! Use with care. F G H I J K L M N O P Q R S T U V E W F N P Q R S T U V E F G H I J K L M N O P Q R S T U V ENone!"345>IKLN XyPointer to a filesystem, possibly with start/end offsets. Supposed to be fed to (uncurry mmapFileByteString) or similar. YERead in a FileSegment into a Lazy ByteString. Implemented using mmap. ZRun an IO action with path5 as a working directory. Does neccessary bracketing. [Find a monadic fixed point of f that is the least above i+. (Will happily diverge if there is none.) \Find a fixed point of f that is the least above i+. (Will happily diverge if there is none.) ]For a refs function, a map (key -> value) and a rootSet, find a submap of map such that all items in map are reachable, through refs from rootSet. X Y Z ^ _ ` a b [ \ ] X Y Z ^ _ ` a b [ \ ] X Y Z ^ _ ` a b [ \ ]Safe !"345>IKLN LData type to represent a connection error. The following are the codes from libcurl which map to each of the constructors: * 6 -> CouldNotResolveHost : The remote host was not resolved. * 7 -> CouldNotConnectToServer : Failed to connect() to host or proxy. * 28 -> OperationTimeout: the specified time-out period was reached.|Q represents a prioritised queue, with two-tier priority. The left list contains higher priority items than the right list.A UrlState object contains a map of url -> InProgressStatus, a Q of urls waiting to be started, the current pipe length and the unique junk to create unique filenames.#A UrlRequest object contains a url to get, the file into which the contents at the given url should be written, the cachability of this request and the request's priority.00[ will try and take an element from the Q, preferring elements from the high priority list.1>Return a function for adding an element based on the priority.22& inserts a low priority item into a Q.33' inserts a high priority item into a Q.445 removes any instances of a given element from the Q.54 checks for membership in a Q.66 is an empty Q.77# checks if the Q contains no items." !" c#$%&'()*+,-./01234567! !"#$%&'()*+,-./01234567!#$%&'()*+, !"02314567-./ !" c#$%&'()*+,-./01234567None!"345>IKLN dEncode a Unicode  e into a  f# suitable for the current console. g Convert a  f, from the console's encoding into a Unicode  e. d g d g d gSafe !"345>IKLN8Lift an isomorphism between a and b to one between f a and f b. Like  hF, except we can only map invertible functions (i.e. an Isomorphisms).:@Lightweight type ismomorphisms (a.k.a. invertible functions). If Iso fw bw :: Iso a bthen fw and bw are supposed to satisfyfw . bw = id = bw . fw<Apply an iso under a functor.=.Apply an iso under cps (which is a cofunctor).89:;<=89:;<=:;89<=89:;<=Safe!"345>IKLN>AType of primitive (not yet combined) options. The type parameter b gets instantiated to (v -> a), adding one argument of type v) to the answer type of the continuation.?!A type for option specifications.]It consists of four components: a parser, an unparser, a checker, and a list of descriptions.The parser converts a flag list to some result value. This can never fail: we demand that primitive parsers are written so that there is always a default value (use  i with default  j as a last resort).WThe unparser does the opposite of the parser: a value is converted back to a flag list.The checker returns a list of error messages (which should be empty if there are no problems found). This can be used to e.g. check whether there are conflicting flags in the list.Separating the checker and parser is unusual. The reason for this is that we want to support flags coming from multiple sources, such as the command line or a defaults file. Prioritising these sources is done by concatenating the flag lists in the order of precedence, so that earlier flags win over later ones. That means that when parsing the (final) flag list, conflicting flags are resolved by picking the first flag that matches an option. The checker, on the other hand, can be called for each source separately.cThe last component is a list of descriptors for each single switch/flag that the option is made of.The ?7 type is heavily parameterized. The type arguments are: fThe flag type, such as .d0A type that describes an single flag, such as  or . It should be a .Abstracting over these types is not technically necessary: for the intended application in Darcs, we could as well fix them as d=, and f=, saving two type parameters. However, doing that here would only obscure what's going on, making the code harder to understand, not easier. Besides, the resulting more general type signatures give us additional guarantees, known as "free theorems" (free as in beer, not in speak). In contrast, the type parameters a, b]are necessary to make chaining of options a la typed printf/scanf possible. In a nutshell, af is the result type of a function that consumes the result of parsing or unparsing an option, while b+ is the complete type of such a function.The A and B members use continuation passing style, which is the reason for their apparently "inverted" type signature. To understand them, it helps to look at the type of "primitive" (not yet combined) options (see >! below). For a primitive option, b gets instantiated to v -> a, where vV is the type of values associated with the option. The whole option spec then has type  o :: 'OptSpec' d f a (v -> a) so that the B and A members are instantiated to [ ounparse :: forall a. ([f] -> a) -> (x -> a) oparse :: forall a. (x -> a) -> ([f] -> a),which can be easily seen to be equivalent to + ounparse :: x -> [f] oparse :: [f] -> x:Chaining such options results in a combined option of type 6 o1 ^ o2 ^ ... :: OptSpec d f a (v1 -> v2 -> ... -> a) that is, b gets instantiated to  v1 -> v2 -> ... -> aTo use such an option (primitive or combined), you pass in the consumer. A typical consumer of option values is a command implementation. Given , cmd :: v1 -> v2 -> ... -> [String] -> IO ()/we can parse the flags and pass the results to cmd: ! oparse (o1 ^ o2 ^ ...) cmd flagsA1Convert option value (back) to flag list, in CPS.BaConvert flag list to option value, in CPS. Note: as a pure function, it is not supposed to fail.C7Check for erros in a flag list, returns error messages.D9Descriptions, one for each flag that makes up the option.E Identity ? , unit for FF? composition, associativeGNormalise a flag list by parsing and then unparsing it. This adds all implicit (default) flags to the list, which is useful as long as there is legacy code that circumvents the ?5 abstraction and directly tests for flag membership.2onormalise opts = (oparse opts . ounparse opts) idH!The list of default flags for an ?.&defaultFlags opts = onormalise opts []ILift an isomorphism between b and c to one between ? d f a b and ? d f a c.The forward component of the : is needed for A, the backward component for B4. For the other two components this is the identity.J|Combine two list valued options of the same type "in parellel". This is done by concatenating the resulting option values (B ), flags (A ), errors (C), and descriptors (D'), respectively, of the input options.K Unit for J.LParse a list of flags against a primitive option spec, returning the value associated with the option. As noted above, this cannot fail because options always have a default value. parseFlags o fs = oparse o id fsMSee J and K.>?@ABCDEFGHIJKLMN>?@ABCDEFGHIJKL?@ABCDEFGHIN>JKML >?@ABCDEFGHIJKLMNSafe!"345>IKLN O k lP m n oQRS p q rOPQRSOQSRP O k lP m n oQRS p q r Safe !"345>IKLN TThis is a type of "sane" file paths. These are always canonic in the sense that there are no stray slashes, no ".." components and similar. They are usually used to refer to a location within a Tree, but a relative filesystem path works just as well. These are either constructed from individual name components (using "appendPath", "catPaths" and "makeName"), or converted from a FilePath ("floatPath" -- but take care when doing that) or .X1Check whether a path is a prefix of another path.Y'Append an element to the end of a path.ZCatenate two paths together. Not very safe, but sometimes useful (e.g. when you are representing paths relative to a different point than a Tree root).[&Get parent (path) of a given path. foobarbaz -> foo/bar\%List all parents of a given path. foobarbaz -> [foo, foo/bar]]ATake a "root" directory and an anchored path and produce a full  s. Moreover, you can use  anchorPath "" to get a relative  s.^\Unsafe. Only ever use on bytestrings that came from flatten on a pre-existing AnchoredPath.aTake a relative FilePath and turn it into an AnchoredPath. The operation is (relatively) unsafe. Basically, by using floatPath, you are testifying that the argument is a path relative to some common root -- i.e. the root of the associated Tree' object. Also, there are certain invariants about AnchoredPath that this function tries hard to preserve, but probably cannot guarantee (i.e. this is a best-effort thing). You should sanitize any FilePaths before you declare them "good" by converting into AnchoredPath (using this function).cTake a prefix path, the changed prefix path, and a path to change. Assumes the prefix path is a valid prefix. If prefix is wrong return AnchoredPath [].d8Append a ByteString to the last Name of an AnchoredPath.TUVWXYZ[\]^_`abcdTUVWXYZ[\]^_`abcdVWTUbY]X[\Z_`d^acTUVWXYZ[\]^_`abcdSafe !"345>IKLN 2005 Benedikt SchmidtGPLdarcs-devel@darcs.net experimentalportableSafe !"345>IKLN tQassoc list mapping characters to strings eg (c,s) means that %c is replaced by se parse a commandline returning a list of strings (intended to be used as argv) and a bool value which specifies if the command expects input on stdin format specifiers with a mapping in ftable are accepted and replaced by the given strings. E.g. if the ftable is [(s:,"Some subject")], then "%s" is replaced by "Some subject"fTfor every mapping (c,s), add a mapping with uppercase c and the urlencoded string s t u v w x y z { | } ~ e fefef t u v w x y z { | } ~ e f 2005 Tomasz ZielonkaGPLdarcs-devel@darcs.net experimentalportableNone!"345>IKLNgRegisters an IO action to run just before darcs exits. Useful for removing temporary files and directories, for example. Referenced in Issue1914. ghghgh gh%2008 David Roundy <droundy@darcs.net>GPLdarcs-devel@darcs.net experimentalportableSafe!"345>IKLNi ii  i None !"345>IKLNjjjj  2008 Eric KowGPLdarcs-devel@darcs.net experimentalportableSafe !"345>IKLNk bsingular This (Noun "batch") "" == "this batch" plural This (Noun "batch") "" == "these batches"oThis only distinguishes between nouns with a final -ch, and nouns which do not. More irregular nouns will just need to have their own type tplural (Noun "batch") "" == "batches" plural (Noun "bat") "" == "bats" plural (Noun "mouse") "" == "mouses" -- :-(q/Things that have a plural and singular spellingt englishNum 0 (Noun "watch") "" == "watches" englishNum 1 (Noun "watch") "" == "watch" englishNum 2 (Noun "watch") "" == "watches"u,Given a list of things, combine them thusly: 4orClauses ["foo", "bar", "baz"] == "foo, bar or baz"v,Given a list of things, combine them thusly: 4orClauses ["foo", "bar", "baz"] == "foo, bar or baz"wAs  intersperse:, with a different separator for the last | interspersal.klmnopqrstuvwxyz{klmnopqrstuvwxtqrsopmn{zklyuvwx klmnopqrstuvwxyz{Safe !"345>IKLN|| returns a filter function that tells if a char is a member of the regChar expression or not. The regChar expression is basically a set of chars, but it can contain ranges with use of the  M (dash), and it can also be specified as a complement set by prefixing with   (caret). The dash and caret, as well as the backslash, can all be escaped with a backslash to suppress their special meaning. NOTE: The  b (dot) is allowed to be escaped. It has no special meaning if it is not escaped, but the default  filename_toks7 in Darcs.Commands.Replace uses an escaped dot (WHY?).   unescapes whitespace, which is escaped in the replace patch file format. It will also unescape escaped carets, which is useful for escaping a leading caret that should not invert the regChars. All other escapes are left for the unescaping in  .   assembles the filter function. It handles special chars, and also unescaping of escaped special chars. If a non-special char is still escaped by now we get a failure. | || | 22003 Peter Simons 2003 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone !"345>IKLN.}An  MCalenderTime is an underspecified   It is used for parsing dates. For example, if you want to parse the date '4 January', it may be useful to underspecify the year by setting it to  j*. This uses almost the same fields as  1, a notable exception being that we introduce . to indicate if a weekday was specified or not^Read/interpret a date string, assuming UTC if timezone is not specified in the string (see  A) Warning! This errors out if we fail to interpret the dateConvert a date string into ISO 8601 format (yyyymmdd variant) assuming local timezone if not specified in the string Warning! This errors out if we fail to interpret the date4Return the local timezone offset from UTC in seconds Parse a date string with r Warning! This errors out if we fail to interpret the date Uses its first argument as the default time zone.Parse a date string, assuming a default timezone if the date string does not specify one. The date formats understood are those of   and   Display a  F in the ISO 8601 format without any separators, e.g. 20080825142503+The current time in the format returned by  %Case-insensitive variant of Parsec's   function. %Case-insensitive variant of Parsec's   function. Match a parser at least n times. Match a parser at least n times, but no more than m times. 5Try each of these date parsers in the following order     "CVS-style date/times, e.g. 200708:25 14:25:39 GMT Note that time-zones are optional here. s"Old"-style dates, e.g. Tue Jan 3 14:08:07 EST 1999 darcs-doc: Question (what does the "old" stand for really?) ;ISO 8601 dates and times. Please note the following flaws:I am reluctant to implement: years > 9999<truncated representations with implied century (89 for 1989)I have not implemented:!repeated durations (not relevant)-lowest order component fractions in intervalsnegative dates (BC)-I have not verified or have left too relaxed:!the difference between 24h and 0hallows stuff like 2005-1212; either you use the hyphen all the way (2005-12-12) or you don't use it at all (20051212), but you don't use it halfway, likewise with timevNo bounds checking whatsoever on intervals! (next action: read iso doc to see if bounds-checking required?) -} Three types of ISO 8601 date:6calendar date, e.g., 1997-07-17, 1997-07, 199707, 1997#week+day in year, e.g., 1997-W32-4day in year, e.g, 1997-273 RNote that this returns a function which sets the time on another calendar (see   for a list of flawsIntervals in ISO 8601, e.g.,2008-09/2012-08-17T16:302008-09/P2Y11MT16H30MP2Y11MT16H30M/2012-08-17T16:30See Durations in ISO 8601, e.g.,P4Y (four years)P5M (five months)"P4Y5M (four years and five months)2P4YT3H6S (four years, three hours and six seconds)   p xs/ parses a string with the obligatory parser p. If this suceeds, it continues on to the rest of the input using the next parsers down the chain. Each part of the chain consists of a parser for a separator and for the content itself. The separator is optional.oA good use of this function is to help in parsing ISO ISO 8601 dates and times. For example, the parser *optchain year [(dash, month), (dash, day)] accepts dates like 2007 (only the year is used), 2007-07 (only the year and month), 200707 (only the year and month with no separator), 2007-07-19 (year, month and day). hOne or more space. WARNING! This only matches on the space character, not on whitespace in general ;English three-letter day abbreviations (e.g. Mon, Tue, Wed) Four-digit year :One or two digit month (e.g. 3 for March, 11 for November)  January is 1, February is 2, etc =English three-letter month abbreviations (e.g. Jan, Feb, Mar)  day in one or two digit notation hour in two-digit notation minute in two-digit notation second in two-digit notation limited timezone support+HHMM or -HHMMUniversal timezones: UTC, UTZones from GNU coreutilslib5getdate.y, less half-hour ones -- sorry Newfies.>any sequence of alphabetic characters (WARNING! treated as 0!)AIn English, either a date followed by a time, or vice-versa, e.g,yesterday at noonyesterday tea time12:00 yesterdaySee   and  w Uses its first argument as "now", i.e. the time relative to which "yesterday", "today" etc are to be interpreted :Specific dates in English as specific points of time, e.g,today yesterday/last week (i.e. the beginning of that interval)4 months ago (via  )The first argument is "now". 0English expressions for points in the past, e.g. 4 months ago 1 day agoday before yesterdaySee  *English expressions for intervals of time,1before tea time (i.e. from the beginning of time)&after 14:00 last month (i.e. till now) between last year and last month2in the last three months (i.e. from then till now)!4 months ago (i.e. till now; see  )Durations in English that begin with the word "last", E.g. "last 4 months" is treated as the duration between 4 months ago and now  Either an  ; or one of several common English time expressions like noon or 'tea time' Some English durations, e.g.day4 score7 years 12 monthswThis is not particularly strict about what it accepts. For example, "7 yeares", "4 scores" or "1 days" are just fine. +The very beginning of time, i.e. 1970-01-01Trivially convert a   to a fully specified } (note that this sets the  flag to FalseReturns the first   that falls within a }p This is only unsafe in the sense that it plugs in default values for fields that have not been set, e.g. January for the month or 0T for the seconds field. Maybe we should rename it something happier. See also    i d multiplies every field in d with iFIXME; this seems like a terrible idea! it seems like we should get rid of it if at all possible, maybe adding an invertDiff functionsSet a calendar to UTC time any eliminate any inconsistencies within (for example, where the weekday is given as ThursdayN, but this does not match what the numerical date would lead one to expect)   c mc- replaces any field which is specified in mc with the equivalent field in c -copyCalendar c nullMCalendar == nullMCalendarZero the time fields of a  K}~ }~ }~=}~ None!"+345>IKLNProduce a base16 (ascii-hex) encoded string from a hash. This can be turned back into a Hash (see "decodeBase16". This is a loss-less process.4Take a base64/url-encoded string and decode it as a Hash-. If the string is malformed, yields NoHash.0Take a base16-encoded string and decode it as a Hash-. If the string is malformed, yields NoHash.Compute a sha256 of a (lazy) ByteString. However, although this works correctly for any bytestring, it is only efficient if the bytestring only has a sigle chunk.  2005 Tomasz ZielonkaGPLdarcs-devel@darcs.net experimentalportableNone!"345>IKLN  2008 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone!"345>IKLNbeginTedious k/ starts a tedious process and registers it in   with the key kC. A tedious process is one for which we want a progress indicator.Wouldn't it be safer if it had type String -> IO ProgressDataKey, so that we can ensure there is no collision? What happens if you call beginTedious twice with the same string, without calling endTedious in the meantime? endTedious k* unregisters the tedious process with key k , printing Done" if such a tedious process exists.XXX: document this constant!   None!"345>IKLN  2003 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone!"+345>IKLN command to run any argumentsexitcode, stderr  None !"345>IKLN Expected properties:2only ever runs once in the lifetime of the program"environment variables override alltries Putty first on Windowsfalls back to plain old ssh  Safe!"+345>IKLNA drop-in replacement for  q, which allows us to catch anything but a signal. Useful for situations where we don't want to inhibit ctrl-C.   Safe!"+3457>IKLN lThe firstJustM returns the first Just entry in a list of monadic operations. This is close to `listToMaybe   sequence`, but the sequence operator evaluates all monadic members of the list before passing it along (i.e. sequence is strict). The firstJustM is lazy in that list member monads are only evaluated up to the point where the first Just entry is obtained.The firstJustIO is a slight modification to firstJustM: the entries in the list must be IO monad operations and the firstJustIO will silently turn any monad call that throws an exception into Nothing, basically causing it to be ignored.  Safe !"345>IKLN2004 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone!"345;>IKLN A  combines a potential parse for a date string with a "matcher" function that operates on a given date. We use an existential type on the matcher to allow the date string to either be interpreted as a point in time or as an interval.   x y is true if x <= y < (x + one_day)+ Note that this converts the two dates to  ClockTime& to avoid any timezone-related errors   x1 x2 y is true if  x1 <= y < x2 Since x1 and x2U can be underspecified, we simply assume the first date that they could stand for.   x1 x2 y is true if  x1 <= y < x2   x1 x2 y is true if  x1 <= y < x2    range exact is true if exact5 falls within the a range of dates represented by rangeY. The purpose of this function is to support matching on partially specified dates. That is, if you only specify the date 2007, this function should match any dates within that year. On the other hand, if you specify 2007-01, this function will match any dates within that month. This function only matches up to the second. s" return the first matcher in  that can parse s d9 returns the list of matchers that will be applied on dm. If you wish to extend the date parsing code, this will likely be the function that you modify to do so.   ms' returns the first successful match in ms* It is an error if there are no matches   Safe !"345>IKLN@Used for indicating a patch type without having a concrete patchNone !"345>IKLNonly shown on help!Ask the user for a line of input.Ask the user to press EnteraskUserListItem prompt xs enumerates xs? on the screen, allowing the user to choose one of the itemsPrompt the user for a yes or noHPrompt the user for a character, among a list of possible ones. Always returns a lowercase character. This is because the default character (ie, the character shown in uppercase, that is automatically selected when the user presses the space bar) is shown as uppercase, hence users may want to enter it as uppercase. The prompt to displayThe string the user entered.The prompt to display  Safe !"345>IKLNXRead/interpret a date string, assuming UTC if timezone is not specified in the string %Case-insensitive variant of Parsec's   function. %Case-insensitive variant of Parsec's   function. Match a parser at least n times. Match a parser at least n times, but no more than m times.                                  Safe !"345>IKLN  Safe!"345>IKLN                    None!"345<>IKLNNone !"345>IKLNJAn witness aware equality class. A minimal definition defines any one of ,  and .yIt is unsafe to define a class instance via this method, because if it returns True then the default implementations of  and , will coerce the equality of two witnesses.&Calling this method is safe, although  or  would be better choices as it is not usually meaningul to compare two patches that don't share either a starting or an ending contextCompare two things with the same starting witness. If the things compare equal, evidence of the ending witnesses being equal will be returned.Compare two things with the same ending witness. If the things compare equal, evidence of the starting witnesses being equal will be returned.U is used to pass around evidence (or lack thereof) of two witness types being equal.      None!"345>IKLN  abstracts over ! and # for code constructing these values An empty , e.g. NilFL or NilRLA e constructed from a completely polymorphic value, for example the constructors for primitive patches Compose two C values together in series, e.g. 'joinGap (+>+)' or 'joinGap (:>:)'! p is  forall y . exists x . p x y  In other words the caller is free to specify the right witness, and then the left witness is an existential. Note that the order of the type constructors is important for ensuring that  x  is dependent on the  y  that is supplied.!! p is  forall x . exists y . p x y  In other words the caller is free to specify the left witness, and then the right witness is an existential. Note that the order of the type constructors is important for ensuring that  y  is dependent on the  x  that is supplied. This is why #2 is needed, rather than writing the more obvious - (&O p) which would notionally have the same quantification of the type witnesses.##5 is a type level composition operator. For example,  # (- p)  is equivalent to  \x -> - (p x) && is similar to -], but the type argument is universally quantified instead of being existentially quantified.+ The same as -$ but for two parameters (wX and wY).-A - type is a way of hide an existentially quantified type parameter, in this case wX, inside the type. Note that the only thing we can currently recover about the existentially quantified type wX is that it exists.= Unwrap a ! value> Unwrap a  value) !"#$%&'()*+,-./0123456789:;<=>?@ABC!)*+,-./0123456789:;<=>)-./C+,0)*123456789:;<BA&'(#$%!" =>@? !"#$%&'()*+,-./0123456789:;<=>?@ABC!Safe !"345>IKLNG1This type is used to tweak the way that lists of p are shown for a given Patch type pJ. It is needed to maintain backwards compatibility for V1 and V2 patches.H#Show and read lists without braces.IShow lists with a single layer of braces around the outside, except for singletons which have no braces. Read with arbitrary nested braces and parens and flatten them out.JSShow lists without braces. Read with arbitrary nested parens and flatten them out.KShowing and reading lists of patches. This class allows us to control how lists of patches are formatted on disk. For legacy reasons V1 patches have their own special treatment (see G|). Other patch types use the default format which just puts them in a sequence without separators or any prelude/epilogue.nThis means that 'FL (FL p)' etc would be ambiguous, so there are no instances for 'FL p' or other list types. DEFGHIJKLM DEFGHIJKLM KLGHIJMDEFDEFGHIJKLM"None !"345>IKLN NOPQRSTUVWXY NOPQRSTUVWXY XYWSTUNOPQRVNOPQRSTUVWXYN(c) The University of Glasgow 2001, David Roundy 2003-2005GPL (I'm happy to also license this file BSD style but don't want to bother distributing two license files with darcs.droundy@abridgegame.org experimentalportableNone!"345>IKLNZTDo something with the internals of a PackedString. Beware of altering the contents![2readIntPS skips any whitespace at the beginning of its argument, and reads an Int from the beginning of the PackedString. If there is no integer at the beginning of the string, it returns Nothing, otherwise it just returns the int read, along with a B.ByteString containing the remainder of its input.\ Decodes a  ByteString containing UTF-8 to a  e;. Decoding errors are flagged with the U+FFFD character.f$This function acts exactly like the Prelude unlines function, or like Data.ByteString.Char8  h, but with one important difference: it will produce a string which may not end with a newline! That is: unlinesPS ["foo", "bar"]Kevaluates to "foo\nbar", not "foo\nbar\n"! This point should hold true for e as well.TODO: rename this function. g"Decompress the given bytestring into a lazy list of chunks, along with a boolean flag indicating (if True) that the CRC was corrupted. Inspecting the flag will cause the entire list of chunks to be evaluated (but if you throw away the list immediately this should run in constant space).iORead an entire file, which may or may not be gzip compressed, directly into a  f.mORead standard input, which may or may not be gzip compressed, directly into a  f.n<Like readFilePS, this reads an entire file directly into a  f , but it is even more efficient. It involves directly mapping the file to memory. This has the advantage that the contents of the file never need to be copied. Also, under memory pressure the page may simply be discarded, wile in the case of readFilePS it would need to be written to swap. If you read many small files, mmapFilePS will be less memory-efficient than readFilePS, since each mmapFilePS takes up a separate page of memory. Also, you can run into bus errors if the file is modified. NOTE: as with  readFilePSE, the string representation in the file is assumed to be ISO-8859-1.qgbetweenLinesPS returns the B.ByteString between the two lines given, or Nothing if they do not appear.t0Test if a ByteString is made of ascii charactersuDecode a ByteString to a String according to the current locale unsafePerformIO in the locale function is ratified by the fact that GHC 6.12 and above also supply locale conversion with functions with a pure type. Unrecognized byte sequences in the input are skipped. Encode a String to a ByteString with char8 encoding (i.e., the values of the characters become the values of the bytes; if a character value is greater than 255, its byte becomes the character value modulo 256)v?Encode a String to a ByteString according to the current localewTake a  e that represents byte values and re-decode it acording to the current locale. Note: we globally enforce char8 as the default encoding, see Main and  Darcs.UtilsD. This means we get command line args and environment variables as  eas with char8 encoding, too. So we need this to convert such strings back to the user's encoding.%   Z[\] ^_`a bcdefghi !jklmnopqrstu vwZ[\]^_`abcdefghijklmnopqrstuvwZ\]injkmlhg^_efacdb[`poqrstuvw%   Z[\] ^_`a bcdefghi !jklmnopqrstu vw#None !"345>IKLN " "! is the Strict Monad for parsing. #ParserState represents the internal state of the parser. We make it strict and specialize it on ByteString. This is purely to help GHC optimize. If performance were not a concern, it could be replaced with (a, ByteString). $&Applies a parsing function inside the x monad. %,Applies a parsing function, that can return  j, inside the x monad. &@Allows for the inspection of the input that is yet to be parsed.yRun the parserzzT checks if the next space delimited token from the input stream matches a specific  '. Uses  i inside xD to handle failed matches, so that it always returns () on success.{{_ fetches the next whitespace delimited token from from the input and checks if it matches the  ByteString input. Uses  i inside xD to handle failed matches, so that it always returns () on success.|;Only succeeds if the characters in the input exactly match str.}}? looks for optional spaces followed by the end of input. Uses  i inside xD to handle failed matches, so that it always returns () on success. ( (N drops leading spaces and then breaks the string at the next space. Returns  j when the string is empty after dropping leading spaces, otherwise it returns the first sequence of non-spaces and the remainder of the input.~Like  ( except that it is in ParserMHAccepts the next character and returns it. Only fails at end of input.6Only succeeds at end of input, consumes no characters.KAccepts only the specified character. Consumes a character, if available.hParse an integer and return it. Skips leading whitespaces and | uses the efficient ByteString readInt.MDiscards spaces until a non-space character is encountered. Always succeeds.#Discards any characters as long as p# returns True. Always | succeeds.Takes characters while p returns True. Always succeeds.Equivalent to takeTill (==c)7, except that it is optimized for | the equality case.Takes exactly n bytes, or fails.1This is a highly optimized way to read lines that start with a particular character. To implement this efficiently we need access to the parser's internal state. If this is implemented in terms of the other primitives for the parser it requires us to consume one character at a time. That leads to (>>=) wasting significant time. )Helper function for .This is a highly optimized way to read lines that start with a particular character, and stops when it reaches a particular | character. See 8 for details on why this | defined here as a primitive. *Helper function for . +PApplies a function to the input stream and discards the result of the function.If p fails it returns x%, otherwise it returns the result of p.(Attempts each option until one succeeds.Ensure that a parser consumes input when producing a result Causes the initial state of the input stream to be held on to while the parser runs, so use with caution. applies the parser functions to a string and checks that each parser produced a result as it goes. The strictness is in the x instance for  ". ,,Convert from a lazy tuple to a strict tuple.+ " - # .x $ % &yz{|} (~ ) * + , / 0 1 2 3 4 5 6 7xyz{|}~xy|z{}~% " - # .x $ % &yz{|} (~ ) * + , / 0 1 2 3 4 5 6 7$&2001, 2004 Ian Lynagh <igloo@earth.li>GPLdarcs-devel@darcs.net experimentalportableNone!"345>IKLN 8 9 : ; < = > ? @ 8 9 : ; < = > ? @%None !"345>IKLNG A Ab is a wrapper around '[Printable] -> [Printable]' which allows for empty Documents. The simplest  Documents are built from  e s using .?A set of printers to print different types of text to a handle. BuThe State associated with a doc. Contains a set of printers for each hanlde, and the current prefix of the document.Used when rendering a  to indicate if the result should be encoded to the current locale or left alone. In practice this only affects output when a relevant DARCS_DONT_ESCAPE_XXX option is set (see Darcs.Util.Printer.Color) If in doubt, choose .Encode Strings with the current locale. At present ByteStrings are assumed to be in UTF8 and are left alone, so will be mis-encoded in non-UTF8 locales. Don't encode.a  is a bit of enriched text. s get concatanated using , which is right-associative.A T is either a String, a packed string, or a chunk of text with both representations. C C is the  representation of a space. D D is the  representation of a newline.Minimal %s representing the common characters ,  , , and .Minimal %s representing the common characters ,  , , and .Minimal %s representing the common characters ,  , , and .Minimal %s representing the common characters ,  , , and .Minimal %s representing the common characters ,  , , and . is the  that represents "(" is the  that represents ")" doc returns a  with the content of doc# put within a pair of parenthesis.. puts a doc on stdout using the given printer.F puts a doc, followed by a newline on stdout using the given printer./ puts a doc on stdout using the simple printer .4 puts a doc, followed by a newline on stdout using  hputDocWith8 puts a doc on the given handle using the given printer. hputDocLnWithP puts a doc, followed by a newline on the given handle using the given printer.hputDoc& puts a doc on the given handle using like & but with compress data before writingWrite a % to stderr if debugging is turned on. E E h prints a list of s to the handle h FhPrintPrintable h prints a  to the handle h. renders a  into a  e9 with control codes for the special features of the doc. renders a  into a  e using a given set of printers. renders a  into  fC with control codes for the special features of the Doc. See also  readerString. renders a  into a list of  PackedStrings, one for each line.renders a doc into a  f using a given set of printers. renders a  into a list of  PackedStringsZ, one for each chunk of text that was added to the doc, using the given set of printers. G renders a  into a list of  Printablesd using a set of printers. Each item of the list corresponds to a string that was added to the doc. builds a Doc from a  e and a  f> representing the same text, but does not check that they do. builds a  from a  e:. The string is stored in the Doc as both a String and a  f. builds a  from a  f using  builds a  from a  f using  creates a  with invisible text from a  f creates a " representing a user chunk from a  f.- creates a Doc containing just one character. creates a  from a String, using . creates a  from a  e, using  directly creates a " containing invisible text from a String creates a  containing hidden text from a String creates a  containing a user chunk from a String creates a  containing blue text from a String creates a  containing blue text from a String creates a  containing blue text from a String creates a  containing blue text from a String creates a  containing blue text from a String creates a  containing colored text from a String n s is a  representing s line-wrapped at n characters'printable x' creates a  from any . H'printable x' creates a  from any . I'printable x' creates a  from any . J'printable x' creates a  from any . is a  which uses the set 'simplePriners\'' on any handle. KFA set of default printers suitable for any handle. Does not use color. is the simplest 3: it just concatenates together the pieces of the  is the 6 for hidden text. It just replaces the document with . It's useful to have a printer that doesn't actually do anything because this allows you to have tunable policies, for example, only printing some text if it's to the terminal, but not if it's to a file or vice-versa. The empty .)'(<>)' is the concatenation operator for sa  b is a <> b if a is not empty, else empty.a  b is a followed by a space, then b.a  b is a above b. piles vertically a list of s. piles vertically a list of $s leaving a blank line between each.' concatenates (horizontally) a list of sl A L M B N O P C D E F G Q R H I J K SYYS A L M B N O P C D E F G Q R H I J K S&None !"345>IKLN T U T U'None!"345>IKLN-Gives the (user, host, dir) out of an ssh url V W X   V W X(62003 David Roundy 2005 Benedikt SchmidtGPLdarcs-devel@darcs.net experimentalportableNone!"345>IKLNcreate a list of changes between a and b, each change has the form (starta, lima, startb, limb) which means that a[starta, lima) has to be replaced by b[startb, limb) Y'mark hash value where collision occured ZGreturn arrays with changes in a and b (1 indexed), offsets start with 0 [@set changes array for a and b and return number of changed lines \Qreturn (xmid, ymid, cost) for the two substrings a[off_a+1..off_a+1+l_a] and b ]Afind position on diag d with one more insert/delete going forward ^Hfollow snake from northwest to southeast, x and y are absolute positions _Bfind position on diag d with one more insert/delete going backward `Hfollow snake from southeast to northwest, x and y are absolute positionsEtry to create nicer diffs by shifting around regions of changed lines a<goto next unchanged line, return the given line if unchanged bRskip at least one unchanged line, if there is none advance behind the last line cgoto n-th next unchanged line d8goto next changed line, return the given line if changed e@goto previous unchanged line, return the given line if unchanged' f g h i j k l m Y Z [ \ ] ^ _ ` a b c d e n o p q r s t u v w x y' f g h i j k l m Y Z [ \ ] ^ _ ` a b c d e n o p q r s t u v w x y)None!"345>IKLN z.the longest common subsequence of unique items {ZThe patientLcs algorithm is inspired by the "patience" algorithm (for which I don't have a reference handy), in that it looks for unique lines, and uses them to subdivide the problem. I use lcs to diff the unique lines. It is slower, but should lead to "better" diffs, in the sense of ones that better align with what humans think changed.Note that when compared with the Meyers algorithm used in darcs, this is somewhat slower (maybe 4x in some of my tests), but is lacking its stack overflow problem. I'm not sure how it scales in general, but it scales fine (just 10x slower than GNU diff) when comparing a 6M american english dictionary with a british english dictionary of the same size (which isn't a great test, but is the largest pair of somewhat-differing files I could find).Note that the patientLcs algorithm is slower than the one used in lcs for sequences with mostly unique elements (as is common in text files), but much *faster* when the sequence has a high degree of redundancy. i.e. lines usrsharedictwords vs lines (cat usrsharedict words | tr 'a-z' a) |`LCS' stands for ``Longest Common Subsequence,'' and it is a relatively challenging problem to find an LCS efficiently. I'm not going to explain here what an LCS is, but will point out that it is useful in finding how two sequences (lists, in this case) differ. This module implements the Hunt-Szymanski algorithm, which is appropriate for applications in which the sequence is on an infinite alphabet, such as diffing the lines in two files, where many, or most lines are unique. In the best case scenario, a permutation of unique lines, this algorithm is $O(nlog n)$. In the worst case scenario, that of a finite alphabet (i.e. where the number of elements in the sequence is much greater than the number of unique elements), it is an $O(n^2log n)$ algorithm, which is pretty terrible.( } ~   z { | ' } ~   z { | *None !"345>IKLN+None !"345>IKLN"Just copy pristine and inventories*First do a lazy clone then copy everything8Same as Normal but omit telling user they can interrumpt!Just files already known to darcs !All files, i.e. look for new ones!All files, even boring onesR      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWU      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWUQRSKLMHIJTUVWEFGBCD?@A<=>9:;678345012-./*+,()%&'"#$ !  NOP         !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW,None!"345>IKLN the  > type is a record containing the variables which control how "s will be rendered on some output. overall use of color overall use of escaping 1overall use of colored lines (only hunks for now) $alternative to color (bold, inverse) don't escape isprints don't escape 8-bit chars extra chars to never escape extra chars to always escape escape trailing spaces ignore r at end of lines $escape spaces (used with poTrailing)   returns a suitable policy for a given handle. The policy is chosen according to environment variables, and to the type of terminal which the handle represents\\ h7 returns a set of printers suitable for outputting to h   policy< tries to color a Doc, according to policy po. That is, if policy has  poLineColor4 set, then colors the line, otherwise does nothing.   policy string escapes string$ according to the rules defined in policy, turning it into a .   policy c tells wether c0 will be left as-is when escaping according to policy  G tells wether a character is a printable character of the ascii range.  2 represents a special character as a string. *  quoteChar '^c' (where ^c is a control character) is "^c" * Otherwise,  quoteChar returns "hex", where hex1 is the hexadecimal number of the character.   policy doc marks docC with the appropriate marking for escaped characters according to policy   policy color doc colors doc with color color if policyZ is not set to use an alternative to color. In that case, it makes the text bold instead.   doc tries to make docm (usually a single escaped char) stand out with the help of only plain ascii, i.e., no color or font style. )the string to reset the terminal's color.   color doc returns a colorized version of doc. color/ is a string that represents a color, given by    boldens a doc.  * returns an invert video version of a doc., XYZ[ \ ]^_XYZ[\]^_[XYZ\]_^ XYZ[ \ ]^_-None!"345>IKLNajTake a list of paragraphs and format them to the given line length, with a blank line between paragraphs.cTake a list of words and split it up so that each chunk fits into the specified width when spaces are included. Any words longer than the specified width end up in a chunk of their own.`abcde`abcde`abced`abcde.darcs-devel@darcs.net experimentalportableNone!"345>IKLN AwithSSHConnection rdarcs repoid withconnection withoutconnectionF performs an action on a remote host. If we are already connected to repoid , then it does withconnection, else withoutconnection.lReturn the command and arguments needed to run an ssh command First try the appropriate darcs environment variable and SSH_PORT defaulting to "ssh" and no specified port.fghi rdarcsDestination repo idwithconnectionwithoutconnection jk lmno fghijklmno kfghilmnoj fghi  jk lmno/None!"345>IKLNpFormats an e-mail header by encoding any non-ascii characters using UTF-8 and Q-encoding, and folding lines at appropriate points. It doesn't do more than that, so the header name and header value should be well-formatted give or take line length and encoding. So no non-ASCII characters within quoted-string, quoted-pair, or atom; no semantically meaningful signs in names; no non-ASCII characters in the header name; etcetera. Turns a piece of string into a q-encoded block Applies q-encoding, for use in e-mail header values, as defined in RFC 2047. It just takes a string and builds an encoded-word from it, it does not check length or necessity. p qrpqrqrp p qr0None!"345>IKLNtThis is for situations where a string (e.g. a command line argument) may take the value "-" to mean stdin or stdout (which one depends on context) instead of a normal file path.vPaths which are relative to the local darcs repository and normalized. Note: These are understood not to have the dot in front.{_FileName is an abstract type intended to facilitate the input and output of unicode filenames.i translates whitespace in filenames to a darcs-specific format (numerical representation according to  o surrounded by backslashes). Note that backslashes are also escaped since they are used in the encoding. [encodeWhite "hello there" == "hello\32\there" encodeWhite "hello\there" == "hello\92\there"B interprets the Darcs-specific "encoded" filenames produced by  decodeWhite "hello\32\there" == "hello there" decodeWhite "hello\92\there" == "hello\there" decodeWhite "hello\there" == error "malformed filename"convert a path string into a sequence of directories strings "/", "." and ".." are generally interpreted as expected. Behaviour with too many '..' is to leave them.$Examples: Splitting: "aabbIcc" -> ["aa","bb","cc"] Ignoring "." and extra "/": "aa.Ibb" -> ["aa","bb"] "aa//bb" -> ["aa","bb"] "aa9bb/" -> ["aa","bb"] Handling "..": "aa..#bb/cc" -> ["bb","cc"] "aabb....cc" -> ["cc"] "aa..bb..4cc" -> ["cc"] "../cc" -> ["..","cc"]7Make the second path relative to the first, if possible 3Ensure directory exists and is not a symbolic link.EInterpret a possibly relative path wrt the current working directory.Take an absolute path and a string representing a (possibly relative) path and combine them into an absolute path. If the second argument is already absolute, then the first argument gets ignored. This function also takes care that the result is converted to Posix convention and normalized. Also, parent directories ("..") at the front of the string argument get canceled out against trailing directory parts of the absolute path argument.Regarding the last point, someone more familiar with how these functions are used should verify that this is indeed necessary or at least useful. eConvert to posix, remove trailing slashes, and (under Posix) reduce multiple leading slashes to one.'The root directory as an absolute path.cExecute either the first or the second argument action, depending on whether the given path is an u or stdin/stdout. gNormalize the path separator to Posix style (slash, not backslash). This only affects Windows systems. HReduce multiple leading slashes to one. This only affects Posix systems.What is a malicious path?#A spoofed path is a malicious path. =Darcs only creates explicitly relative paths (beginning with "./">), so any not explicitly relative path is surely spoofed.-Darcs normalizes paths so they never contain "/../", so paths with "/../" are surely spoofed.A path to a darcs repository's meta data can modify "trusted" patches or change safety defaults in that repository, so we check for paths containing  "/_darcs/"' which is the entry to darcs meta data.To do?How about get repositories?Would it be worth adding a --semi-safe-paths option for allowing changes to certain preference files (_darcs/prefs/) in sub repositories'?Warning : this is less rigorous than isMaliciousPath but it's to allow for subpath representations that don't start with ./Construct a filter from a list of AnchoredPaths, that will accept any path that is either a parent or a child of any of the listed paths, and discard everything else.Same as  filterPath, but for ordinary  s s (as opposed to AnchoredPath).Iteratively tries find first non-existing path generated by buildName, it feeds to buildName the number starting with -1. When it generates non-existing path and it isn't first, it displays the message created with buildMsg. Usually used for generation of the name like  path_ number when  path# already exist (e.g. darcs.net_0).)Transform a SubPath into an AnchoredPath.R s t u v wxyz{ |}~      >TUVWXYZ[\]^_`abcdstuvwxyz{|}~-{|}~utsvyzwxG  s t u v wxyz{ |}~      1None !"345>IKLN   None!"345>IKLNosxCacheDir assumes ~LibraryCaches/ exists.BxdgCacheDir returns the $XDG_CACHE_HOME environment variable, or ~/.cache3 if undefined. See the FreeDesktop specification: Fhttp://standards.freedesktop.org/basedir-spec/basedir-spec-latest.htmlMgetRecursiveContents returns all files under topdir that aren't directories.getRecursiveContentsFullPath returns all files under topdir that aren't directories. Unlike getRecursiveContents this function returns the full path.      222008 Dmitry Kurochkin <dmitry.kurochkin@gmail.com>GPLdarcs-devel@darcs.net experimentalportableNone!"345>IKLN  J will inspect the current waiting-to-start queue, if the pipe isn't full,            )*+,)*+,            3None!"345>IKLN        4None!"345>IKLNfTries to perform some task if it can obtain the lock, Otherwise, just gives up without doing the taskK safely creates an empty file (not open for writing) and returns its name.The temp file operations are rather similar to the locking operations, in that they both should always try to clean up, so exitWith causes trouble.$ creates a temporary file, and opens it. Both of them run their argument and then delete the file. Also, both of them (to my knowledge) are not susceptible to race conditions on the temporary file (as long as you never delete the temporary file; that would reintroduce a race condition). Creates a directory based on the path parameter; if a relative path is given the dir is created in the darcs temp dir. If an absolute path is given this dir will be created if it doesn't exist. If it is specified as a temporary dir, it is deleted after finishing the job. is like :, except that it doesn't delete the directory afterwards. creates an empty directory and then removes it when it is no longer needed. withTempDir creates a temporary directory. The location of that directory is determined by the contents of _darcsprefs#tmpdir, if it exists, otherwise by  $DARCS_TMPDIRp, and if that doesn't exist then whatever your operating system considers to be a a temporary directory (e.g. $TMPDIR under Unix, $TEMP under Windows).If none of those exist it creates the temporary directory in the current directory, unless the current directory is under a _darcs directory, in which case the temporary directory in the parent of the highest _darcs directory to avoid accidentally corrupting darcs's internals. This should not fail, but if it does indeed fail, we go ahead and use the current directory anyway. If $DARCS_KEEP_TMPDIRW variable is set temporary directory is not removed, this can be useful for debugging.xReads a file. Differs from readBinFile in that it interprets the file in the current locale instead of as ISO-8859-1.Writes a file. Differs from writeBinFile in that it writes the string encoded with the current locale instead of what GHC thinks is right.(          !!%          5None!"345>IKLNfetchFile fileOrUrl cache returns the content of its argument (either a file or an URL). If it has to download an url, then it will use a cache as required by its second argument.We always use default remote darcs, since it is not fatal if the remote darcs does not exist or is too old -- anything that supports transfer-mode should do, and if not, we will fall back to SFTP or SCP.fetchFileLazyPS fileOrUrl cache lazily reads the content of its argument (either a file or an URL). Warning: this function may constitute a fd leak; make sure to force consumption of file contents to avoid that. See "fetchFilePS" for details.   ! " # $ % & ')*+,)*+,   ! " # $ % & '6None!"345>IKLNCCache is an abstract type for hiding the underlying cache locationsiunionRemoteCaches merges caches. It tries to do better than just blindly copying remote cache entries:If remote repository is accessed through network, do not copy any cache entries from it. Taking local entries does not make sense and using network entries can lead to darcs hang when it tries to get to unaccessible host.If remote repositoty is local, copy all network cache entries. For local cache entries if the cache directory exists and is writable it is added as writable cache, if it exists but is not writable it is added as read-only cache.This approach should save us from bogus cache entries. One case it does not work very well is when you fetch from partial repository over network. Hopefully this is not a common case.}Compares two caches, a remote cache is greater than a local one. The order of the comparison is given by: local < http < ssh< computes the cache hash (i.e. filename) of a packed string."fetchFileUsingCache cache dir hash receives a list of caches cache-, the directory for which that file belongs dir and the hash of the file to fetch. It tries to fetch the file from one of the sources, trying them in order one by one. If the file cannot be fetched from any of the sources, this operation fails.(hashedFilePath cachelocation subdir hash( returns the physical filename of hash hash in the subdir section of  cachelocation. (0hashedFilePathReadOnly cachelocation subdir hash( returns the physical filename of hash hash in the subdir section of  cachelocationF. If directory, assume it is non-bucketed cache (old cache location).peekInCache cache subdir hash tells whether cache# and contains an object with hash hashS in a writable position. Florent: why do we want it to be in a writable position?/speculateFileUsingCache cache subdirectory name takes note that the file namev is likely to be useful soon: pipelined downloads will add it to the (low-priority) queue, for the rest it is a noop.Note that the files are likely to be useful soon: pipelined downloads will add them to the (low-priority) queue, for the rest it is a noop. )We hace a list of locations (cachez) ordered from "closest/fastest" (typically, the destination repo) to "farthest/slowest" (typically, the source repo). copyFileUsingCache! first checks whether given file f is present in some writeable location, if yes, do nothing. If no, it copies it to the last writeable location, which would be the global cache by default, or the destination repo if  `--no-cache` is passed. Function does nothing if there is no writeable location at all. If the copy should occur between two locations of the same filesystem, a hard link is actually made. TODO document oos&: what happens when we only speculate? *lChecks if a given cache entry is reachable or not. It receives an error caught during execution and the cache entry. If the caches is not reachable it is blacklisted and not longer tried for the rest of the session. If it is reachable it is whitelisted and future errors with such cache get ignore. To determine reachability: * For a local cache, if the given source doesn't exist anymore, it is blacklisted. * For remote sources if the error is timeout, it is blacklisted, if not, it checks if _darcs/hashed_inventory exist, if it does, the entry is whitelisted, if it doesn't, it is blacklisted. +IReturns a list of reachables cache entries, removing blacklisted entries. ,<Checks if the _darcs/hashed_inventory exist and is reachable -eGet contents of some hashed file taking advantage of the cache system. We hace a list of locations (cache4) ordered from "closest/fastest" (typically, the destination repo) to "farthest/slowest" (typically, the source repo). First, if possible it copies the file from remote location to local. Then, it reads it contents, and links the file across all writeable locations including the destination repository. ."write compression filename content writes content to the file filename" according to the policy given by  compression. 5writeFileUsingCache cache compression subdir contents write the string contents to the directory subdir, except if it is already in the cache, in which case it is a noop. Warning (?) this means that in case of a hash collision, writing using writeFileUsingCache is a noop. The returned value is the filename that was given to the string. 2Prints an error message with a list of bad caches.: / 0 1 2 3 4 5 ( ) 6 * + , - 7 .   8 9 : ;&    &    * / 0 1 2 3 4 5 ( ) 6 * + , - 7 .   8 9 : ;7None!"345>IKLN Representation of the format of a repository. Each sublist corresponds to a line in the format file. Currently all lines are expected to be singleton words. <HDefine string constants in one place, for reuse in show/parse functions. =HDefine string constants in one place, for reuse in show/parse functions. >HDefine string constants in one place, for reuse in show/parse functions.4Is a given property contained within a given format?,Add a single property to an existing format.1Remove a single property from an existing format.Identify the format of the repository at the given location (directory, URL, or SSH path). Fails if we weren't able to identify the format.dIdentify the format of the repository at the given location (directory, URL, or SSH path). Return  ? reason if it fails, where reason{ explains why we weren't able to identify the format. Note that we do no verification of the format, which is handled by  or  on the resulting  .(Write the repo format to the given file.+createRepoFormat useFormat1 useNoWorkingDir create a repo formatwriteProblem form+ tells if we can write to a repo in format form6, first checking if we can read that repo It returns Nothing5 if there's no problem writing to such a repository. source target returns  @G an error message if we cannot transfer patches from a repo in format source to a repo in format target, or  j if there are no such problem. source returns  @; an error message if we cannot read from a repo in format source, or  j if there's no such problem. A A{ applies a function that maps format-entries to an optional error message, to each repoformat entry. Returning any errors. B<Does this version of darcs know how to handle this property?  < = > C D E A B F G    < = > C D E A B F G8None!"345>IKLN&-The path of the global preference directory; ~/.darcs on Unix, and %APPDATA%/darcs on Windows.'6The relative path of the global preference directory; ~/.darcs on Unix, and %APPDATA%/darcs3 on Windows. This is used for online documentation.+(oldGlobalCacheDir is the old cache path ~.darcscache% now ony used with read-only access. HtryMakeBoringRegexp attempts to create a Regex from a given String. The evaluation is forced, to ensure any malformed exceptions are thrown here, and not later.,boringRegexps returns a list of the boring regexps, from the local and global prefs/boring files. Any invalid regexps are filtered, preventing an exception in (potentially) pure code, when the regexps are used. I%The lines that will be inserted into _darcsprefsbinaries when  darcs initX is run. Hence, a list of comments, blank lines and regular expressions (ERE dialect).hNote that while this matches .gz and .GZ, it will not match .gZ, i.e. it is not truly case insensitive.9(addRepoSource adds a new entry to _darcsprefs)repos and sets it as default in _darcsprefspdefaultrepo, unless --no-set-default or --dry-run is passed, or it is the same repository as the current one.:delete references to other repositories. Used when cloning to a ssh destination. Assume the current working dir is the repository.+ !" J K# L$% M&'()*+ H,- N O P I./ Q R01 S2345 T6 U78 V9:; !"#$%&'()*+,-./0123456789:;0:12)(7894563#,-% !"/;.$*'&+) !" J K# L$% M&'()*+ H,- N O P I./ Q R01 S2345 T6 U78 V9:;9None !"345>IKLN<?Fetch and return the message of the day for a given repository.=6Display the message of the day for a given repository,<=<=<=<=:None !"345>IKLN>The >Z type is a list of all flags that can ever be passed to darcs, or to one of its commands.>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~;None!"345>IKLN@The raw material from which multi-valued options are built. See  . WA ) that requires a single argument of type a and handles flags of type f.This is >& instantiated with 'DarcsOptDescr and .We do not instantiate the d in ? d f directly with  X%. Instead we (post-) compose it with (->) +. Modulo newtype noise, this is the same as  type 'DarcsOptDescr f =  X (u -> f)This is so we can pass a directory relative to which an option argument is interpreted (if it has the form of a relative path).qThis type synonym is here for brevity and because we want to import the data constructors (but not the type) of > qualified..Construct an 'DarcsOptDescr with no arguments.#Construct an 'DarcsOptDescr with a  e argument.-Construct an 'DarcsOptDescr with an optional  e argument. $Construct an 'DarcsOptDescr with an u argument. $Construct an 'DarcsOptDescr with an t argument. -Construct an 'DarcsOptDescr with an optional u argument. YNGet the long switch names from a raw option. Used to construct error messages. ZGiven a list of *, find all flags that match a given value. [Given a list of c, find all values that match a given flag list in the order in which they appear in the flag list. \?The first element of a list, or a default if the list is empty. ]LAppend " [DEFAULT" to the help text of options that match the default value.  Construct a $ from a default value and a list of .HPrecondition: the list must have an entry for each possible value (type v).  Construct a  ^S valued option with a single flag that takes no arguments and has no default flag.JThe arguments are: short switches, long switches, flag value, help string. Construct a  i  e0 valued option with a single flag that takes a  e" argument and has no default flag.eThe arguments are: short switches, long switches, flag constructor, single flag parser, help string. Construct a  i u1 valued option with a single flag that takes an u" argument and has no default flag.eThe arguments are: short switches, long switches, flag constructor, single flag parser, help string. Similar to c, except that the flag can be given more than once. The flag arguments are collected in a list of  es. Similar to ., except that the flag arguments are optional. Similar to c, except that the flag can be given more than once. The flag arguments are collected in a list of us. _^A multi-arg option, defined in terms of a single-arg option, returning a list of single args.The parameters are: single argument description, short switches, long switches, flag constructor, flag list parser, arg name string, help string.eA deprecated option. If you want to deprecate only some flags and not the whole option, extract the s out of the original option and create a new deprecated option. The strings in the first argument are appended to the automatically generated error message in case additional hints should be provided. W   Y Z [ \ ]   _ `tu          ut W   Y Z [ \ ]   _ `<None !"345>IKLN a b c a b c=None!"345>IKLN Parallel Pairs(Forking Pair (Explicit starting context)  wX wY \ / \ / \ / wU | | | wA  Joining Pairs)Forking Pairs (Implicit starting context) Reverse lists  Forward lists#Directed Reverse Pairs%Directed Forward Pairs)filterOutFLFL p xs deletes any x in xs for which  p x == IsEq (indicating that xX has no effect as far as we are concerned, and can be safely removed from the chain)ICheck that two  7s are equal element by element. This differs from the  instance for   which uses commutation.H !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK d e f g h i j k l m n o p q r s t7 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK7%&#$ !"B?;2978@456:CDA>=)*+./,-'01E(FGH3<IJK> !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK d e f g h i j k l m n o p q r s t!#$%&,->None !"345>IKLNMThis type exists for legacy support of on-disk format patch formats. It is a wrapper type that explicitly tracks the nesting of braces and parens in the on-disk representation of such patches. It is used as an intermediate form when reading such patches normally, and also for round-tripping such patches when checking the hash in bundles. It shouldn't be used for anything else. LMNOPQRST u LMNOPQRST MNOPSQLTRLMNOPQRST u?None !"345>IKLNWFCommuteFn is the basis of a general framework for building up commutation operations between different patch types in a generic manner. Unfortunately type classes are not well suited to the problem because of the multiple possible routes by which the commuter for (FL p1, FL p2) can be built out of the commuter for (p1, p2) - and more complicated problems when we start building multiple constructors on top of each other. The type class resolution machinery really can't cope with selecting some route, because it doesn't know that all possible routes should be equivalent. UVWXYZ[\]^_ UVWXYZ[\]^_ WY\X]UZV[^_ UVWXYZ[\]^_@None !"345>IKLN`ab v w`ab`ab`ab v wANone !"345>IKLNc PatchDebug is a hook class for temporarily adding debug information. To use it, add any methods that are required, implement those methods where needed, and then make it available in the relevant contexts. For example it can be temporarily added as a superclass of Patchy. The advantage of having it here already is that everything is (or should be) declared as an instance of it, so you can use defaulting or just leave out declarations of instance methods and code will still compile.dRA dummy method so we can export/import PatchDebug(..) without triggering warningscd x ycdcdcd x yBNone !"345>IKLNeSProvides a hook for flagging whether a patch is "internal" to the repo and therefore shouldn't be referred to externally, e.g. by inclusion in tags. Note that despite the name, every patch type has to implement it, but for normal (non-internal) types the default implementation is fine. Currently only used for rebase internal patches.f<maybe (const NotEq) (fmap isInternal patchInternalChecker) p returns  if p is internal, and ? otherwise. The two-level structure is purely for efficiency:  jM and 'Just (InternalChecker (const NotEq))' are semantically identical, but  jT allows clients to avoid traversing an entire list. The patch type is passed as an  > because that's how the internals of named patches are stored.efghijefghijghiefjefghijCNone!"345>IKLNq^"Clowns to the left of me, jokers to the right. Here I am, stuck in the middle of you" 0http://en.wikipedia.org/wiki/Stuck_in_the_MiddlerSee qklmnopqrstuvwxklmnopqrstuvwxklpuvstrqmonwx klmnopqrstuvwxDNone !"345>IKLNyA PatchInfo value contains the metadata of a patch. The date, name, author and log fields are UTF-8 encoded text in darcs 2.4 and later, and just sequences of bytes (decoded with whatever is the locale when displayed) in earlier darcs.'The members with names that start with '_'_ are not supposed to be used directly in code that does not care how the patch info is stored.patchinfo date name author log constructs a new y value with the given details, automatically assigning an Ignore-this header to guarantee the patch is unique. The function does not verify the date string's sanity.NaddJunk adds a line that contains a random number to make the patch unique.DGet the name, including an "UNDO: " prefix if the patch is inverted.Returns the author of a patch.&Returns the name of the patch. Unlike H, it does not preprend "UNDO: " to the name if the patch is inverted.Returns the author of a patch. zNote: we ignore timezone information in the date string, systematically treating a time as UTC. So if the patch tells me it's 17:00 EST, we're actually treating it as 17:00 UTC, in other words 11:00 EST. This is for backwards compatibility to darcs prior to 2003-11, sometime before 1.0. Fortunately, newer patch dates are written in UTC, so this timezone truncation is harmless for them.Get the log message of a patch..Get the tag name, if the patch is a tag patch. {Convert a metadata ByteString to a string. It first tries to convert using UTF-8, and if that fails, tries the locale encoding. We try UTF-8 first because UTF-8 is clearly recognizable, widely used, and people may have UTF-8 patches even when UTF-8 is not their locale.This makes darcs-1 (non-hashed repos) filenames, and is also generally used in both in hashed and non-hashed repo code for making patch "hashes".$The name consists of three segments:3timestamp (ISO8601-compatible yyyymmmddHHMMSS, UTC)SHA1 hash of the authorHSHA1 hash of the patch name, author, date, log, and "inverted" flag.Hash on patch metadata (patch name, author, date, log, and "inverted" flag. Robust against context changes but does not garantee patch contents. Usually used as matcher or patch identifier (see Darcs.Patch.Match).(Patch is stored between square brackets. [ <patch name> <patch author>*<patch date> <patch log (may be empty)> (indented one) <can have multiple lines in patch log,> <as long as they're preceded by a space> <and don't end with a square bracket.> ]=note that below I assume the name has no newline in it. See  for the inverse operation. Parser for y> as stored in patch bundles and inventory files, for example: [Document the foo interface John Doe <john.doe@example.com>**20110615084241 Ignore-this: 85b94f67d377c4ab671101266ef9c229 Nobody knows what a 'foo' is, so describe it. ]See  for the inverse operation.*yz{|}~ | } z { ~   yz{|}~ yz{|}~$yz{|}~ | } z { ~   ENone!"-345>IKLN&This is used to track changes to filesThis is an invalid patch e.g. there is a patch 'Move Autoconf.lhs Autoconf.lhs.in' where there is no Autoconf.lhs in the darcs repolthis is used for duplicate patches that don't have any effect, but we still want to keep track of themdescribes a filepath that is interpreted relative to a certain point in the history of the repository. The point is given by Just pid which denotes the history up to (including) pid or Nothing which denotes the history including the last patchUThe PatchId identifies a patch and can be created from a PatchInfo with makePatchnameThe FileId for a file consists of the FilePath (creation name) and an index. The index denotes how many files with the same name have been added before (and subsequently deleted or moved)Parse FileId from a stringConvert FileId to string FNone!"3457>IKLNGiven  pred tree , produce a  that only has items for which pred returns True\. The tree might contain stubs. When expanded, these will be subject to filtering as well.Abstraction of a filesystem tree. Please note that the Tree returned by the respective read operations will have TreeStub items in it. To obtain a Tree without such stubs, call expand on it, eg.: (tree <- readDarcsPristine "." >>= expandWhen a Tree is expanded, it becomes "final". All stubs are forced and the Tree can be traversed purely. Access to actual file contents stays in IO though.A Tree may have a Hash associated with it. A pair of Tree's is identical whenever their hashes are (the reverse need not hold, since not all Trees come equipped with a hash).Get hash of a Tree. This is guaranteed to uniquely identify the Tree (including any blob content), as far as cryptographic hashes are concerned. Sha256 is recommended.)Get a hash of a TreeItem. May be Nothing. Look up a % item (an immediate subtree or blob).Find a  by its path. Gives  j if the path is invalid.Find a  by its path. Gives  j6 if the path is invalid, or does not point to a Blob.Find a  by its path. Gives  j6 if the path is invalid, or does not point to a Tree.List all contents of a .Expand a stubbed Tree into a one with no stubs in it. You might want to filter the tree before expanding to save IO. This is the basic implementation, which may be overriden by some Tree instances (this is especially true of the Index case).Unfold a path in a (stubbed) Tree, such that the leaf node of the path is reachable without crossing any stubs. Moreover, the leaf ought not be a Stub in the resulting Tree. A non-existent path is expanded as far as it can be.Check the disk version of a Tree: expands it, and checks each hash. Returns either the expanded tree or a list of AnchoredPaths where there are problems. The first argument is the hashing function used to create the tree.Given two Trees, a guide and a tree., produces a new Tree that is a identical to tree5, but only has those items that are present in both tree and guide. The guide Tree may not contain any stubs.ORead a Blob into a Lazy ByteString. Might be backed by an mmap, use with care.For every pair of corresponding blobs from the two supplied trees, evaluate the supplied function and accumulate the results in a list. Hint: to get IO actions through, just use sequence on the resulting list. NB. This won't expand any stubs.'For each file in each of the two supplied trees, evaluate the supplied function (supplying the corresponding file from the other tree, or Nothing) and accumulate the results in a list. Hint: to get IO actions through, just use sequence on the resulting list. NB. This won't expand any stubs. Helper function for taking the union of AnchoredPath lists that are already sorted. This function does not check the precondition so use it carefully.Cautiously extracts differing subtrees from a pair of Trees. It will never do any unneccessary expanding. Tree hashes are used to cut the comparison as high up the Tree branches as possible. The result is a pair of trees that do not share any identical subtrees. They are derived from the first and second parameters respectively and they are always fully expanded. It might be advantageous to feed the result into  or .:Modify a Tree (by replacing, or removing or adding items).Does not expand the tree.Does not expand the tree.Lay one tree over another. The resulting Tree will look like the base (1st parameter) Tree, although any items also present in the overlay Tree will be taken from the overlay. It is not allowed to overlay a different kind of an object, nor it is allowed for the overlay to add new objects to base. This means that the overlay Tree should be a subset of the base Tree (although any extraneous items will be ignored by the implementation).3     02)     GNone!"345>IKLN ~Change content of a file at a given path. The change will be eventually flushed to disk, but might be buffered for some time.=Grab content of a file in the current Tree at the given path.BCheck for existence of a node (file or directory, doesn't matter).#Check for existence of a directory.Check for existence of a file.A ) monad. A sort of like IO but it keeps a ] around as well, which is a sort of virtual filesystem. Depending on how you obtained your c, the actions in your virtual filesystem get somehow reflected in the actual real filesystem. For 4, nothing happens in real filesystem, however with  plainTreeIO?, the plain tree will be updated every now and then, and with  hashedTreeIO- a darcs-style hashed tree will get updated.Internal state of the r monad. Keeps track of the current Tree content, unsync'd changes and a current working directory (of the monad).cRun a TreeIO action without storing any changes. This is useful for running monadic tree mutations for obtaining the resulting Tree (as opposed to their effect of writing a modified tree to disk). The actions can do both read and write -- reads are passed through to the actual filesystem, but the writes are held in memory in a form of modified Tree. Modifies an item in the current Tree. This action keeps an account of the modified data, in changed and changesize, for subsequent flush operations. Any modifications (as in "modifyTree") are allowed.Replace an item with a new version without modifying the content of the tree. This does not do any change tracking. Ought to be only used from a sync implementation for a particular storage format. The presumed use-case is that an existing in-memory Blob is replaced with a one referring to an on-disk file. :If buffers are becoming large, sync, otherwise do nothing.*              HNone !"345>IKLNrun a list of s. In some monads (typically IO-based ones), the progress and error messages will be used. In others they will be ignored and just the actions will be run.a monadic action, annotated with a progress message that could be printed out while running the action, and a message that could be printed out on error. Actually printing out these messages is optional to allow non-IO monads to just run the action.run a list of s without any feedback messages   INone!"3457>IKLN -trackOrigRename takes an old and new name and attempts to apply the mapping to the OrigFileNameOf pair. If the old name is the most up-to-date name of the file in question, the first element of the OFNO will match, otherwise if the up-to-date name was originally old, the second element will match.withFileNames takes a maybe list of existing rename-pairs, a list of filenames and an action, and returns the resulting triple of affected files, updated filename list and new rename details. If the rename-pairs are not present, a new list is generated from the filesnames.(                          JNone!"3457>CIKLN      KNone !"345>IKLN Write out fulla tree to a plain directory structure. If you instead want to make incremental updates, refer to Storage.Hashed.Monad.Run a = action in a plain tree setting. Writes out changes to the plain tree every now and then (after the action is finished, the last tree state is always flushed to disk). XXX Modify the tree with filesystem reading and put it back into st (ie. replace the in-memory Blobs with normal ones, so the memory can be GCd).  LNone!"3457>IKLN 1nextF is the position of the next item, in bytes. resitemF is the item extracted. s_fileIDs contains the fileids of the files and folders inside, in a folder item and its own fileid for file item). @marks if the item has changed since the last update to the index 0next is the position of the next item, in bytes. {treeitem is Nothing in case of the item doesn't exist in the tree or is filtered by a FilterTree. Or a TreeItem otherwise. resitem is the item extracted. Description of a a single indexed item. The structure itself does not contain any data, just pointers to the underlying mmap (bytestring is a pointer + offset + length).gThe structure is recursive-ish (as opposed to flat-ish structure, which is used by git...) It turns out that it's hard to efficiently read a flat index with our internal data structures -- we need to turn the flat index into a recursive Tree object, which is rather expensive... As a bonus, we can also efficiently implement subtree queries this way (cf. !). Lay out the basic index item structure in memory. The memory location is given by a ForeignPointer () and an offset. The path and type given are written out, and a corresponding Item is given back. The remaining bits of the item can be filled out using update. =Read the on-disk representation into internal data structure.See the module-level section  Index format- for details on how the index is structured. kUpdate an existing item with new hash and optionally mtime (give Nothing when updating directory entries). Gives a ForeignPtr to mmapped index, which can be used for reading and updates. The req_size parameter, if non-0, expresses the requested size of the index file. mmapIndex will grow the index if it is smaller than this. kReturn a list containing all the file/folder names in an index, with their respective ItemType and FileID.!Read an index and build up a  object from it, referring to current working directory. The initial Index object returned by readIndex is not directly useful. However, you can use C on it. Either way, to obtain the actual Tree object, call update.The usual use pattern is this: Hdo (idx, update) <- readIndex tree <- update =<< filter predicate idx*The resulting tree will be fully expanded."8Will add and remove files in index to make it match the ' object given (it is an error for the c to contain a file or directory that does not exist in a plain form in current working directory).#Check that a given file is an index file with a format we can handle. You should remove and re-create the index whenever this is not true.$SFor a given file or folder path, get the corresponding fileID from the filesystem.K   ! "#$  !"#$!"# $5        ! "#$ MNone!"345>@IKLN%Object storage. Contains a single "hatchery" and possibly a number of mature space blocks, usually in form of packs. It also keeps a list of root pointers and has a way to extract pointers from objects (externally supplied). These last two things are used to implement a simple GC.+Object storage block. When used as a hatchery, the loose or compact format are preferable, while for mature space, the pack format is more useful..On-disk format for object storage: we implement a completely loose format (one file per object), a compact format stored in a single append-only file and an immutable "pack" format.2Reduce number of packs in the object storage. This may both recombine packs to eliminate dead objects and join some packs to form bigger packs.3Add new objects to the object storage (i.e. put them into hatchery). It is safe to call this even on objects that are already present in the storage: such objects will be skipped.4,Move things from hatchery into a (new) pack.6Create an empty object storage in given directory, with a hatchery of given format. The directory is created if needed, but is assumed to be empty.8cBuild a map of live objects (i.e. those reachable from the given roots) in a given list of Blocks.% &'()*+ , -./01 234 567 8%&'()*+,-./012345678./01+,-%&'()*342567-,8&'()*% &'()*+ , -./01 234 567 8NNone !"345>IKLN 99B interprets the Darcs-specific "encoded" filenames produced by : darcsDecodeWhite "hello\32\there" == "hello there" darcsDecodeWhite "hello\92\there" == "hello\there" darcsDecodeWhite "hello\there" == error "malformed filename":: translates whitespace in filenames to a darcs-specific format (backslash followed by numerical representation according to  Q). Note that backslashes are also escaped since they are used in the encoding. edarcsEncodeWhite "hello there" == "hello\32\there" darcsEncodeWhite "hello\there" == "hello\92\there"A@Compute a darcs-compatible hash value for a tree-like structure.FCRead and parse a darcs-style hashed directory listing from a given dir and with a given hash.GRead in a darcs-style hashed tree. This is mainly useful for reading "pristine.hashed". You need to provide the root hash you are interested in (found in _darcs/hashed_inventory).J1Write a Tree into a darcs-style hashed directory.KCreate a hashed file from a  s and content. In case the file exists it is kept untouched and is assumed to have the right content. XXX Corrupt files should be probably renamed out of the way automatically or something (probably when they are being read though).LRun a  action in a hashed setting. The initial1 tree is assumed to be fully available from the  directoryk, and any changes will be written out to same. Please note that actual filesystem files are never removed.MRead a Tree in the darcs hashed format from an object storage. This is basically the same as readDarcsHashed from Storage.Hashed, but uses an object storage instead of traditional darcs filesystem layout. Requires the tree root hash as a starting point.NWrite a Tree into an object storage, using the darcs-style directory formatting (and therefore darcs-style hashes). Gives back the object storage and the root hash of the stored Tree. NB. The function expects that the Tree comes equipped with darcs-style hashes already!9:;<=>?@ABCDEFGHIJKLactioninitial directoryMNOPQ9:;<=>?@ABCDEFGHIJKLMNOPQ9:;<=>?@ABCDEFGHIJKLMNOPQ9:;<=>?@ABCDEFGHIJKLMNOPQONone!"3457>IKLN readHashFile c subdir hash reads the file with hash hash" in dir subdir, fetching it from  c if needed. geta objtype name stuff tries to get an object of type objtype named name in stuff.UZGrab a whole pristine tree from a hash, and, if asked, write files in the working copy.VgReturns a list of pairs (FilePath, (strict) ByteString) of the pristine tree starting with the hash root. path should be either "." or end with "/" Separator "/" is used since this function is used to generate zip archives from pristine trees.Y_getHashedFiles returns all hash files targeted by files in hashroots in the hashdir directory.%   RST                   UVW XY RSTUVWXYTUWXYRSV   RST                   UVW XY PNone !"345>IKLNZTake a relative FilePath within a Tree and print the contents of the object there. Useful for exploration, less so for serious programming.ZaHJZHJaZZQNone !"345>IKLN[ \]^[\]^\]^[[ \]^RNone !"345>IKLN_breakOutToken takes a String of token chars and an input ByteString, and returns the ByteString triple of (beforeToken, token, afterToken).` tryTokInternal takes a String of token chars, an oldToken ByteString, a newToken ByteString and returns the list of token-delimited ByteStrings, with any tokens matching oldToken being replaced by newToken. If newToken is already in the input, we return Nothing.aoforceTokReplace replaces all occurrences of the old token with the new token, throughout the input ByteString._`a_`a`a__`aSNone !"345>IKLNbWhen commuting a Normal patch past a  Suspended. one, we need to adjust the internals of the  Suspended* one to take account of the effect of the Normal' patch. This includes the name of the NormalR patch - but the layering is such that we are actually commuting patches of type Named (Rebasing p) - i.e.  Rebasing pL doesn't actually contain the name. We therefore need to add a hook to the Commute instances for Named which Rebasing can then implement.OThere is a default so that other patch types only need to declare the instance.bcbcbcbcTNone!"345>IKLN defgh ij ! "defghijdegfhij defgh ij ! "UNone !"345>IKLNklmn # $klmnklmnklmn # $VNone !"345>IKLNo:Commute represents things that can be (possibly) commuted.qq commutes an  past an  .rr% commutes a RL past a single element.ss% commutes a single element past a FL.tt attempts to commute a single element past a FL. If any individual commute fails, then we return the patch that first patch that cannot be commuted past.uCSwaps the ordered pair type so that commute can be called directly.vUSwaps the ordered pair type from the order expected by commute to the reverse order.wTBuild a commuter between a patch and itself using the operation from the type class. opqrstuvw % & opqrstuvw opstrquvw opqrstuvw % &Wdarcs-devel@darcs.net experimentalportableNone !"345>IKLNx Things that can always be mergedxyz{ ' (xyz{xyz{xyz{ ' (XNone!"345>IKLN | split an  8 into "left" and "right" lists according to a predicate p, using commutation as necessary. If a patch does satisfy the predicate but cannot be commuted past one that does not satisfy the predicate, it goes in the "middle" list; to sum up, we have:  all p left and all (not.p) right&, while midddle is mixed. Note that p0 should be invariant under commutation (i.e. if x1 can commute to x2 then 'p x1  = p x2').} split an  into "left" and "right" lists according to a predicate, using commutation as necessary. If a patch does satisfy the predicate but cannot be commuted past one that does not satisfy the predicate, it goes in the "left" list. x xs removes x from xs if x6 can be commuted to its head. Otherwise it returns  j is like  except with  ab abc returns Just c' where all the patches in abk have been commuted out of it, if possible. If this is not possible for any reason (the set of patches ab is not actually a subset of abc., or they can't be commuted out) we return  j. is like removeSubsequenceFL except that it works on This is a minor variant of 2 with each permutation is simply returned as a   p:>:psE returns all the permutations of the list in which one element of ps is commuted past p%Suppose we have a sequence of patches  X h a y s-t-c k#Suppose furthermore that the patch c depends on t, which in turn depends on s. This function will return qX :> h a y s t c k h :> X a y s t c k a :> X h y s t c k y :> X h a s t c k s :> X h a y t c k k :> X h a y s t c is like ", except that we operate on an g (in other words, we are pushing things to the end of a patch sequence instead of to the beginning).oPartition a list into the patches that merge with the given patch and those that don't (including dependencies)|=predicate; if true we would like the patch in the "left" listinput  "left", "middle" and "right" )}>predicate; if true we would like the patch in the "right" listinput "left" and "right" results *~ + ,|}~~|}| )} *~ + ,Y2002-2005 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone!"3457>IKLNApply a patch to a , yielding a new .Apply a patch to set of {s, yielding the new set of {s and s  - . - .ZNone !"345>IKLN is implemented by single patches that can be repaired (Prim, Patch, RealPatch) There is a default so that patch types with no current legacy problems don't need to have an implementation. and p deal with repairing old patches that were were written out due to bugs or that we no longer wish to support. _ is implemented by collections of patches (FL, Named, PatchInfoAnd) that might need repairing.  / 0 1 / 0 1[None!"345>IKLNshowContextPatch is used to add context to a patch, as diff -u does. Thus, it differs from showPatch only for hunks. It is used for instance before putting it into a bundle. As this unified context is not included in patch representation, this requires access to the tree.   \None!"345>IKLN`abdeklopopkl`abde]None !"345>IKLNNone !"345>IKLN 2 2^None !"345>IKLN_None !"345>IKLNtryToShrink ps simplifies ps> by getting rid of self-cancellations or coalescing patchesQuestion (Eric Kow): what properties should this have? For example, the prim1 implementation only gets rid of the first self-cancellation it finds (as far as I can tell). Is that OK? Can we try harder?tryShrinkingInverse ps deletes the first subsequence of primitive patches that is followed by the inverse subsequence, if one exists. If not, it returns Nothing ps coalesces as many patches in ps< as possible, sorting the results in some standard order.It can sometimes be handy to have a canonical representation of a given patch. We achieve this by defining a canonical form for each patch type, and a function  which takes a patch and puts it into canonical form. This routine is used by the diff function to create an optimal patch (based on an LCS algorithm) from a simple hunk describing the old and new version of a file. ps puts a sequence of primitive patches into canonical form. Even if the patches are just hunk patches, this is not necessarily the same set of results as you would get if you applied the sequence to a specific tree and recalculated a diff.Note that this process does not preserve the commutation behaviour of the patches and is therefore not appropriate for use when working with already recorded patches (unless doing amend-record or the like).5 3 4 5 6 700   3 4 5 6 7`None !"345>IKLNWPatches whose concrete effect which can be expressed as a list of primitive patches.(A minimal definition would be either of effect or effectRL. 8 9 8 9aNone !"345>IKLNIf  x :> y succeeds, we know that that x commutes past yO without any conflicts. This function is useful for patch types for which commute is defined to always succeed; so we need some way to pick out the specific cases where commutation succeeds without any conflicts. : ; < = > ? @ A    : ; < = > ? @ ANone !"345>IKLN&&bNone !"345>IKLN B C D E F G H I J B C D E F G H I JcNone !"345>IKLN K5High-level representation of a piece of patch summary K L M N O P Q R K L M N O P Q RdNone!"345>IKLN p1 p25 is used to provide an arbitrary ordering between p1 and p21. Basically, identical patches are equal and Move < DP < FP < ChangePrefF. Everything else is compared in dictionary order of its arguments. S T U V W X Y Z [ \ ] ^ S T U V W X Y Z [ \ ] ^eNone!"345>IKLN _ ` a b c d e f g h i j k l m n o p q   _ ` a b c d e f g h i j k l m n o p qNone !"345>IKLN r rNone !"345>IKLN sModify a binary file ;binary FILENAME oldhex *HEXHEXHEX ... newhex *HEXHEXHEX ... t u v w x y z { | } ~  s  t u v w x y z { | } ~  s fNone!"*345>IKLN      STUWXY        XYWSTU      None !"345>IKLN  gNone!"345>IKLN     None !"345>IKLN  None !"345>IKLN  hNone!"345>IKLN    iNone!"345>IKLN  jNone!"345>IKLNThe Named6 type adds a patch info about a patch, that is a name.NamedP info deps p represents patch p with name info. depsz is a list of dependencies added at the named patch level, compared with the unnamed level (ie, dependencies added with darcs record --ask-deps).%  !"#$%&'(  !"#$%&'( !"#$%&'($  !"#$%&'( kNone!"345>IKLN)A ) encapsulates the concept of the name of a patch, without any contents. This allows us to track explicit dependencies in the rebase state, changing them to follow uses of amend-record or unsuspend on a depended-on patch, and warning the user if any are lost entirely.-qCommute a name patch and a primitive patch. They trivially commute so this just involves changing the witnesses..qCommute a primitive patch and a name patch. They trivially commute so this just involves changing the witnesses./uCommute a name patch and a named patch. In most cases this is trivial but we do need to check explicit dependencies.0uCommute a named patch and a name patch. In most cases this is trivial but we do need to check explicit dependencies.)*+,-./0 )*+,-./0)*+,-./0)*+,-./0 None !"345>IKLN  lNone !"345>IKLN1A splitter is something that can take a patch and (possibly) render it as text in some format of its own choosing. This text can then be presented to the user for editing, and the result given to the splitter for parsing. If the parse succeeds, the result is a list of patches that could replace the original patch in any context. Typically this list will contain the changed version of the patch, along with fixup pieces to ensure that the overall effect of the list is the same as the original patch. The individual elements of the list can then be offered separately to the user, allowing them to accept some and reject others.There's no immediate application for a splitter for anything other than Prim (you shouldn't go editing named patches, you'll break them!) However you might want to compose splitters for FilePatchType to make splitters for Prim etc, and the generality doesn't cost anything.5This generic splitter just lets the user edit the printed representation of the patch Should not be used expect for testing and experimentation.6Never splits. In other code we normally pass around Maybe Splitter instead of using this as the default, because it saves clients that don't care about splitting from having to import this module just to get noSplitter.7Split a primitive hunk patch up by allowing the user to edit both the before and after lines, then insert fixup patches to clean up the mess. 1234 56 7 81234567812345678 1234 56 7 8mNone!"345>IKLN abstract over  'FL'/'RL'9FNonable represents the class of patches that can be turned into a Non.;A ; stores a context with a PrimJ patch. It is a patch whose effect isn't visible - a Non-affecting patch.=OunNon converts a Non into a FL of its context followed by the primitive patch.>3showNons creates a Doc representing a list of Nons.?)showNon creates a Doc representing a Non.@:readNons is a parser that attempts to read a list of Nons.A7readNon is a parser that attempts to read a single Non.BB x cy tries to commute x past cy" and always returns some variant cy'. If commutation suceeds, the variant is just straightforwardly the commuted version. If commutation fails, the variant consists of x prepended to the context of cy.CC xs cy commutes as many patches of xs past cyT as possible, adding any that don't commute to the context of cy. Suppose we have x1 x2 x3 [c1 c2 y]and that in our example x1 fails to commute past c1&, this function would commute down to x1 [c1'' c2'' y''] x2' x3' and return [x1 c1'' c2'' y'']DTcommutePrimsOrAddToCtx takes a WL of prims and attempts to commute them past a Non.FgcommuteOrRemFromCtx attempts to remove a given patch from a Non. If the patch was not in the Non, then the commute will succeed and the modified Non will be returned. If the commute fails then the patch is either in the Non context, or the Non patch itself; we attempt to remove the patch from the context and then return the non with the updated context.TODO: understand if there is any case where p is equal to the prim patch of the Non, in which case, we return the original Non, is that right?G~commuteOrRemFromCtxFL attempts to remove a FL of patches from a Non, returning Nothing if any of the individual removes fail.H@(*>) attemts to modify a Non by commuting it past a given patch.IB(>*) attempts to modify a Non, by commuting a given patch past it.JJ(*>>) attempts to modify a Non by commuting it past a given WL of patches.KJ(>>*) attempts to modify a Non by commuting a given WL of patches past it. VNons are equal if their context patches are equal, and they have an equal prim patch. 9:;<=>?@ABCDEFGHIJK 9:;<=>?@ABCDEFGHIJK;<9:=?>A@DBFCGEHIJK  9:;<=>?@ABCDEFGHIJK nNone !"345>IKLN L LL L None!"345>IKLN  None!"345>IKLN   p2 :< p1 tries to combine p1 and p27 into a single patch without intermediary changes. For example, two hunk patches modifying adjacent lines can be coalesced into a bigger hunk patch. Or a patch which moves file A to file B can be coalesced with a patch that moves file B into file C, yielding a patch that moves file A to file C.  shrinkABit ps tries to simplify psI by one patch, the first one we find that coalesces with its neighbour tryOne acc p ps pushes p as far down psh as we can go until we can either coalesce it with something or it can't go any further. Returns Just2 if we manage to get any coalescing out of this The heart of "sortCoalesceFL"   new ps is almost like  new :>: psB except as an alternative to consing, we first try to coalesce new with the head of ps=. If this fails, we try again, using commutation to push new9 down the list until we find a place where either (a) new is LT the next member of the list  bsee 'comparePrim'u commutation fails or (c) coalescing succeeds. The basic principle is to coalesce if we can and cons otherwise.As an additional optimization, pushCoalescePatch outputs a Left value if it wasn't able to shrink the patch sequence at all, and a Right value if it was indeed able to shrink the patch sequence. This avoids the O(N) calls to lengthFL that were in the older code.Also note that pushCoalescePatch is only ever used (and should only ever be used) as an internal function in in sortCoalesceFL2.             None !"345>IKLN    None!"3457>IKLNNOPQRNOPQRNone !"345>IKLN  oNone!"345>IKLNM{A single rebase fixup, needed to ensure that the actual patches being stored in the rebase state have the correct context.P/Split a sequence of fixups into names and primsMNOPQRS !"#$%&MNOPQRSMNOQSRPMNOPQRS !"#$%&pNone !"345>IKLNTSome non-rebase code needs to manipulate the rebase state if one exists. This class provides the hook for them to do so without needing to explicitly detect that there is a rebase state: U! abstracts out that information.HThe hook is used in amend-record - look there for an explanation of how.OThere is a default so that other patch types only need to declare the instance.V5Return a suspended patch with the given fixups added.GNested in a type to avoid needing an impredicative argument to a tuple.YCheck whether a given patch is a suspended rebase patch, and if so provide evidence that the start and end contexts are the same (from the point of view of the containing repo), and return a function that produces a new version with some fixups added.?Nested in a type to avoid needing an impredicative argument to  i.TUVWXYZ[TUVWXYZ[TUYZ[VWXTUVWXYZ[qNone !"345>IKLN\\\\rNone !"345>IKLN0]'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU]]0]'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUsNone!"345>IKLN^The format of a merger is ,Merger undos unwindings conflicting original.undos = the effect of the merger unwindings = TODO: eh? conflicting = the patch we conflict withoriginal = the patch we really are^_`abcVWXYZ[\]^_`^_`abc^_`abc^_`abcVWXYZ[\]^_`tNone !"345>IKLNdadddauNone!"345>IKLNbb! attempts to commute two patches p1 and p2, in their original order, with the given commute function. If the commute function doesn't know how to handle the patches (i.e. it returns Unknown as a result), then we try again with  invert p2 and  invert p1( (inverting the results, if succesful).^TODO: when can the first attempt fail, but the second not? What's so clever in this function?c|If we have two Filepatches which modify different files, we can return a result early, since the patches trivially commute.dEAttempt to commute two patches, the first of which is a Merger patch.egelegantMerge attempts to perform the "intuitive" merge of two patches, from a common starting context wX.fcactualMerge attempts to perform a merge; if successful, it returns the "right" branch of the mergeTTODO: why does this code throw away the other branch, only for merge to rebuild it?g}merger takes two patches, (which have been determined to conflict) and constructs a Merger patch to represent the conflict. p1' is considered to be conflicting with p2 (p1d is the "first" patch in the repo ordering), the resulting Merger is therefore a representation of p2./ghijklmnbcopdqrstuefvwxyefz{g|}~yefgygfe,ghijklmnbcopdqrstuefvwxyefz{g|}~None !"345>IKLNvNone!"345>IKLN  xs ys cs0' represents two sequences of patches that have cs in common, in other words  xs +<+ cs and  ys +<+ cs cs xs ys/ represents two sequences of patches that have cs in common, in other words  cs +>+ xs and  cs +>+ yshht is used to represents prim patches that are duplicates of, or conflict with, another prim patch in the repository. Normal prim: A primitive patch Duplicate x!: This patch has no effect since x' is already present in the repository. !Etacilpud x: invert (Duplicate x)Conflictor ix xx x: ix0 is the set of patches: * that conflict with xq and also conflict with another patch in the repository. * that conflict with a patch that conflict with xxx6 is the sequence of patches that conflict *only* with xx$ is the original, conflicting patch.ix and x are stored as Nona objects, which include any necessary context to uniquely define the patch that is referred to.YThe intuition is that a Conflictor should have the effect of inverting any patches that x conflicts with, that haven't already been undone by another Conflictor in the repository. Therefore, the effect of a Conflictor is  invert xx.InvConflictor ix xx x: like invert (Conflictor ix xx x)nn p is True if p is either a i or j patch.oo p is True if p is either an m or j.pp\ is used when converting from Darcs V1 patches (Mergers) to Darcs V2 patches (Conflictors).mergeAfterConflicting3 takes as input a sequence of conflicting patches xxxG (which therefore have no effect) and a sequence of primitive patches yyyz that follow said sequence of conflicting patches, and may depend upon some of the conflicting patches (as a resolution).If xs consists only of k patches,  xs returns Just pxs those patches (so lengthFL pxs == lengthFL xs). Otherwise, it returns  j.q<This is used for unit-testing and for internal sanity checks xs ys> returns the set of patches that can be commuted out of both xs and ys& along with the remnants of both lists xs ys@ returns the set of patches that can be commuted out of both xs and ys& along with the remnants of both listsKhijklmnopqr hijklmnopqr hijklmrqonpDhijklmnopqrNone !"345>IKLNhrhrNone !"345>IKLNNone !"345>IKLNNone !"345>IKLN^^None!"345>IKLN@abafglmnprty !"#\?\ypabalmntrgf"#! wNone!"345>IKLN ss wA wBD represents the info of a patch, marked with the patch's witnesses.uu p wA wBu represents a hope we have to get a patch through its info. We're not sure we have the patch, but we know its info.wSimpleHopefully is a variant of  Either String adapted for type witnesses. Actually is the equivalent of Right , while  Unavailable is Left.zz p C (x y) is  String (p C (x y))* in a form adapted to darcs patches. The C (x y)F represents the type witness for the patch that should be there. The  HopefullyH type just tells whether we expect the patch to be hashed or not, and w" does the real work of emulating .  Hopefully sh- represents an expected unhashed patch, and Hashed hash sh3 represents an expected hashed patch with its hash. i p1 creates a PatchInfoAnd containing p with info i.n2pia' creates a PatchInfoAnd representing a Named patch. hp tries to get a patch from a u value. If it fails, it outputs an error "failed to read patch: <description of the patch>". We get the description of the patch from the info part of hp er hp! tries to extract a patch from a u7. If it fails, it applies the error handling function er2 to a description of the patch info component of hp. hopefullyM is a version of  hopefully which calls fail! in a monad instead of erroring.0stuvwxyz{|}~stuvwxyz{|}~z{|wxyuvstt}~)stuvwxyz{|}~x2010 Petr RockaiMITdarcs-devel@darcs.net experimentalportableNone!"3457>IKLNyNone !"345>IKLNzNone!"3457>CIKLN;Apply patches, emitting warnings if there are any IO errors"Apply patches, ignoring all errorsPThe default mode of applying patches: fail if the directory is not as we expect          {None!"*345>IKLNA  is a single chunk of a  . It has a y representing a clean tag, the hash of the previous inventory (if it exists), and the list of patches since that previous inventory.The patches in a repository are stored in chunks broken up at "clean" tags. A tag is clean if the only patches before it in the current repository ordering are ones that the tag depends on (either directly or indirectly). Each chunk is stored in a separate inventory file on disk.A  represents a repo's history as the list of patches since the last clean tag, and then a list of patch lists each delimited by clean tags.; is a type used to represent the initial context of a repo. takes a # and returns an equivalent, linear  of patches. takes a # and returns an equivalent, linear   of patches. takes a  and a  X of patches that "follow" the PatchSet, and concatenates the patches into the PatchSet.Runs a progress action for each tag and patch in a given PatchSet, using the passed progress message. Does not alter the PatchSet.> returns the PatchInfos corresponding to the tags of a given .  |None !"345>IKLNA single item in the rebase state consists of either a patch that is being edited, or a fixup that adjusts the context so that a subsequent patch that is being edited "makes sense".ToEdit/ holds a patch that is being edited. The name ( PatchInfo;) of the patch will typically be the name the patch had before it was added to the rebase state; if it is moved back into the repository it must be given a fresh name to account for the fact that it will not necessarily have the same dependencies as the original patch. This is typically done by changing the  Ignore-This junk.Fixup* adjusts the context so that a subsequent ToEdit$ patch is correct. Where possible, Fixup changes are commuted as far as possible into the rebase state, so any remaining ones will typically cause a conflict when the ToEdit* patch is moved back into the repository.eA patch that lives in a repository where a rebase is in progress. Such a repository will consist of Normal! patches along with exactly one  Suspended patch.(Most rebase operations will require the  Suspended+ patch to be at the end of the repository.NormalP represents a normal patch within a respository where a rebase is in progress. Normal p. is given the same on-disk representation as pa, so a repository can be switched into and out of rebasing mode simply by adding or removing a  Suspended/ patch and setting the appropriate format flag. The single  Suspended9 patch contains the entire rebase state, in the form of s.*Note that the witnesses are such that the  Suspended patch has no effect on the context of the rest of the repository; in a sense the patches within it are dangling off to one side from the main repository.See Note [Rebase representation] in the source for a discussion of the design choice to embed the rebase state in a single patch.Given a list of rebase items, try to push a new fixup as far as possible into the list as possible, using both commutation and coalescing. If the fixup commutes past all the % patches then it is dropped entirely.Like  but for a list of fixups.given the repository contents, get the rebase container patch, and its contents The rebase patch can be anywhere in the repository and is returned without being commuted to the end.given the repository contents, get the rebase container patch, its contents, and the rest of the repository contents. Commutes the patch to the end of the repository if necessary. The rebase patch must be at the head of the repository.given the repository contents, get the rebase container patch, its contents, and the rest of the repository contents. The rebase patch must be at the head of the repository.; !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ)*+,MNO)*+,MNO5 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ}None!"345>IKLN Evaluate an   list and report progress. Evaluate an  list and report progress. Evaluate an w list and report progress. In addition to printing the number of patches we got, show the name of the last tag we got.KK~None!"345>IKLN A patch, together with a list of patch names that it used to depend on, but were lost during the rebasing process. The UI can use this information to report them to the user.Used for displaying during 'rebase changes'. 'Named (RebaseChange p)' is very similar to 'RebaseSelect p' but slight mismatches ( embeds an  1) makes it not completely trivial to merge them.Encapsulate a single patch in the rebase state together with its fixups. Used during interactive selection to make sure that each item presented to the user corresponds to a patch.Get hold of the u patch inside a .\Turn a list of items back from the format used for interactive selection into a normal listTurn a list of rebase items being rebased into a list suitable for use by interactive selection. Each actual patch being rebased is grouped together with any fixups needed.hSplit a list of rebase patches into those that will have conflicts if unsuspended and those that won't.LpushThrough (ps :> (qs :> te)) tries to commute as much of ps as possible through both qs and te , giving %psStuck :> (qs' :> te') :> psCommuted,. Anything that can be commuted ends up in  psCommuted" and anything that can't goes in psStuck.MForcibly commute a )V with a patch, dropping any dependencies if necessary and recording them in the patchTurn a selected rebase patch back into a patch we can apply to the main repository, together with residual fixups that need to go back into the rebase state (unless the rebase is now finished). Any fixups associated with the patch will turn into conflicts.Like 5, but any fixups are "reified" into a separate patch.PNOPQRSTUVWXYZL[M\]^_`abcdefghijklmnopqrstuvwxyz{|}~CNOPQRSTUVWXYZL[M\]^_`abcdefghijklmnopqrstuvwxyz{|}~None!"345>IKLNtaggedIntersection takes two s and splits them into a common intersection portion and two sets of patches. The intersection, however, is only lazily determined, so there is no guarantee that all intersecting patches will be included in the intersection `. This is a pretty efficient function, because it makes use of the already-broken-up nature of s.Note that the first argument to taggedIntersection should be the repository that is more cheaply accessed (i.e. local), as taggedIntersection does its best to reduce the number of inventories that are accessed from its rightmost argument. takes a tag's y, t0, and a  and attempts to find t0 in one of the s in the PatchSet. If the tag is found, the PatchSet is split up, on that tag, such that all later patches are in the "since last tag" patch list. If the tag is not found,  j is returned.splitOnTag takes a tag's y, and a , and attempts to find the tag in the PatchSet, returning a pair: the clean PatchSet "up to" the tag, and a RL of patches after the tag; If the tag is not in the PatchSet, we return Nothing.h unfolds a single Tagged object in a PatchSet, adding the tag and patches to the PatchSet's patch list.getUncovered ps returns the y for all the patches in ps that are not depended on by anything else *through explicit dependencies*. Tags are a likely candidate, although we may also find some non-tag patches in this list.Keep in mind that in a typical repository with a lot of tags, only a small fraction of tags would be returned as they would be at least indirectly depended on by the topmost ones.slightlyOptimizePatchset- only works on the surface inventory (see optimizePatchset) and only optimises at most one tag in there, going for the most recent tag which has no non-depended patch after it. Older tags won't be cleanF, which means the PatchSet will not be in 'unclean :< clean' state.Merge two FLs (say L and R), starting in a common context. The result is a FL starting in the original end context of L, going to a new context that is the result of applying all patches from R on top of patches from L."While this function is similar to {9, there are three important differences to keep in mind:{ does not correctly deal with duplicate patches whereas this one does (Question from Eric Kow: in what sense? Why not fix the mergeFL instance?)CThe conventional order we use in this function is reversed from { (so  mergeFL r l vs.  merge2FL l r. This does not matter so much for the former since you get both paths. (Question from Eric Kow: should we flip merge2FL for more uniformity in the code?)`Remove a patch from FL, using PatchInfo equality. The result is Just whenever the patch has been found and removed. If the patch is not present in the sequence at all or any commutation fails, we get Nothing. First two cases are optimisations for the common cases where the head of the list is the patch to remove, or the patch is not there at all.None!"345>IKLN hashBundle creates a SHA1 string of a given a FL of named patches. This allows us to ensure that the patches in a received patchBundle have not been modified in transit.In makeBundle2, it is presumed that the two patch sequences are identical, but that they may be lazily generated. If two different patch sequences are passed, a bundle with a mismatched hash will be generated, which is not the end of the world, but isn't very useful either.filterGpgDashes unescapes a clearsigned patch, which will have had any lines starting with dashes escaped with a leading "- ".unavailablePatches converts a list of PatchInfos into a RL of PatchInfoAnd Unavailable patches. This is used to represent the Context of a patchBundle.NpiUnavailable returns an Unavailable within a PatchInfoAnd given a PatchInfo.igetContext parses a context list, returning a tuple containing the list, and remaining ByteString input.`(-:-) is used to build up a Sealed FL of patches and tuple it, along with any unconsumed input.getPatches attempts to parse a sequence of patches from a ByteString, returning the FL of as many patches-with-info as were successfully parsed, along with any unconsumed input.sillyLex takes a ByteString and breaks it upon the first newline, having removed any leading spaces. The before-newline part is unpacked to a String, and tupled up with the remaining ByteString.1 scans the context in the file of the given name.dMinimize the context of a bundle to be sent, taking into account the patches selected to be sent patchFilename maps a patch description string to a safe (lowercased, spaces removed and ascii-only characters) patch filename.  None!"345>IKLNSee module documentation for The Bool` parameter indicates whether the patch has been explicitely selected (or rejected) by the user. mp i acts as a temporary identifier to help us keep track of patches during the selection process. These are useful for finding patches that may have moved around during patch selection (being pushed forwards or backwards as dependencies arise).)The identifier is implemented as a tuple  Label mp i. The if is just some arbitrary label, expected to be unique within the patches being scrutinised. The mp is motivated by patch splitting; it provides a convenient way to generate a new identifier from the patch being split. For example, if we split a patch identified as Label Nothing 53, the resulting sub-patches could be identified as Label (Label Nothing 5) 1, Label (Label Nothing 5) 2, etc.Label a sequence of patches as subpatches of an existing label. This is intended for use when substituting a patch for an equivalent patch or patches.Label a sequence of patches. getChoices evaluates a  PatchChoicesS into the first, middle and last sequences by doing the commutes that were needed.refineChoices act performs act_ on the middle part of a sequence of choices, in order to hopefully get more patches into the first and last parts of a  PatchChoices.  (a :||: bs) pcs replaces a with bs in pcs* preserving the choice associated with a3(None!"3457>IKLNA Matcher is made of a + which we will use to match patches and a String representing it.DA type for predicates over patches which do not care about contexts applyMatcher applies a matcher to a patch..The string that is emitted when the user runs darcs help --match.haveNonrangeMatch flags# tells whether there is a flag in flags: which corresponds to a match that is "non-range". Thus, --match, --patch, --hash and --index make haveNonrangeMatch true, but not  --from-patch or  --to-patch.havePatchsetMatch flagsR tells whether there is a "patchset match" in the flag list. A patchset match is --match or --patch, or  --context , but not  --from-patch nor (!) --index2. Question: Is it supposed not to be a subset of haveNonrangeMatch? firstMatch fs tells whether fs implies a "first match", that is if we match against patches from a point in the past on, rather than against all patches since the creation of the repository.secondMatch fs tells whether fs implies a "second match", that is if we match against patches up to a point in the past on, rather than against all patches until now.strictJust is a strict version of the Just constructor, used to ensure that if we claim we've got a pattern match, that the pattern will actually match (rathern than fail to compile properly).nonrangeMatcherb is the criterion that is used to match against patches in the interval. It is 'Just m' when the --patch, --match, --tag/ options are passed (or their plural variants).nonrangeMatcherb is the criterion that is used to match against patches in the interval. It is 'Just m' when the --patch, --match, --tag/ options are passed (or their plural variants).nonrangeMatcherIsTag* returns true if the matching option was '--tag' firstMatcherz returns the left bound of the matched interval. This left bound is also specified when we use the singular versions of --patch, --match and --tag . Otherwise,  firstMatcher returns Nothing.matchAPatchread fs p tells whether p. matches the matchers in the flags listed in fs. matchAPatch fs p tells whether p$ matches the matchers in the flags fs hasLastn fs return the --last argument in fs , if any.#matchFirstPatchset fs ps returns the part of ps[ before its first matcher, ie the one that comes first dependencywise. Hence, patches in matchFirstPatchset fs ps- are the context for the ones we don't want. dropn n ps drops the n last patches from ps.$matchSecondPatchset fs ps returns the part of psG before its second matcher, ie the one that comes last dependencywise.%Split on the second matcher. Note that this picks up the first match starting from the earliest patch in a sequence, as opposed to $? which picks up the first match starting from the latest patchfindAPatch m ps returns the last patch in ps matching m , and calls  if there is none.&matchAPatchset m ps$ returns a (the largest?) subset of ps ending in patch which matches m. Calls  if there is none.'getMatchingTag m ps, where m is a  which matches tags returns a 7 containing all patches in the last tag which matches ms. Last tag means the most recent tag in repository order, i.e. the last one you'd see if you ran darcs changes -t m . Calls  if there is no matching tag.(matchExists m ps* tells whether there is a patch matching m in ps* applyNInv& n ps applies the inverse of the last n patches of ps. applyInvp tries to get the patch that's in a 'PatchInfoAnd patch', and to apply its inverse. If we fail to fetch the patch (presumably in a partial repositiory), then we share our sorrow with the user. a version of  for  lists that cater for contexts.Y     Ikeyword (operator), help description, list of examples, matcher function !"#$%The first element is the patches before and including the first patch matching the second matcher, the second element is the patches after it&'()*-      !"#$%&'()*-#$%! )(*"'&     E      !"#$%&'()*None!"345>IKLN ,Used by: clone-Used by: amend.4Used by: rebase pull, apply, send, push, pull, fetch/Used by: rebase unsuspend/reify07Used by: unrecord, obliterate, rebase suspend, rollback1 Used by: diff2 Used by: log TODO: see . TODO: see .+*amend, show files/contents, dist, annotate,-./01234     +,-./01234     +,-./01234+,-./01234None!"345>IKLN F)TODO: reconsider this grouping of options3Options for darcs iself that act like sub-commands./ instantiates the first two type parameters of ?d to what we need in darcs. The first parameter is instantiated to The flag type is instantiate to .NOTE: I'd rather work to have no uses of dryRunNoxml, so that any time --dry-run is a possibility, automated users can examine the results more easily with --xml.See also issue2397.TODO: Returning -1 if the argument cannot be parsed as an integer is not something I expected to find in a Haskell program. Instead, the flag should take either a plain  e5 argument (leaving it to a later stage to parse the  e to an  ), or else a  i 9, taking the possibility of a failed parse into account. --repodir9 is there for compatibility, should be removed eventuallyoIMHO the whole option can disappear; it overlaps with using an extra (non-option) argument, which is how e.g.  darcs get is usually invoked.convert, clone, initTODO: see issue2395WTODO: These should be mutually exclusive, but are they? The code is almost inscrutable. See above.:Deprecated flag, still present to output an error message.56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~*      !"#$%&'()*+,-./0123456789:;<=>?@ABCDHIJKLMNOPQRSTUVW     +,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~TUVWBCD?@A  {|}~()wxyz   %&'stuvopqrjklmn9:;345678"#$ !ghicdef`ab012*+,YZ[\]^_TUVWXPQRSQRSNOPHIJMNOJKLKLMFGHI<=>-./CDE=>?@AB89:;<56756789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~None !"345>IKLNThe instance Functor OptDescrR was introduced only in base-4.7.0.0, which is why we implement it here manually.>?@ABCDEFGHIJKLNone !"345>IKLN Variant of . Return a string describing the usage of a command, derived from the header (first argument) and the options described by the second argument.;Sequences of long switches are presented on separate lines.      None!"345>IKLN  -if pipe to ssh, can choose to compress or not otherwise, can specify printersgetSystemEncoding) fetches the current encoding from locale5Get the name of the darcs executable (as supplied by getExecutablePath)nSend an email, optionally containing a patch bundle (more precisely, its description and the bundle itself)lGiven two shell commands as arguments, execute the former. The latter is then executed if the former failed because the executable wasn't found (code 127), wasn't executable (code 126) or some other exception occurred (save from a resource vanished/broken pipe error). Other failures (such as the user holding ^C) do not cause the second command to be tried. editFile f lets the user edit a file which could but does not need to already exist. This function returns the exit code from the text editor and a flag indicating if the user made any changes. In some environments, darcs requires that certain global GHC library variables that control the encoding used in internal translations are set to specific values.setDarcsEncoding enforces those settings, and should be called before the first time any darcs operation is run, and again if anything else might have set those encodings to different values.GNote that it isn't thread-safe and has a global effect on your program.XThe current behaviour of this function is as follows, though this may change in future:FEncodings are only set on GHC 7.4 and up, on any non-Windows platform.Two encodings are set, both to GHC.IO.Encoding.char8: %GHC.IO.Encoding.setFileSystemEncoding and "GHC.IO.Encoding.setForeignEncoding.OPrevent HLint from warning us about a redundant do if the macro isn't defined: isUTF8K checks if an encoding is UTF-8 (or ascii, since it is a subset of UTF-8).(  handle to write email toFromToSubjectCCbodyfromtosubjectcc send command(content,bundle)body            &      None !"345>IKLN(Non-trivial interaction between options.DThis will become dis-entangled as soon as we inline these functions.2Non-trivial interaction between options. Explicit -i or -a dominates, else --count, --xml, or  --dry-run imply -a, else use the def argument.6dUgly. The alternative is to put the remoteRepos accessor into the IO monad, which is hardly better.77q takes a String that may be a file path or a URL. It returns either the URL, or an absolute version of the path.8maybeFixSubPaths files4 tries to turn the file paths in its argument into SubPaths.When converting a relative path to an absolute one, this function first tries to interpret the relative path with respect to the current working directory. If that fails, it tries to interpret it with respect to the repository directory. Only when that fails does it put a NothingE in the result at the position of the path that cannot be converted.?It is intended for validating file arguments to darcs commands.9fixSubPaths files returns the SubPaths for the paths in filesC that are inside the repository, preserving their order. Paths in filesB that are outside the repository directory are not in the result.,When converting a relative path to an absolute one, this function first tries to interpret the relative path with respect to the current working directory. If that fails, it tries to interpret it with respect to the repository directory. Only when that fails does it omit the path from the result.?It is intended for validating file arguments to darcs commands.::K takes a list of flags and returns the url of the repository specified by Repodir "directory"P in that list of flags, if any. This flag is present if darcs was invoked with --repodir=DIRECTORY==J takes a list of flags and returns the author of the change specified by Author "Leo Tolstoy"/ in that list of flags, if any. Otherwise, if Pipe is present, asks the user who is the author and returns the answer. If neither are present, try to guess the author, from repository or global preference files or environment variables, and if it's not possible, ask the user.>> try to guess the author, from repository or global preference files or environment variables, and if it's not possible or alwaysAsk parameter is true, ask the user. If store parameter is true, the new author is added into  _darcs/prefs.?? tries to get the author name first from the repository preferences, then from global preferences, then from environment variables. Returns []t if it could not get it. Note that it may only return multiple possibilities when reading from global preferencesBBG takes a list of flags and returns the sendmail command to be used by  darcs send$. Looks for a command specified by SendmailCmd "command"P in that list of flags, if any. This flag is present if darcs was invoked with --sendmail-command=COMMAND! Alternatively the user can set $SENDMAIL- which will be used as a fallback if present.CAccessor for output optionEEJ takes a list of flags and returns the subject of the mail to be sent by  darcs send$. Looks for a subject specified by Subject "subject"P in that list of flags, if any. This flag is present if darcs was invoked with --subject=SUBJECTFFc takes a list of flags and returns the addresses to send a copy of the patch bundle to when using  darcs send'. looks for a cc address specified by  Cc "address"K in that list of flags. Returns the addresses as a comma separated string.IflagsToSiblings collects the contents of all Sibling flags in a list of flags.F  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQ>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQ>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$%&(+)*,-./012345'JKLMONP6798:=>?B;<EDGFAIC@HQF  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQNone!"345>IKLNRA convenience function to call from all darcs command functions before applying any patches. It checks for malicious paths in patches, and prints an error message and fails if it finds one.S9Filter out patches that contains some malicious file pathRSTRSTRSTRSTNone !"345>IKLNU !"#$UUU !"#$None!"345>IKLN %&VWX'YZ([VWXYZ[[YZVWX %&VWX'YZ([None!"345>IKLN\A  Repository is a token representing the state of a repository on disk. It is parameterized by the patch type in the repository, and witnesses for the recorded state of the repository (i.e. what darcs get would retrieve), the unrecorded state (what's in the working directory now), and the tentative state, which represents work in progress that will eventually become the new recorded state unless something goes wrong.cc repository function modifies the cache of  repository with function., remove duplicates and sort the results with .\]^_`abc\]^_`abc\]^_`abc\]^_`abcNone!"345>IKLN*)) takes a root hash, a patch p) and attempts to apply the patch to the  identified by h~. If we encounter an old, size-prefixed pristine, we first convert it to the non-size-prefixed format, then apply the patch.hrevertTentativeChanges swaps the tentative and "real" hashed inventory files, and then updates the tentative pristine with the "real" inventory hash.ifinalizeTentativeChanges trys to atomically swap the tentative inventory/pristine pointers with the "real" pointers; it first re-reads the inventory to optimize it, presumably to take account of any new tags, and then writes out the new tentative inventory, and finally does the atomic swap. In general, we can't clean the pristine cache at the same time, since a simultaneous get might be in progress.j|readHashedPristineRoot attempts to read the pristine hash from the current inventory, returning Nothing if it cannot do so.kQcleanPristine removes any obsolete (unreferenced) entries in the pristine cache.l8filterDirContents returns the contents of the directory d& except files whose names begin with  Z (directories . and .., hidden files) and files whose names are filtered by the function f, if dir! is empty, no paths are returned.mZset converts a list of strings into a set of Char8 ByteStrings for faster Set operations.nunset is the inverse of set.oYcleanInventories removes any obsolete (unreferenced) files in the inventories directory.*RspecialPatches list of special patch files that may exist in the directory _darcspatches.pQcleanPatches removes any obsolete (unreferenced) files in the patches directory.qaddToSpecificInventory adds a patch to a specific inventory file, and returns the FilePath whichs corresponds to the written-out patch.sremoveFromTentativeInventory attempts to remove an FL of patches from the tentative inventory. This is used for commands that wish to modify already-recorded patches.+xwriteHashFile takes a Doc and writes it as a hash-named file, returning the filename that the contents were written to.t-readRepo returns the "current" repo patchset.u-readRepo returns the tentative repo patchset.v5readRepoUsingSpecificInventory uses the inventory at invPath to read the repository repo.wreadRepoFromInventoryList allows the caller to provide an optional "from inventory" hash, and a list of info/hash pairs that identify a list of patches, returning a patchset of the resulting repo.,3readInventoryPrivate reads the inventory with name invName in dir.-ereadInventoryFromContent extracts an inventory from the content of an inventory file, who's path is fileName.x(copyRepo copies the hashed inventory of repo to the repository located at remote.yyw copies the prefs/sources file to the local repo, from the remote, having first filtered the local filesystem sources.zwwriteAndReadPatch makes a patch lazy, by writing it out to disk (thus forcing it), and then re-reads the patch lazily.{writeTentativeInventory writes patchSet as the tentative inventory.|writeHashIfNecessary writes the patch and returns the resulting info/hash, if it has not already been written. If it has been written, we have the hash in the PatchInfoAnd, so we extract and return the info/hash..Tpihash takes an info/hash pair, and renders the info, along with the hash as a Doc./LlistInventoriesWith returns a list of the inventories hashes. The function fI can be readInventoryPrivate or readInventoryLocalPrivate. The argument  hashedRepoDir0 is the path to the repository, where it's the hashed_inventory file. The argument darcsDir3 is the path to the directory of inventories files.0jlistInventoriesBucketedWith is similar to listInventoriesWith, but it read the inventory directory under darcsDir in bucketed format.}vlistInventories returns a list of the inventories hashes. This function attempts to retrieve missing inventory files.18readInventoryLocalPrivate reads the inventory with name invName in dir4 if it exist, otherwise returns an empty inventory.~listInventoriesLocal returns a list of the inventories hashes. This function does not attempt to retrieve missing inventory files.OlistInventoriesRepoDir returns a list of the inventories hashes. The argument repoDir is the directory of the repository from which we are going to read the "hashed_inventory" file. The rest of hashed files are read from the global cache.2listPatchesLocal returns a list of the patches hashes, extracted from inventory files, by following the inventory "chain" of "Starting with inventory" hashes. This function does not attempt to download missing inventory files. The argument darcsDirv is the path to the darcs directory (e.g. "_darcs") of the repository from which we're going to read the inventories.dlistPatchesLocalBucketed is similar to listPatchesLocal, but it read the inventory directory under darcsDir in bucketed format.'readPatchIds inventory' parses the content of a hashed_inventory file after the "pristine:" and "Starting with inventory:" header lines have been removed. The second value in the resulting tuples is the file hash of the associated patch (the "hash:" line).)applyToTentativePristine applies a patch pI to the tentative pristine tree, and updates the tentative pristine hashcopyPristine copies a pristine tree into the current pristine dir, and possibly copies a clean working copy. The target is read from the passed-in dir/inventory name combination.PcopyPartialsPristine copies the pristine entries for a given list of filepaths.pris2inv takes an updated pristine hash and an inventory, and outputs the new pristine hash followed by the original inventory (having skipped the old inventory hash).inv2pris takes the content of an inventory, and extracts the corresponding pristine hash from the inventory (the hash is prefixed by "pristine:").3@skipPristine drops the 'pristine: HASH' prefix line, if present.4tryDropPristineName returns the result of dropping the pristineName from the input, if it was present, otherwise it returns Nothing.95d678e9:f;g<=>)hijklmno*pqrs+tuvw,-xyz{|./0}1~234#defghijklmnopqrstuvwxyz{|}~#efgdhiklopqrstuvz{xjy}~|wmn95d678e9:f;g<=>)hijklmno*pqrs+tuvw,-xyz{|./0}1~2342009 Petr RockaiMITdarcs-devel@darcs.net experimentalportableNone!"345>IKLN?@ABC?@ABCNone!"345>IKLNRead the contents of pending. The return type is currently incorrect as it refers to the tentative state rather than the recorded state.'Read the contents of tentative pending.'Read the contents of tentative pending.DURead the pending file with the given suffix. CWD should be the repository directory.(Write the contents of tentative pending.JWrite the contents of new pending. CWD should be the repository directory.EFGHIDJKLMNOEFGHIDJKLMNONone!"345>IKLN From a repository and a list of SubPath's, construct a filter that can be used on a Tree (recorded or unrecorded state) of this repository. This constructed filter will take pending into account, so the subpaths will be translated correctly relative to pending move patches.PAIs the given path in (or equal to) the _darcs metadata directory?Construct a Tree filter that removes any boring files the Tree might have contained. Additionally, you should (in most cases) pass an (expanded) Tree that corresponds to the recorded content of the repository. This is important in the cases when the repository contains files that would be boring otherwise. (If you pass emptyTree instead, such files will simply be discarded by the filter, which is usually not what you want.)This function is most useful when you have a plain Tree corresponding to the full working copy of the repository, including untracked files. Cf. whatsnew, record --look-for-adds. NB. Assumes that our CWD is the repository root.]Construct a Tree filter that removes any darcs metadata files the Tree might have contained.`For a repository and an optional list of paths (when Nothing, take everything) compute a (forward) list of prims (i.e. a patch) going from the recorded state of the repository (pristine) to the unrecorded state of the repository (the working copy + pending). When a list of paths is given, at least the files that live under any of these paths in either recorded or unrecorded will be included in the resulting patch. NB. More patches may be included in this list, eg. the full contents of the pending patch. This is usually not a problem, since selectChanges will properly filter the results anyway.This also depends on the options given: with LookForAdds, we will include any non-boring files (i.e. also those that do not exist in the "recorded" state) in the working in the "unrecorded" state, and therefore they will show up in the patches as addfiles.IThe IgnoreTimes option disables index usage completely -- for each file, we read both the unrecorded and the recorded copy and run a diff on them. This is very inefficient, although in extremely rare cases, the index could go out of sync (file is modified, index is updated and file is modified again within a single second).QMostly a helper function to &, returning the pending patch plus patches> and the subsequent diff from working as two different patchesMostly a helper function to ^, returning the pending patch and the subsequent diff from working as two different patchesRWitnesses the fact that in the absence of a working directory, we pretend that the working dir updates magically to the tentative state.Obtains a Tree corresponding to the "recorded" state of the repository: this is the same as the pristine cache, which is the same as the result of applying all the repository's patches to an empty directory.Handles the plain and hashed pristine cases. Currently does not handle the no-pristine case, as that requires replaying patches. Cf. H and 2 in hashed-storage that are used to do the actual  construction.Obtains a Tree corresponding to the "unrecorded" state of the repository: the working tree plus the "pending" patch. The optional list of paths allows to restrict the query to a subtree.Limiting the query may be more efficient, since hashes on the uninteresting parts of the index do not need to go through an up-to-date check (which involves a relatively expensive lstat(2) per file.Obtains a Tree corresponding to the working copy of the repository. NB. Almost always, using readUnrecorded is the right choice. This function is only useful in not-completely-constructed repositories.TMark the existing index as invalid. This has to be called whenever the listing of pristine changes and will cause darcs to update the index next time it tries to read it. (NB. This is about files added and removed from pristine: changes to file content in either pristine or working are handled transparently by the index reading code.)sRemove any patches (+dependencies) from a sequence that conflict with the recorded or unrecorded changes in a repoSPQRVRecorded patches from repository, starting from same context as the patches to filter7Repository itself, used for grabbing unrecorded changesPatches to filter>(True iff any patches were removed, possibly filtered patches) !"#$"#$ !SPQRNone!"345>IKLNTTNone !"345>IKLNNone!"345>IKLN+Uthe patch-indexVall the PatchIds tracked by this patch index, with the most recent patch at the head of the list (note, stored in the reverse order to this on disk for backwards compatibility with an older format).W information file with a given IDXGtimespans where a file with a certain id corresponds to given filenamesYHtimespans where a certain filename corresponds to a file with a given idZ9info about a given fileid, e.g.. is a file or a directory[an empty patch-index\On-disk version of patch index version 1 is the one introduced in darcs 2.10 2 changes the pids order to newer-to-older]\'applyPatchMods pmods pindex' applies a list of PatchMods to the given patch index pindex^$create new filespan for created file_?start new span for name fn for file fid starting with patch pid`"stop current span for file name fna?start new span for name fn for file fid starting with patch pidb"stop current span for file name fnc)insert touching patchid for given file idd)insert touching patchid for given file idelookup current fid of filepathfClookup current fid of filepatch, returning a Maybe to allow failureg'lookup all the file ids of a given pathh>return all fids of matching subpaths of the given filepathireturns a single file id if the given path is a file if it is a directory, if returns all the file ids of all paths inside it, at any point in repository historyjremove sequential duplicatesk:create patch index that corresponds to all patches in repolconvert patches to patchmodsm.return set of current filenames in patch indexnremove all patch effects of given patches from patch index. assumes that the given list of patches is a suffix of the patches tracked by the patch-indexo=update the patch index to the current state of the repositorypT'createPatchIndexFrom repo pmods' creates a patch index from the given patchmods.qload patch-index from diskrload patch-index, | ensuring that whenever loaded, the patch-index | can actually be read by the current version of darcs, | and up to date..check if patch-index exits for this repositorycheck if noPatchIndex existscreate or update patch indexChecks whether a patch index can (and should) be created. If we are not in an old-fashioned repo, and if we haven't been told not to, then we should create a patch index if it doesn't already exist.ysee if the default is to use patch index or not | creates Patch index, if it does not exist, and noPatchIndex is not set/check if patch-index is in sync with repositorysstore patch-index on diskt"Base directory for the patch indexu.return set of current filepaths in patch indexv@return set of current filepaths in patch index, for internal useOfilter given patches so as to keep only the patches that modify the given filesIf a patch index is available, filter given patches so as to keep only the patches that modify the given files. If none is available, return the original input.@Check if patch index can be created and build it with interrupt.TwUxVyz{WXYZ|}~[\]^_`abcdefghijklmnopqrstuvJwUxVyz{WXYZ|}~[\]^_`abcdefghijklmnopqrstuvNone!"345>IKLN:The status of a given directory: is it a darcs repository?'looks like a repository with some error safest guess5Tries to identify the repository in a given directory*identifyRepository identifies the repo at urlI. Warning: you have to know what kind of patches are found in that repo.identifyRepositoryFor repo url& identifies (and returns) the repo at urlE, but fails if it is not compatible for reading from and writing to.|hunt upwards for the darcs repository This keeps changing up one parent directory, testing at each step if the current directory is a repository or not. $ The result is: Nothing, if no repository found Just (Left errorMessage), if bad repository found Just (Right ()), if good repository found. WARNING this changes the current directory for good if matchFn succeeds+makeNewPending repo YesUpdateWorking pendPs verifies that the pendPsh could be applied to pristine if we wanted to, and if so writes it to disk. If it can't be applied, pendPsA must be somehow buggy, so we save it for forensics and crash.siftForPending ps( simplifies the candidate pending patch ps through a combination of looking for self-cancellations (sequences of patches followed by their inverses), coalescing, and getting rid of any hunk/binary patches we can commute out the back The visual image of sifting can be quite helpful here. We are repeatedly tapping (shrinking) the patch sequence and shaking it (sift). Whatever falls out is the pending we want to keep. We do this until the sequence looks about as clean as we can get ittentativelyRemoveFromPending p is used by Darcs whenever it adds a patch to the repository (eg. with apply or record). Think of it as one part of transferring patches from pending to somewhere else.8Question (Eric Kow): how do we detect patch equivalence?>tentativelyAddToPending repo NoDryRun YesUpdateWorking pend ps appends ps to the pending patch.It has no effect with NoUpdateWorking.This fuction is unsafe because it accepts a patch that works on the tentative pending and we don't currently track the state of the tentative pending.setTentativePending is basically unsafe. It overwrites the pending state with a new one, not related to the repository state. prepend repo YesUpdateWorking ps prepends ps9 to the pending patch It's used right before removing psj from the repo. This ensures that the pending patch can still be applied on top of the recorded state.{This function is basically unsafe. It overwrites the pending state with a new one, not related to the repository state.Given a sequence of patches anchored at the end of the current repository, actually pull them to the end of the repository by removing any patches with the same name and then adding the passed in sequence. Typically callers will have obtained the passed in sequence using  findCommon and friends.<Replace the pending patch with the tentative pending. If NoUpdateWorkingQ, this merely deletes the tentative pending without replacing the current one.LQuestion (Eric Kow): shouldn't this also delete the tentative pending if YesUpdateWorking;? I'm just puzzled by the seeming inconsistency of the NoUpdateWorking doing deletion, but YesUpdateWorking not bothering.Slightly confusingly named: as well as throwing away any tentative changes, revertRepositoryChanges also re-initialises the tentative state. It's therefore used before makign any changes to the repo.grab the pristine hash of _darcs/hash_inventory, and retrieve whole pristine tree, possibly writing a clean working copy in the process."Used by the commands dist and diffnSets scripts in or below the current directory executable. A script is any file that starts with the bytes '#!'/. This is used for --set-scripts-executable.Writes out a fresh copy of the inventory that minimizes the amount of inventory that need be downloaded when people pull from the repository.Specifically, it breaks up the inventory on the most recent tag. This speeds up most commands when run remotely, both because a smaller file needs to be transfered (only the most recent inventory). It also gives a guarantee that all the patches prior to a given tag are included in that tag, so less commutation and history traversal is needed. This latter issue can become very important in large repositories.8Returns the patches that make the most recent tag dirty.?3\]3\]4None!"345>IKLNNone!"345>IKLN A RepoJob wraps up an action to be performed with a repository. Because repositories can contain different types of patches, such actions typically need to be polymorphic in the kind of patch they work on. RepoJobO is used to wrap up the polymorphism, and the various functions that act on a RepoJobZ are responsible for instantiating the underlying action with the appropriate patch type.The most common RepoJobS; the underlying action can accept any patch type that a darcs repository may use.(A job that only works on darcs 1 patches(A job that only works on darcs 2 patches8A job that works on any repository where the patch type p has  p = .TThis was added to support darcsden, which inspects the internals of V1 prim patches.QIn future this should be replaced with a more abstract inspection API as part of  PrimPatch.Fapply a given RepoJob to a repository in the current working directory4apply a given RepoJob to a repository in a given urlXapply a given RepoJob to a repository in the current working directory, taking a lock{apply a given RepoJob to a repository in the current working directory, taking a lock. If lock not takeable, do nothing.   None !"345>IKLN  None!"3457>IKLNNone!"345>IKLNexternal merge tool commandtell whether we want GUI pauseexternal merge tool commandtell whether we want GUI pausepath to merge basepath to side 1 of the mergepath to side 2 of the merge%path where resolved content should goNone !"345>IKLN    None!"345>IKLN fetchFilesUsingCache is similar to mapM fetchFileUsingCache, exepts it stops execution if file it's going to fetch already exists. rwritePatchSet is like patchSetToRepository, except that it doesn't touch the working directory or pristine cache. patchSetToRepository takes a patch set, and writes a new repository in the current directory that contains all the patches in the patch set. This function is used when 'darcs get'ing a repository with the --to-match flag.uThis function fetches all patches that the given repository has with fetchFileUsingCache, unless --lazy is passed. Add an FL of patches started from the pending state to the pending patch. TODO: add witnesses for pending so we can make the types precise: currently the passed patch can be applied in any context, not just after pending. fAdd a FL of patches starting from the working state to the pending patch, including as much extra context as is necessary (context meaning dependencies), by commuting the patches to be added past as much of the changes between pending and working as is possible, and including anything that doesn't commute, and the patch itself in the new pending patch. JReplace the existing pristine with a new one (loaded up in a Tree object). aGet a list of all files and directories in the working copy, including boring files if necessary  J returns the list of all non-boring unregistered files in the repository.  < returns the list of all registered files in the repository.&          S u\c         S\         u c  &          None!"345>IKLN                         None!"345>IKLN Search for possible replaces between the recordedAndPending state and the unrecorded (or working) state. Return a Sealed FL list of replace patches to be applied to the recordedAndPending state. FgetRecursiveDarcsRepos returns all paths to repositories under topdir.                        None!"345>IKLN                    None!"345>IKLN   opts patch prints patch4 in accordance with the flags in opts, ie, whether  --verbose or  --summary" were passed at the command-line.   flags patch returns a % representing the right way to show patch given the list flags! of flags darcs was invoked with. ! !# prints a patch on standard output. " " runs '$PAGER' and shows a patch in it. # #@ prints a patch, together with its context, on standard output.  ! " #  ! " # ! # "    ! " #None!"345>IKLN (A  (1 represents a command like add, record etc. The  parsedFlagsM type represents the options that are passed to the command's implementation ?A  ? is a  (' where the options type has been hidden Z Z action flags patchesE prints a string representing the action that would be taken if the  --dry-runG option had not been passed to darcs. Then darcs exits successfully. action. is the name of the action being taken, like "push" flags0 is the list of flags which were sent to darcs patches7 is the sequence of patches which would be touched by action. [|Set the DARCS_PATCHES and DARCS_PATCHES_XML environment variables with info about the given patches, for use in post-hooks.}Set some environment variable to the given value, unless said value is longer than 10K characters, in which case do nothing. \wSet the DARCS_FILES environment variable to the files touched by the given patch, one per line, for use in post-hooks. ]Format a path for screen output, so that the user sees where the path begins and ends. Could (should?) also warn about unprintable characters here.H $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b? $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a bD ; < = > ( ) 9 * + , - . / 0 1 2 3 4 5 6 7 8 * + , - 1 : ? @ F L M I H G T $ % & ' S R K N P O A B C D E Q J V U W X Y Z [ \ ] ^ _ ` a b/ $ % & ' ( ) 9 * + , - . / 0 1 2 3 4 5 6 7 8 * + , - 1 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` a bNone !"345>IKLN e*This class is a hack to abstract over pullapply and rebase pullapply. f&'CarrierType pa p' resolves to either p or 'Rebasing p' QsendSanitizedEmail sends a sanitized email using the given sendmailcmd It takes  DacrsFlagJ options a file with the mail contents, To:, Subject:, CC:, and mail body c d e f g h i j c d e f g h i j e f g h i j c d c d e f g h i jNone!"345>IKLN= takes a list of flags and returns the context specified by  Context cP in that list of flags, if any. This flag is present if darcs was invoked with --context=FILE k l m n o k l m n o l m k o n k l m n o2003 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone !"345>IKLNLThis function performs the actual distribution action itself. NB - it does not_ perform the pre-dist, that should already have completed successfully before this is invoked.  p q r Flags/optionsThe path to the repository,An action to perform on the archive contents p q r p q r  p q rNone !"345>IKLN s t s t s t s tNone!"345>IKLN u v w x y z { | } ~   u v w x y z { | } ~   u v w x y z { | } ~   u v w x y z { | } ~  None !"345>IKLN            None!"345>IKLN      None !"345>IKLN    None!"345>IKLN      None !"345>IKLN       None!"345>IKLN!"#$ %&'  !"#$ %&'2002-2004 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone!"345>IKLN()*+,-./0123 45Command options6789 :;  ()*+,-./0123 456789 :;None!"345>IKLN4 The type of the answers to a "shall I [wiggle] that [foo]?" question They are found in a [[KeyPress]] bunch, each list representing a set of answers which belong together <The dynamic parameters for interactive selection of patches. total number of patches number of already-seen patches the patches we offer the user's choices A PatchSelectionContext> contains all the static settings for selecting patches. See PatchSelectionM<7The type of the function we use to filter patches when --match is given. When asking about patches, we either ask about them in oldest-first or newest first (with respect to the current ordering of the repository), and we either want an initial segment or a final segment of the poset of patches.FirstW: ask for an initial segment, first patches first (default for all pull-like commands) FirstReversed: ask for an initial segment, last patches first (used to ask about dependencies in record, and for pull-like commands with the  --reverse flag). LastReversed: ask for a final segment, last patches first. (default for unpull-like commands, except for selecting *primitive* patches in rollback)Last: ask for a final segment, first patches first. (used for selecting primitive patches in rollback, and for unpull-like commands with the  --reverse flag=A  WhichChanges{ is backwards if the order in which patches are presented is the opposite of the order of dependencies for that operation. A   for selecting Prim patches. A   for selecting full patches (u patches)  A generic  .>For commands without --match, > matches all patches??3 selects patches according to the given match flags runs a @ action in the given  . Select patches from a FL.A(inverses the choices that have been madeBPShows the patch that is actually being selected the way the user should see it. The equivalent of   for the  darcs changes command 3Generates the help for a set of basic and advanced   groups. The keys used by a list of keyPress groups. KThe function for selecting a patch to amend record. Read at your own risks.CThis ensures that the selected patch commutes freely with the skipped patches, including pending and also that the skipped sequences has an ending context that matches the recorded state, z, of the repository.D When using --matchA, remove unmatched patches not depended upon by matched patches.ESelects the patches matching the match criterion, and puts them first or last according to whch, while respecting any dependencies.F9Returns the results of a patch selection user interactionG"Runs a function on the underlying  PatchChoices objectH justDone n notes that n! patches have just been processedI)The actual interactive selection process.  Returns a Sealed24 version of the patch we are asking the user about.J6Returns the patches we have yet to ask the user about.KModify the underlying  PatchChoices by some function returns Just f if the   only modifies f, Nothing otherwise.  decide True selects the current patch, and  decide False deselects it. like  , but for all patches touching fileLUndecide the current patch. Focus the next patch. Focus the previous patch.MTSplit the current patch (presumably a hunk), and add the replace it with its parts.NzReturns a list of the currently selected patches, in their original context, i.e., not commuted past unselected patches.O-Prints the list of the selected patches. See N.PSkips all remaining patches.Q0The singular form of the noun for items of type p.R.The plural form of the noun for items of type p. $The question to ask about one patch. 4Asks the user about one patch, returns their answer.S,Ask the user what to do with the next patch. 9Shows the current patch as it should be seen by the user.TThe interactive part of  darcs changes .Skips patches we should not ask the user aboutUIThe action bound to space, depending on the current status of the patch.pVWXYZ[\ @ ] ^_`abc de <fgh = >?i jAB CklDEFGHImnopqrstuv JK L MNO P wQR Sx T yU 2 2 KVWXYZ[\  @ ]  ^_`abc de  <fgh  = >?i jAB CklDEFGHImnopqrstuv JK L MNO P wQR Sx T yU None!"345>IKLNzGCheck user specified patch name is not accidentally a command line flag 3Get the patch name and long description from one of/the configuration (flags, defaults, hard-coded)an existing log filestdin (e.g. a pipe) a text editorFIt ensures the patch name is not empty nor starts with the prefix TAG.^The last result component is a possible path to a temporary file that should be removed later.-{|}~   z patchname option pipe optionlogfile optionaskLongComment option4possibly an existing patch name and long descriptionchanges to recordhpatch name, long description and possibly the path to the temporary file that should be removed later  {|}~    z 2004, 2007 David RoundyGPLdarcs-devel@darcs.net experimentalportableNone !"345>IKLN(      None!"345>IKLN    None!"345>IKLN      None!"+345<>IKLNuThis part of the help is split out because it is used twice: in the help string, and in the prompt for confirmation.I        8       None!"345>IKLNReturns the command we should use for diff as a tuple (command, arguments). This will either be whatever the user specified via --diff-command or the default }. Note that this potentially involves parsing the user's diff-command, hence the possibility for failure with an exception.     None!"345>IKLN GThis is designed for use in an atexit handler, e.g. in Darcs.RunCommand  !"    !"None!"345>IKLN#Take a list of filenames and patches and produce a list of patches that actually touch the given files with a list of touched file names, a list of original-to-current filepath mappings, indicating the original names of the affected files and possibly an error. Additionaly, the function takes a "depth limit" -- maxcount, that could be Nothing (return everything) or "Just n" -- returns at most n patches touching the file (starting from the beginning of the patch list).$Note, lazy pattern matching is required to make functions like filterPatchesByNames lazy in case you are only not interested in the first element. E.g.:)let (fs, _, _) = filterPatchesByNames ... changes is an alias for log%&'( )*+,-. #maxcount filenames patchlist$ /0 12  %&'( )*+,-. #$ /0 12None!"345>IKLN34567 8  34567 8None!"345>IKLN9*known to darcs, but absent in working copy:Takes two filenames (as Subpath), and tries to move the first into/onto the second. Needs to guess what that means: renaming or moving into a directory, and whether it is a post-hoc move.;<=9>?@ABCDEF GHtree of the working directory$tree of recorded and pending changestree of recorded changes:IJKLMNO   ;<=9>?@ABCDEF GH:IJKLMNO None!"345>IKLN,PQ RSTUVWXYZ[\]^_`abcdefghijklmnopqrst uvwxy  ,PQ RSTUVWXYZ[\]^_`abcdefghijklmnopqrst uvwxyNone!"345>IKLNz{|}~     c  c z{|}~    None!"345>IKLN     None!"345>IKLNgenericObliterateCmd is the function that executes the "obliterate" and "unpull" commands. The first argument is the name under which the command is invoked (unpull or  obliterate).>Get the union of the set of patches in each specified location matchingHead returns the repository up to some tag. The tag t is the last tag such that there is a patch after t that is matched by the user's query.                  None!"345>IKLNchanges is an alias for log3   2 None!"345>IKLNmakeRemovePatch builds a list of patches to remove the given filepaths. This function does not recursively process directories. The  Recursivee flag should be handled by the caller by adding all offspring of a directory to the files list.PTakes a file path and returns the FL of patches to remove that, wrapped in a  . Returns  jy in case the path cannot be removed (if it is not tracked, or if it's a directory and it's not tracked). The three  arguments are the recorded state, the unrecorded state excluding the removal of this file, and the unrecorded state including the removal of this file.              None !"345>IKLN 8check is an alias for repair, with implicit DryRun flag.       None!"345>IKLNAttempts to apply a given replace patch to a Tree. If the apply fails (if the file the patch applies to already contains the target token), we return Nothing, otherwise we return the updated Tree.Given a set of characters and a string, returns true iff the string contains only characters from the set. A set beginning with a caret (^%) is treated as a complementary set.This function checks for  --token-chars on the command-line. If found, it validates the argument and returns it, without the surrounding square brackets. Otherwise, it returns either   or  as explained in .Note: Limitations in the current replace patch file format prevents tokens and token-char specifiers from containing any whitespace.       None!"345>IKLN       None !"345>IKLN    None!"345>IKLN              None!"345>IKLN$A list of all valid preferences for _darcsprefsprefs. (name, one line description)     None!"345>IKLN                  None!"345>IKLN !"#$ %&'()*+,-./   !"#$ %&'()*+,-./None !"345>IKLN 01234 56 78     01234 56 78None !"345>IKLN9:;< =  9:;< =None !"345>IKLN>?   @A      >?   @ANone !"345>IKLN BProgress of BisectCDirection of Bisect trackdownDBisect Patch TreeE2Functions defining a strategy for executing a testF!test only the last recorded stateGlinear search (with --linear)H+exponential backoff search (with --backoff)Ibinary search (with --bisect)J#Create Bisect PatchTree from the RLKConvert PatchTree back to RLLIterate the Patch TreeBCMNDOPE test commandQRSTU VWFGHXnumber of patches to skippatches not yet skippedIYJKL test commandZ[\]^  BCMNDOPEQRSTU VWFGHXIYJKLZ[\]^None!"345>IKLN_ Runs the   code`The interactive part of darcs whatsnew status is an alias for whatsnew, with implicit Summary and LookForAdds flags. We override the default description, to include the implicit flags. abcde fgh_` i     abcde fgh_` iSafe !"345>IKLNjkljkljklNone!"345>IKLNm  urlbody mime typeresultn ! "  ! "  ! "m  n ! "None!"345>IKLNoPOST the patch via HTTPpsend patch via emailqoprstu #vwxyz{|}~ # #qoprstu #vwxyz{|}~None!"345>IKLN $The commands that darcs knows about (e.g. whatsnew, record), organized into thematic groups. Note that hidden commands are also listed here. $ $ $ $None !"345>IKLN )?Help on each environment variable in which Darcs is interested.This module is responsible for emitting a darcs "man-page", a reference document used widely on Unix-like systems. Manpages are primarily used as a quick reference, or "memory jogger", so the output should be terser than the user manual.Before modifying the output, please be sure to read the man(7) and man-pages(7) manpages, as these respectively describe the relevant syntax and conventions.'The lines of the manpage to be printed. % & ' ( ) % & ' ( ) % ( ) ' & % & ' ( )None !"345>IKLN #A finite map from long switches to s.:Result of parsing a defaults line: switch and argument(s).;Name of a normal command, or name of super and sub command. *-Apply defaults from all sources to a list of >s (e.g. from the command line), given the command (and possibly super command) name, and a list of all options for the command.Sources for defaults are"the builtin (hard-coded) defaults,2the defaults file in the user's configuration, and,the defaults file in the current repository.Note that the pseudo command ALLt is allowed in defaults files to specify that an option should be the default for all commands to which it applies.The order of precedence for conflicting options (i.e. those belonging to same group of mutually exclusive options) is from less specific to more specific. In other words, options from the command line override all defaults, per-repo defaults override per-user defaults, which in turn override the built-in defaults. Inside the options from a defaults file, options for the given command override options for the ALL pseudo command.DConflicting options at the same level of precedence are not allowed.Errors encountered during processing of command line or defaults flags are formatted and added as (separate) strings to the list of error messages that are returned together with the resulting flag list.Make a ; from a possible super command name and a sub command name.Turn a  into a  e. For a % concatenate with a space in between.@Parse a list of lines from a defaults file, returning a list of >H, given the current working directory, the command name, and a list of  DarcsOption for the command.RIn the result, defaults for the given command come first, then come defaults for ALL commands..We check that matching options actually exist.Wlines matching the command name: the option must exist in the command's option map.lines matching ALLC: there must be at least *some* darcs command with that option.]It is debatable whether these checks are useful. On the one hand they can help detect typos in defaults files. On the other hand they make it difficult to use different versions of darcs in parallel: a default for an option that is only available in a later version will make the earlier version produce an error. Maybe reduce this to a warning?Extract 5s from lines of a defaults file that match the given . The syntax is & supercmd subcmd [--]switch [args...] ,for (super) commands with a sub command, and # cmd default [--]default [args...] #for normal commands (including the ALL pseudo command).Search an option list for a switch. If found, apply the flag constructor from the option to the arg, if any. The first parameter is the current working directory, which, depending on the option type, may be needed to create a flag from an argument.EFails if (default has argument /= corresponding option has argument).0Get all the longSwitches from a list of options. Build an  from a list of  DarcsOptions.NList of option switches of all commands (except help but that has no options). * * *  *None!"345>IKLNReturns the working directory for the posthook. For most commands, the first parameter is returned. For the 'get' command, the path of the newly created repository is returned if it is not an ssh url.xChecks if the number of extra arguments matches the number of extra arguments supported by the command as specified in  .. Extra arguments are arguments that follow the command but aren't considered a flag. In `darcs push xyz`, xyz would be an extra argument. + + + +      !"##$%&'(()*+,-./01234567889:;<<=>?@ABCDEFGHIJKLMNO P P Q Q R S T U V W X Y Z [ \ ] ^ _ ` a bc d e e f g h h i j k l m n o p q r stuuvwxyz{|}~                             ! " # $ % & ' ( ) * + , - . /!0!1!2!3!4!5!6!7!8!9":":";"<"=">"?"@"A"B"C"CDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a#b#c#d#e#f#g#h#i#j#k#l#m#n#o#p#q#r#s#t#u#v#w$$$x$y%z%{%|%}%~%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%&&&&''''''''''''(((((()****+++++++++++++++++++++++++++++++++++ + + + + + +++++++++++++++++++ +!+"+#+$+%+&+'+(+)+(+*+*+++,+-+.+/+0+1+2+3+4+5,,6,7,8,9,:,;,<-=->-?-@-A-B.C.D.E.F.G.H.I.J.K.L/M/N/O0P0Q00R0S0T0U0V0W0X0Y0Z0[0\0]0^0_0`0a0b0c0d0e0f0g0h0i0j0k0l0m0n0o0p0q0r0s00t0u0v0w0x0y0z1{1|1}1~111111222222223333344444444444444444444444444444455555555556666666666?66666666666666666666666666667777777777777777777888888888888888888 8 8 8 8 88888899::::::::::: : ::: :5:4:3:!:":#:$:%:&:':(:):*:+:,:-:.:/:0:1:2:3:4:5:6:7:8:9:::;:<:=:>:?:@:A:B:C:D:E:F:G:H:(:):I:J:K:L:M:N:::::::O:P:Q:R:S:T:U:V:W:X:Y:Z:[:\:]:^:_:`:a:b:c:d::e::f:g:h:i:j:k:l:m:n:o:p:q:r::s:t:u:v:w:x:y:z:{:|:}::~:::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::::;;;;;;;;;;;;;;;;;;;;;;;<=======================================================>>>>> > > > > ???????????@@@AABBB B B!B"C#C#C$C%C&C'C(C)C*C+C,C-C.C/D0D0D1D2D3D4D5D6D7D8D9D:D;D<D=D>D?D@DADBDCDDDEDFDGDHDIDJDKDLDMDNEOEPEQERESETEUEVEWEWEXEYEZE[E[E\E]E^E_E`EaEbEcEdFeFFFfFgFhFiFjFkFFlFmF@F@FnFoFpFqFrFsFtFuFvFwFxFyFzF{F|F}F~FFFFFFFFFFFFFGGGGGGGGGGGGGGGGGGGGGGGGGHHHHHHHHIIIIIIIIIIIIIIIIIIIIIIIIIIIJJKKKLLLLLLLMMMMMMMMMMMMMMMMMwMMMNNNNNNNNNNNNNNNNNNNNNNNNNOOOOOOOOPQQQQ R R R S STTTTTTTUUUUVVVVVVV V!V"W#W$W%W&X'X(X)X*X+X,X-X.X/X0X1X2X3X4X5X6Y7Y8Y9Y:Y;Y<Y=Y>Z?Z@ZZAZZBZC[D[E[F[G[H[I[J[K[L[M[N[O\P]Q^R^S^T^T^U_V_W_X_Y_Z_[_\_]_^___`_a_b_c_d_e_f_g_h_i_j_k_l_m_n_o_p_q_r_s_t_u_v_w_x_y_z_{_|_}_~_______```aaaaaaaaaaaabccccddddddddddddddddeeeeeeeefffffffffffgghiijjjjjjjjjjjjjjjkkkkkkkkllllllllmmmmmmmmmmmmmmmmmmmnoooooooppppppppqrsssssstuuuvvvv v v v v vvvwwwwwwwwwwwwwwwwww w!w"w#w$w%w&w'w(x)x*x+x,xy-z.z/z0z1{2{2{3{3{4{5{6{7{8{9{:{;|<|=|>|?| |@|A|B|C|D|E|F|G|H|I}J}K}L~M~N~N~O~P~Q~R~S~T~U~V~W~X~Y~Z~[~\~]~^_`abcdefghijklmnopqrstuvwxyz{|}~-/23.019:;57=z<8G~##$Z[TVTUWabQRS      !"#$%&'()*+,-./012345H6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiGQ%'jklmnopqrstu1vwx7yz{|}8~  OC+                      8       ! ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V W X Y Z [ \ ] ^ _ ` ` a b c d e f g h i j k l m n o p q r s t u v v w x y z { | } ~  b       -            H          07  *9         j                   ! " # $ % & ' ( ) * + , -{ . / 0 1 2 3 4 5 6 7 8 5 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T U V V W X Y Z [ \ ] ^ _ ` a b c d e f g h i jl k l m n o I p q r s J p p t p u v w x y z { | } ~    B p         k f                                                                        2 3               p                                                 # # # # #    # # # # # # # # # # # !# "# ## $# %# &$ '$ '$ ($ )$ *$ +$ ,$ -$ .% /% 0% 1% 2% 3% 4% 5% 6% 7% 8% 9% /% :% 0% ;% <% =% >% ?& @& A' B' C' D( E( F( G( H( I( J( K( L( M( N( O( P( Q( R( S( T( U( V( W( X( Y( Z( [( \( ]( ^( _( `( a( b( c( d( e) f) g) h) i) j) k))) l)) W) X) Y) m) n) o) p) q) r) s) t) u) v) w) x) y) z) {) |) }) ~) ) ) ) ) ) ) ) , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , . . . . . . . . . . . / / / / / / / / / I/ / J p 00 0 0 0 0 0 0 0 0 0 00R0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0  2 2 2 2 2 2 2 2 2 32 2 2 2 22 2 3 3 3 3 4 4 4 4 4 4 4 4 4 4 5 5 5 5 5 5 5W5 5 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 7 7 7    p 7 7 7 7 7 !7 "7 #8 $8 %88 &8 '8 (8 )8 *8 +8 ,8 -8 .8 /8 08 1; 2; 3; 4; 5; 6; 7   8; 9; :< ;< << == >= ?= @= A= B= C= D= E= F= G= H= I= J= K= L= M= N> O@ P@ QA RA SD TD UD VD WD XD YD ZD [D \D ]F ^FF _F `F aF bF cG dG eG fGG gG hG iG jG kG lG mG nG oG pG qG rG sH tI uI vI wI xI yI zI {I |I }I ~I I I J J J J J J J J J K L L L L gL L L L L L L L L L L <L <L L L L L L LL L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L L LL L L L L L MMM M M M M M M O O O O O O O O O O O O O O O O O O O O O O O O O%O O O O |Q T T T T U U V V W W X X X X Y Y Z Z Z _ _ _ _ _ ` ` a a a a a a a a b b b b b b b b b c c cIc [c c c c d d d d d d d d !d "d #d $d %e &e 'e (e )e *e +e ,e -e .e /e 0e 1e 2e 3e 4e 5e 6e 7e 8 9 : ;  <fhgijk = > ? @ A B C D E F Gf Hf f f f f !f "f #f If Jf Kf Lf M Ng Og Pg Qg Rg 1g Sg 3g T 9` G Fh Uh Vh_h Wh Xh Yh Zi [i \i ]i ^i _j `j aj bj cj dj ej fj gj hj ij jj kj lj mj nj oj pj qj rj sj tj uk vk wk xk yk zk {k |k }k ~k k k k l l l l m m mm m m m m m n n n n n n n n n n Wn n n Jn In n Xn Yn Z    E N o o o o o o o o o o o o r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r r s s s s s s s s s sstu *u +uuuuu &uuuuu (u )u ,uuu u u u u uuuuuuuuuuuuuuuuuuu 4u 5u 6u 7u 8 !"#v$v%v&v'v(v)v$v%v*v+v,v-v.v/v0v1v2v3vv4v5v6v7v8v9v:v;v<v=v>v?v@vAvBvCvDvEvFvGvHvIvJvKvLvMvNvOvPvQvRvSvTvUvVvWvXvYvZv[v\v]v^v_v`abcdefghij kwwlwmwnwowpwqwrwswtwuwvwwwxwywzw{w|w}w~wwxxxxx x xxxxxx?xxxxxxx |zzzzzzzzzzzzzz.zzzzzzz{{{{||||||||||||||||||||||||||||||||||||||||||||}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~    ~ !"#$%&'()*+,-./012345678q9:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd );ef gh  ijklmnopqrstuvwxyz{|}~  l     B !"#$%&'()*}+,-./0123 456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\s]^_`abcdefghijklmnopqrstuv wxyz{=|}~JKJkn:  ;  07 kn      >@ !"##$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNO PQRST@AUVWXYZj[\]^ _`abcdefghijklmnopqrstuvwxyz{ V|}~     9   ghij      N !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI JKLMNOPQRSTUVWXYZ[\]^_` Uabcdefghijklmnopqrstuvwxyz{|}~darcs_GZGVglGidWf7oCJ32gqZTdDarcs.Util.RatifiedDarcs.Util.ByteStringDarcs.Util.WorkaroundDarcs.Util.FileDarcs.Util.DateTimeDarcs.Util.Download.RequestDarcs.UI.Options.IsoDarcs.UI.Options.CoreStorage.Hashed.AnchoredPathDarcs.Util.CommandLineDarcs.Util.AtExitDarcs.Util.Crypt.SHA256Darcs.Util.EnglishDarcs.Patch.RegCharsDarcs.Util.IsoDateStorage.Hashed.HashDarcs.Util.GlobalDarcs.Util.ProgressDarcs.Util.ExecDarcs.Util.SshDarcs.Util.SignalHandlerDarcs.Util.ExceptionDarcs.Util.EnvironmentDarcs.Util.DateMatcherDarcs.Patch.TypeDarcs.Util.PromptDarcs.Patch.OldDateDarcs.Util.ShowDarcs.Patch.Witnesses.ShowDarcs.Patch.Witnesses.UnsafeDarcs.Patch.Witnesses.EqDarcs.Patch.Witnesses.SealedDarcs.Patch.FormatDarcs.Patch.Prim.V3.ObjectMapDarcs.Patch.ReadMonadsDarcs.Util.Crypt.SHA1Darcs.Util.PrinterDarcs.Util.BugDarcs.Util.URLDarcs.Util.Diff.MyersDarcs.Util.Diff.PatienceDarcs.Util.DiffDarcs.Repository.FlagsDarcs.Util.Printer.ColorDarcs.Util.TextDarcs.Repository.SshDarcs.UI.EmailDarcs.Util.PathDarcs.Patch.SummaryDataDarcs.Util.DownloadDarcs.Repository.CompatDarcs.Repository.LockDarcs.Repository.ExternalDarcs.Repository.CacheDarcs.Repository.FormatDarcs.Repository.PrefsDarcs.Repository.MotdDarcs.UI.Options.FlagsDarcs.UI.Options.UtilDarcs.UI.Options.MarkdownDarcs.Patch.Witnesses.OrderedDarcs.Patch.BracketedDarcs.Patch.CommuteFnDarcs.Patch.InspectDarcs.Patch.DebugDarcs.Patch.MaybeInternalDarcs.Patch.Witnesses.WZipperDarcs.Patch.InfoDarcs.Patch.Index.TypesStorage.Hashed.TreeStorage.Hashed.MonadDarcs.Patch.MonadProgressDarcs.Patch.ApplyMonadDarcs.Patch.Index.MonadStorage.Hashed.PlainStorage.Hashed.IndexStorage.Hashed.PackedStorage.Hashed.DarcsDarcs.Repository.HashedIOStorage.HashedDarcs.UI.Commands.Util.TreeDarcs.Patch.TokenReplaceDarcs.Patch.Rebase.NameHackDarcs.Patch.ReadDarcs.Patch.InvertDarcs.Patch.CommuteDarcs.Patch.MergeDarcs.Patch.PermutationsDarcs.Patch.ApplyDarcs.Patch.RepairDarcs.Patch.ShowDarcs.Patch.PatchyDarcs.Patch.MatchableDarcs.Patch.FileHunkDarcs.Patch.Prim.ClassDarcs.Patch.EffectDarcs.Patch.ConflictDarcs.Patch.ConflictMarkingDarcs.Patch.SummaryDarcs.Patch.Prim.V1.CoreDarcs.Patch.Prim.V1.CommuteDarcs.Patch.Prim.V3.CoreDarcs.Patch.Prim.V3.CommuteDarcs.Patch.Prim.V3.ShowDarcs.Patch.ViewingDarcs.Patch.NamedDarcs.Patch.Rebase.NameDarcs.Patch.SplitDarcs.Patch.V2.NonDarcs.Patch.Prim.V1.ShowDarcs.Patch.Rebase.FixupDarcs.Patch.Rebase.RecontextDarcs.Patch.RepoPatchDarcs.Patch.DummyDarcs.Patch.V1.CoreDarcs.Patch.V1.ShowDarcs.Patch.V1.CommuteDarcs.Patch.V2.RealDarcs.Patch.PatchInfoAndDarcs.Patch.AnnotateDarcs.Patch.ApplyPatchesDarcs.Repository.ApplyPatchesDarcs.Patch.SetDarcs.Patch.RebaseDarcs.Patch.ProgressDarcs.Patch.Rebase.ViewingDarcs.Patch.DependsDarcs.Patch.BundleDarcs.Patch.ChoicesDarcs.Patch.MatchDarcs.UI.Options.MatchingDarcs.UI.Options.AllDarcs.UI.OptionsDarcs.UI.UsageDarcs.UI.ExternalDarcs.UI.FlagsDarcs.UI.CommandsAuxDarcs.UI.RemoteApplyDarcs.Patch.TouchesFilesDarcs.Repository.InternalTypesDarcs.Repository.HashedRepoDarcs.Repository.DiffDarcs.Repository.LowLevelDarcs.Repository.StateDarcs.Repository.OldDarcs.Repository.ReadDarcs.Repository.PatchIndexDarcs.Repository.InternalDarcs.Repository.RebaseDarcs.Repository.JobDarcs.Repository.TestDarcs.Repository.MatchDarcs.Repository.ResolutionDarcs.Repository.MergeDarcs.RepositoryDarcs.Repository.RepairDarcs.Repository.UtilDarcs.UI.Commands.UtilDarcs.UI.PrintPatchDarcs.UI.CommandsDarcs.UI.ApplyPatchesDarcs.UI.Commands.CloneDarcs.UI.Commands.DistDarcs.UI.Commands.InitDarcs.UI.Message.SendDarcs.UI.Commands.ShowAuthorsDarcs.UI.Commands.ShowBugDarcs.UI.Commands.ShowContentsDarcs.UI.Commands.ShowIndex Darcs.UI.Commands.ShowPatchIndexDarcs.UI.Commands.TransferModeDarcs.UI.Commands.AddDarcs.UI.SelectChangesDarcs.UI.Commands.RecordDarcs.UI.Commands.AmendDarcs.UI.Commands.AnnotateDarcs.UI.Commands.ApplyDarcs.UI.Commands.ConvertDarcs.UI.Commands.DiffDarcs.UI.Commands.GZCRCsDarcs.UI.Commands.LogDarcs.UI.Commands.MarkConflictsDarcs.UI.Commands.MoveDarcs.UI.Commands.OptimizeDarcs.UI.Commands.PullDarcs.UI.Commands.PushDarcs.UI.Commands.UnrecordDarcs.UI.Commands.RebaseDarcs.UI.Commands.RemoveDarcs.UI.Commands.RepairDarcs.UI.Commands.ReplaceDarcs.UI.Commands.UnrevertDarcs.UI.Commands.RevertDarcs.UI.Commands.RollbackDarcs.UI.Commands.SetPrefDarcs.UI.Commands.ShowFilesDarcs.UI.Commands.ShowRepoDarcs.UI.Commands.TagDarcs.UI.Commands.ShowTagsDarcs.UI.Commands.ShowDarcs.UI.Commands.TestDarcs.UI.Commands.WhatsNewDarcs.Util.Download.HTTPDarcs.UI.Commands.SendDarcs.UI.TheCommandsDarcs.UI.Commands.HelpDarcs.UI.DefaultsDarcs.UI.RunCommandDarcs.Util.Encoding.IConv Bundled.PosixStorage.Hashed.UtilsDarcs.Util.Encoding DarcsFlagSystem.Console.GetOptOptDescr DarcsOptDescr Data.FunctorFunctorDarcs.Util.Download.CurlDarcsUtil.Path AbsolutePathTreefilterDarcs.Patch.Bracketed.InstancesDarcs.Patch.PrimDarcs.Patch.Prim.V1.DetailsDarcs.Patch.Prim.V1.ReadDarcs.Patch.Prim.V3.CoalesceDarcs.Patch.Prim.V3.DetailsDarcs.Patch.Prim.V3.ReadDarcs.Patch.Patchy.InstancesDarcs.Patch.Prim.V1.ApplyDarcs.Patch.Prim.V1.CoalesceDarcs.Patch.Prim.V1Darcs.Patch.Prim.V3.ApplyDarcs.Patch.Prim.V3Darcs.Patch.V1.ReadDarcs.Patch.V2Darcs.Patch.V1.ApplyDarcs.Patch.V1.ViewingDarcs.Patch.V1 Darcs.PatchChoices matchMaxcount usageInfoVersionbase System.IOreadFileGHC.IO.Handle.Text hGetContentsbytes_6elQVSg5cWdFrvRnfxTUrHData.ByteString intercalatedirec_KowvXytSqazBcvN7MGpFtgSystem.DirectorygetCurrentDirectorygetDirectoryContents renameFiletime_AXTdBF9VRQoBOqJT6qtmVHData.Time.ClockgetCurrentTimeunix_A3WgcI5QiHK4PDo4jSYdwQSystem.Posix.SignalsinstallHandler raiseSignalsigTERMsigPIPEsigINTsigHUPsigALRMsigABRTSignal CatchInfoOnce CatchInfo CatchOnceCatchIgnoreDefaultHandlerConnectionErrorCouldNotResolveHostCouldNotConnectToServerOperationTimeoutQUrlState inProgress waitToStart pipeLength randomJunk UrlRequesturlfilecachablepriorityCachable UncachableMaxAgePriorityHighLowreadQaddUsingPriorityinsertQpushQdeleteQelemQemptyQnullQ IsoFunctorimapIsoundercps PrimOptSpecOptSpecounparseoparseocheckodescoid^ onormalise defaultFlagsoimapoappendoempty parseFlags$fMonoidOptSpec$fIsoFunctorOptSpec toSeconds startOfTimeformatDateTime parseDateTime fromClockTime AnchoredPathNameisPrefix appendPathcatPathsparentparents anchorPathfloatBSflattenmakeName floatPath anchoredRootreplacePrefixPath appendToNameparseCmd addUrlencodedatexit withAtexit setExecutable sha256sumThisPronounItNoun Countablepluralsingular englishNum andClauses orClausesintersperseLastpresentParticiple$fCountableThis$fCountablePronoun$fCountableNounregChars MCalendarTimemctYearmctMonthmctDaymctHourmctMinmctSec mctPicosecmctWDaymctYDay mctTZNamemctTZmctIsDSTmctWeek TimeInterval readUTCDatecleanLocalDate getLocalTz parseDategetIsoDateTimeiso8601Intervaliso8601DurationenglishDateTimeenglishInterval englishLasttoMCalendarTimeunsafeToCalendarTime addToMCalsubtractFromMCal resetCalendar unsetTimeHashSHA256SHA1NoHash encodeBase64u encodeBase16 decodeBase64u decodeBase16sha256rawHashmatch setDebugMode whenDebugMode withDebugMode debugMessage debugFail putTimingsetTimingsMode timingsMode addCRCWarninggetCRCWarningsresetCRCWarnings addBadSourcegetBadSourcesList isBadSourceaddReachableSourceisReachableSourcedarcsdirdarcsLastMessagedarcsSendMessagedarcsSendMessageFinal beginTedious endTedious tediousSizeminlist progressListprogressprogressKeepLatest finishedOne finishedOneIOsetProgressModewithoutProgress ExecExceptionRedirectAsIsNullFileStdout RedirectsrenderExecExceptionexecexecInteractivewithoutNonBlockreadInteractiveProcess SshSettingssshscpsftpwindows defaultSsh stdoutIsAPipewithSignalsHandledcatchNonSignalcatchInterrupt tryNonSignalwithSignalsBlockedcatchall firstJustIO clarifyErrorsprettyException prettyError maybeGetEnv DateMatcherDMparseDateMatcher getMatchers PatchType patchType PromptConfigpPromptpBasicCharacterspAdvancedCharacterspDefaultpHelpaskUseraskEnteraskUserListItem promptYorn promptCharshowIsoDateTime BSWrapperappPrecShow2 showDict2Show1 showDict1ShowDict ShowDictClassShowDictRecord showsPrecDshowD showListD showsPrec1show1 showsPrec2show2showOp2 unsafeCoercePunsafeCoercePStartunsafeCoercePEndunsafeCoerceP2unsafeCoerceP1MyEq unsafeCompare=\/==/\=EqCheckIsEqNotEqisIsEqGapemptyGapfreeGapjoinGap FreeRight FRInternalFreeLeft FLInternalStepped unSteppedPolyunPoly FlippedSealSealed2Sealedsealseal2flipSeal unsafeUnsealunsafeUnsealFlipped unsafeUnseal2unsealunsealMliftSMmapSeal mapFlippedunseal2mapSeal2 unsealFlipped unFreeLeft unFreeRight$fGapFreeRight $fGapFreeLeft $fShowSealed2 $fShowSealed $fEqSealedFileNameFormat OldFormat NewFormat ListFormatListFormatDefault ListFormatV1 ListFormatV2PatchListFormatpatchListFormatcopyListFormat ObjectMap getObject putObject listObjectsObject DirectoryBlob DirContentLocationUUIDunsafeWithInternals readIntPSunpackPSFromUTF8packStringToUTF8 dropSpace breakSpaceisFunkyhashPSsubstrPS breakFirstPS breakLastPSlinesPS unlinesPS gzDecompressisGZFile gzReadFilePS gzWriteFilePSgzWriteFilePSs gzWriteHandle gzReadStdin mmapFilePS fromPS2Hex fromHex2PSbetweenLinesPSbreakAfterNthNewlinebreakBeforeNthNewlineisAscii decodeLocale encodeLocale decodeStringParserMparselexChar lexStringstringlexEofmyLex'anyChar endOfInputcharint skipSpace skipWhiletakeTill takeTillChartakelinesStartingWithlinesStartingWithEndingWithoptionchoice checkConsumes parseStrictlysha1PS showAsHexColorBlueRedGreenCyanMagentaPrinter Printers'PrinterscolorP invisiblePhiddenP userchunkPdefP lineColorT lineColorS RenderModeEncodeStandardDocunDoc PrintableSPSBothspacenewlineminusplus backslashlparenrparenparenserrorDoc putDocWith putDocLnWithputDocputDocLn hPutDocWith hPutDocLnWithhPutDoc hPutDocLn hPutDocCompr debugDocLn renderStringrenderStringWithrenderPS renderPSs renderPSWith renderPSsWithprefix prefixLinesinsertBeforeLastline lineColor hiddenPrefix unsafeBothunsafeBothText packedStringunsafePackedString invisiblePS userchunkPS unsafeChartext unsafeText invisibleText hiddenText userchunkblueTextredText greenText magentaTextcyanText colorTextwrapText printablesimplePrinters simplePrinterinvisiblePrinteremptydoc<><+>$$vcatvsephcat_bug_bugDoc _impossible _fromJust SshFilePathsshUhostsshReposshFile isRelative isAbsoluteisValidLocalPath isHttpUrlisSshUrl isSshNopath splitSshUrlurlOfPArray getChangesgetSliceshiftBoundariesinitPaLen DiffAlgorithm PatienceDiff MyersDiff ForgetParentYesForgetParentNoForgetParentWithWorkingDir NoWorkingDir WantGuiPauseYesWantGuiPauseNoWantGuiPauseWorkRepo WorkRepoDirWorkRepoPossibleURLWorkRepoCurrentDir ExternalMergeYesExternalMergeNoExternalMergeAllowConflictsNoAllowConflictsYesAllowConflictsYesAllowConflictsAndMark CloneKind LazyClone NormalClone CompleteClone ScanKnownScanAll ScanBoringUseIndex IgnoreIndex SetDefault YesSetDefault NoSetDefault RemoteRepos LeaveTestDirYesLeaveTestDirNoLeaveTestDirSetScriptsExecutableYesSetScriptsExecutableNoSetScriptsExecutableRunTest YesRunTest NoRunTest LookForMovesYesLookForMovesNoLookForMovesLookForReplacesYesLookForReplacesNoLookForReplaces LookForAddsYesLookForAdds NoLookForAddsUMaskYesUMaskNoUMaskDryRun YesDryRunNoDryRunUseCache YesUseCache NoUseCache UpdateWorkingYesUpdateWorkingNoUpdateWorkingReorder NoReorder RemoteDarcsDefaultRemoteDarcsWithPatchIndex YesPatchIndex NoPatchIndex Compression NoCompressionGzipCompression VerbosityQuietNormalVerbosityVerbosetraceDoc assertDocshowDoc fancyPrintersenvironmentHelpColorenvironmentHelpEscapeWhiteenvironmentHelpEscapesentence formatText formatParas formatPara breakCommandchompTrailingNewlineSSHCmdSSHSCPSFTP remoteDarcscopySSHgetSSHenvironmentHelpSshenvironmentHelpScpenvironmentHelpSshPort formatHeader makeEmail readEmailAbsoluteOrRemotePathAbsolutePathOrStdSubPath FilePathLike toFilePath FilePathOrURLtoPathFileNamefp2fnfn2fp niceps2fn fn2nicepsfn2psps2fnsp2fn encodeWhite decodeWhiteownName superName breakOnDirnormPathisParentOrEqOfmovedirfilename makeSubPathOf simpleSubPath isSubPathOf doesPathExist ioAbsolute makeAbsolute rootDirectorymakeAbsoluteOrStdstdOutioAbsoluteOrStduseAbsoluteOrStdioAbsoluteOrRemoteisRemotesetCurrentDirectoryisMaliciousPathisMaliciousSubPath filterPathsfilterFilePathsgetUniquePathName floatSubPathSummOpSummAddSummRmSummMod SummDetail SummAddDir SummRmDirSummFileSummMvSummNonewithCurrentDirectory getFileStatusdoesDirectoryReallyExistremoveFileMayNotExist osxCacheDir xdgCacheDirgetRecursiveContentsgetRecursiveContentsFullPathmaxPipelineLength copyUrlFirstcopyUrlwaitUrldisableHTTPPipelining setDebugHTTPenvironmentHelpProxyenvironmentHelpProxyPassword canonFilename mkStdoutTemp maybeRelinksloppyAtomicCreate atomicCreatewithLockwithLockCanFailenvironmentHelpLockswithTemp withOpenTempwithStdoutTemp tempdirLocenvironmentHelpTmpdirenvironmentHelpKeepTmpdir withPermDir withTempDirwithDelayedDir rmRecursiveworldReadableTemp withNamedTemp readBinFilereadLocaleFilereadDocBinFile appendBinFileappendDocBinFile writeBinFilewriteLocaleFilewriteDocBinFilewriteAtomicFilePSgzWriteAtomicFilePSgzWriteAtomicFilePSsgzWriteDocFile writeToFile appendToFile addToErrorLoc copyFileOrUrl cloneTree cloneFilebackupByRenamingbackupByCopying fetchFilePSfetchFileLazyPS gzFetchFilePSspeculateFileOrUrlenvironmentHelpProtocolsCacheCaCacheLoc cacheType cacheWritable cacheSource CacheTypeRepo WritableOrNotWritable NotWritable HashedDirHashedPristineDirHashedPatchesDirHashedInventoriesDir hashedDir allHashedDirs unionCachesunionRemoteCachescompareByLocality repo2cache cacheHashokayHashtakeHashfetchFileUsingCachewritable isThisRepo bucketFolderhashedFilePath peekInCachespeculateFileUsingCachespeculateFilesUsingCachewriteFileUsingCache cleanCachescleanCachesWithHintreportBadSources RepoFormatRF RepoPropertyDarcs1Darcs2HashedInventoryRebaseInProgress UnknownFormat formatHas addToFormatremoveFromFormatidentifyRepoFormattryIdentifyRepoFormatwriteRepoFormatcreateRepoFormat writeProblemtransferProblem readProblemFileType BinaryFileTextFilewriteDefaultPrefsboringFileHelpdarcsdirFilterglobalPrefsDirglobalPrefsDirDocenvironmentHelpHome getGlobalglobalCacheDiroldGlobalCacheDir boringRegexpsboringFileFilterbinariesFileHelpfiletypeFunction addToPreflist getPreflist setPreflist defPrefval getPrefval setPrefval changePrefval defaultrepogetDefaultRepoPath addRepoSource deleteSources getCachesgetMotdshowMotd ExactVersion ListCommandsHelp ListOptionsNoTestTestOnlyChangesToFilesChangesToAllFilesTimingsDebug DebugHTTPTargetCcOutputOutputAutoNameMailSubject InReplyToCharset SendmailCmdAuthor SelectAuthor PatchNameOnePatch SeveralPatchOneHash AfterPatch UpToPatch AfterHashUpToHashTagNameLastNMaxCountPatchIndexRange NumberPatchesOneTagAfterTagUpToTag GenContextContextCountLogFile RmLogFile DontRmLogFileDistNameDistZipAll Recursive NoRecursiveMinimize NoMinimize RestrictPathsDontRestrictPathsAskDeps NoAskDeps IgnoreTimesDontIgnoreTimes UseMyersDiffUsePatienceDiff IntersectionUnion ComplementSignSignAsNoSignSignSSLHappyForwardingNoHappyForwardingVerify VerifySSLRemoteDarcsOptEditDescriptionNoEditDescriptionToksEditLongCommentNoEditLongCommentPromptLongCommentKeepDate NoKeepDate MarkConflicts SkipConflictsBoring SkipBoring AllowCaseOnlyDontAllowCaseOnlyAllowWindowsReservedDontAllowWindowsReserved DontGrabDepsDontPromptForDependenciesPromptForDependenciesCompress NoCompress UnCompress WorkRepoUrl RemoteRepoNewRepo NotInRemoteReplyApplyAsMachineReadable HumanReadablePipe InteractiveDiffCmdSummary NoSummary PauseForGui NoPauseForGuiUnified NonUnifiedReverseForwardCompleteLazy DiffFlags XMLOutput ForceReplace OnePatternSeveralPattern AfterPattern UpToPatternNonApply NonVerifyNonForceDisableDontSetScriptsExecutableOnceLinearBackoffBisectHashed UseFormat1 UseFormat2UseNoWorkingDir UseWorkingDirSiblingFilesNoFiles Directories NoDirectoriesPending NoPending PosthookCmd NoPosthook AskPosthook RunPosthook PrehookCmd NoPrehook AskPrehook RunPrehook StoreInMemory ApplyOnDiskNoHTTPPipeliningPacksNoPacksNoCacheAllowUnrelatedReposCheckRepair JustThisRepo ReadMarks WriteMarksNullFlagNoAmendUnrecord AmendUnrecordPatchIndexFlagNoPatchIndexFlag RawOptSpecRawNoArg RawStrArg RawAbsPathArgRawAbsPathOrStdArgRawOptAbsPathArgPrimDarcsOptionFlagnoArgstrArg optStrArg absPathArgabsPathOrStdArg optAbsPathArg withDefault singleNoArg singleStrArgsingleAbsPathArg multiStrArgmultiOptStrArgmultiAbsPathArg deprecatedoptionsMarkdown:||:Fork:/\::\/:RL:<:NilRLFL:>:NilFL:<:>nullFLnullRL filterOutFLFL filterOutRLRLfilterRL+>++<+ reverseFL reverseRLconcatFLconcatRLspanFLspanFL_M splitAtFL splitAtRLbunchFLallFLanyFLfoldlFLfoldlRLmapFL_FL mapFL_FL_M zipWithFLmapRL_RLmapFLfilterFLmapRLlengthFLlengthRLisShorterThanRL consRLSealedtoFL dropWhileFL dropWhileRLeqFLeqFLRev eqFLUnsafe BracketedFL Bracketed SingletonBracedParens unBracketed unBracketedFL mapBracketedmapBracketedFLFLMergeFnTotalCommuteFn CommuteFn commuterIdRL commuterIdFL mergerIdFLtotalCommuterIdFL commuterFLId commuterRLIdtotalCommuterFLIdtotalCommuterFLFL PatchInspectlistTouchedFiles hunkMatches PatchDebugpatchDebugDummy MaybeInternalpatchInternalCheckerInternalChecker isInternal flIsInternalFZipper flToZippernullFZlengthFZfocusclownsjokers rightmostrightleftmostlefttoEndtoStart PatchInfo_piDate_piName _piAuthor_piLog isInverted rawPatchInfo patchinfoaddJunk invertNamejustName justAuthorjustLogshowPatchInfoUIpiNamepiRenamepiAuthorisTagpiDate piDateStringpiDateBytestring setPiDatepiLogpiTagtoXml escapeXML makeFilename makePatchname showPatchInfo readPatchInforeadPatchInfosPatchModPTouch PCreateFile PCreateDirPRenamePRemovePInvalidPDuplicateTouch DatedFilePathPatchIdPIDpatchIdFileIdcnamecount parseFileId showFileId pid2string makePatchIDshort$fBinaryPatchId$fBinaryFileId FilterTreeitemstreeHashItemTypeTreeTypeBlobTypeTreeItemSubTreeStub listImmediateitemHashitemType emptyTree emptyBlobmakeBlob makeBlobBSmakeTreemakeTreeWithHashlookupfindfindFilefindTreelist expandUpdateexpand expandPath checkExpandrestrictreadBlobzipCommonFileszipFileszipTrees diffTrees modifyTreeupdateSubtrees updateTreepartiallyUpdateTreeoverlayaddMissingHashesTreeRW writeFilecreateDirectoryunlinkrenamecopyTreeROcurrentDirectory withDirectoryexistsdirectoryExists fileExistsTreeIO TreeMonad TreeStatetree initialState runTreeMonadvirtualTreeMonad virtualTreeIO replaceItemfindM findTreeM findFileM MonadProgressrunProgressActionsProgressActionpaAction paMessage paOnErrorsilentlyRunProgressActions ApplyMonadApplyMonadBase nestedApply liftApply getApplyState putApplyStateeditFile editDirectorymDoesDirectoryExistmDoesFileExist mReadFilePS mReadFilePSsmCreateDirectorymRemoveDirectory mCreateFile mRemoveFilemRename mModifyFilePSmModifyFilePSs mChangePrefApplyMonadTransApplyMonadOver runApplyMonadToTreetoTree withFileNames withFiles FileModMonad withPatchMods readPlainTreewritePlainTree plainTreeIOIndex updateIndex listFileIDs readIndexupdateIndexFromindexFormatValid getFileIDOShatcherymatureroots referencesrootdirBlock blockLookupformatFormatLooseCompactPackrepackhatchcompactcreateloadlivedarcsDecodeWhitedarcsEncodeWhitedarcsEncodeWhiteBSdecodeDarcsHashdecodeDarcsSize darcsLocationdarcsFormatDir darcsParseDir darcsTreeHashdarcsUpdateDirHashesdarcsUpdateHashes darcsHashdarcsAddMissingHashesreadDarcsHashedDirreadDarcsHashed'readDarcsHashedreadDarcsHashedNosizewriteDarcsHashedfsCreateHashedFile hashedTreeIOreadPackedDarcsPristinewritePackedDarcsPristinestorePackedDarcsPristinedarcsPristineRefsdarcsCheckExpandRWHashedIO copyHashedpathsAndContentscopyPartialsHashed cleanHashdirgetHashedFiles printPathtreeHasAnycasetreeHas treeHasDir treeHasFile breakOutTokentryTokInternalforceTokReplaceNameHacknameHack ReadPatch readPatch'readPatchPartial readPatch bracketedFLpeekfor readFileNameInvertinvertinvertFLinvertRLCommutecommute commuteRLFL commuteRL commuteFLcommuteFLorComplain toFwdCommute toRevCommute selfCommuterMergemerge selfMergermergeFL partitionFL partitionRLcommuteWhatWeCanFLgenCommuteWhatWeCanFLcommuteWhatWeCanRLgenCommuteWhatWeCanRL removeCommonremoveFLremoveRLremoveSubsequenceFLremoveSubsequenceRLsimpleHeadPermutationsFLheadPermutationsFLheadPermutationsRLpartitionConflictingFLinverseCommuterApply ApplyStateapplyeffectOnFilePathsapplyToFilePaths applyToTree applyToStateapplyToFileMods RepairToFLapplyAndTryToFixFLapplyAndTryToFixisInconsistent mapMaybeSnd ShowPatch showNicelyshowContextPatch descriptionsummary summaryFLthingthingsShowPatchBasic showPatchshowNamedPrefixformatFileNamePatchy MatchableIsHunkisHunkFileHunk showFileHunk PrimApply applyPrimFLPrimReadreadPrimPrimShowshowPrim PrimDetails summarizePrim PrimCanonize tryToShrinktryShrinkingInversesortCoalesceFLcanonize canonizeFLcoalesce PrimConstructaddfilermfileadddirrmdirmove changeprefhunk tokreplacebinary primFromHunk anIdentity PrimClassify primIsAddfile primIsRmfile primIsAdddir primIsRmdir primIsMove primIsHunkprimIsTokReplace primIsBinary primIsSetpref is_filepatch FromPrims fromPrims ToFromPrimtoPrimFromPrimfromPrim PrimPatchBasePrimOf PrimPatch showPrimFLEffecteffecteffectRL ConflictStateOkay Conflicted DuplicatedIsConflictedPrimIsCCommuteNoConflictscommuteNoConflictsConflictlistConflictedFilesresolveConflictsconflictedEffectmangleUnravelledplainSummaryPrimplainSummaryPrims plainSummary xmlSummary DirPatchTypeRmDirAddDir FilePatchTypeRmFileAddFileHunk TokReplaceBinaryPrimMoveDPFP ChangePref isIdentity comparePrimWrappedCommuteFunctionrunWrappedCommuteFunctionPerhapsUnknownFailed Succeeded subcommutes BinaryHunkTextHunkManifest DemanifestIdentityhunkEdittouches CommuteMonad commuteFailshowHunkshowContextSeriesshowContextHunkNamedNamedP namepatch anonymous infopatchadddepsgetdepspatch2patchinfo patchname patchcontents fmapNamed fmapFL_NamedcommuterIdNamedcommuterNamedId mergerIdNamed RebaseNameAddNameDelNameRenamecommuteNamePrimcommutePrimNamecommuteNameNamedcommuteNamedNameSplitter applySplitter canonizeSplit rawSplitter noSplitter primSplitterreversePrimSplitterNonablenonNonunNonshowNonsshowNonreadNonsreadNoncommuteOrAddToCtxcommuteOrAddToCtxRLcommutePrimsOrAddToCtxremNonscommuteOrRemFromCtxcommuteOrRemFromCtxFL*>>**>>>>* RebaseFixup PrimFixup NameFixupflToNamesPrimscommuteNamedFixupcommuteNamedFixupscommuteFixupNamedRecontextRebaserecontextRebaseRecontextRebase2recontextFunc2RecontextRebase1recontextFunc1 RepoPatch DummyPatchPatchPPMergerRegremisMerger mergerUndo showPatch_ publicUnravelunravelmerger RealPatch Duplicate EtacilpudNormal Conflictor InvConflictor isDuplicate isForwardmergeUnravelled isConsistent prim2real WPatchInfo unWPatchInfo PatchInfoAndPIAPSimpleHopefullyActually Unavailable HopefullycompareWPatchInfoinfo patchDescwinfopiapn2piapatchInfoAndPatchfmapPIAP fmapFLPIAP hopefullyconscientiously hopefullyMactually createHashed extractHash unavailableAnnotateResultannotateannotateDirectory machineFormat applyPatches DefaultIO runTolerantly runSilently runDefaultTaggedPatchSetSealedPatchSetOrigin emptyPatchSet newset2RL newset2FL appendPSFLprogressPatchSettags RebaseItemToEditFixupRebasing Suspended countToEdit simplifyPushsimplifyPushes mkSuspended takeAnyRebasetakeAnyRebaseAndTrailingPatchestakeHeadRebasetakeHeadRebaseRLtakeHeadRebaseFL progressFL progressRLprogressRLShowTagsWDDNamedWithDroppedDepswddPatch wddDependedOn RebaseChangeRCFwdRCRev RebaseSelectRSFwdRSRevrsToPiafromRebaseSelecttoRebaseSelecttoRebaseChangespartitionUnconflicted commuterIdWDDextractRebaseSelectreifyRebaseSelectgetPatchesBeyondTag splitOnTag getUncoveredslightlyOptimizePatchset commuteToEndremoveFromPatchSetfindCommonAndUncommonfindCommonWithThem findUncommon countUsThem mergeThemnewsetIntersection newsetUnionmerge2FLareUnrelatedRepos hashBundle makeBundleN makeBundle2 parseBundle scanBundle getContextcontextPatchesscanContextFile minContext patchFilenameSlotInFirstInMiddleInLast PatchChoices LabelledPatchLabellabellpPatch patchChoicespatchChoicesLpsSubpatchChoicesLpsseparateFirstFromMiddleLastseparateFirstMiddleFromLast getChoices refineChoices patchSlot patchSlot'forceMatchingFirst forceFirsts forceFirstselectAllMiddlesforceMatchingLast forceLasts forceLast makeUncertainmakeEverythingLatermakeEverythingSooner substituteInclusiveOrExclusive Inclusive Exclusive MatchFlagaddInternalMatcher matchParserhelpOnMatchershaveNonrangeMatchhavePatchsetMatchgetNonrangeMatchS firstMatchgetFirstMatchS secondMatchcheckMatchSyntaxnonrangeMatchernonrangeMatcherIsTagmatchAPatchread matchAPatch matchPatch hasIndexRangematchFirstPatchsetmatchSecondPatchset splitSecondFLmatchAPatchsetgetMatchingTag matchExistsapplyInvToMatcher applyNInvmatchOnematchOneContextmatchOneNontag matchSeveralmatchSeveralOrFirstmatchSeveralOrLast matchRangematchSeveralOrRangematchAnycontext GzcrcsAction GzcrcsCheck GzcrcsRepair TestStrategy ChangesFormatGenXml CountPatches PatchFormat PatchFormat1 PatchFormat2NetworkOptionsnoHttpPipelining YesSummaryNoVerify VerifyKeyring HeaderFields_to_cc_from_subject _inReplyTo TestChanges NoTestChangesYesTestChanges ExternalDiff_diffCmd _diffOpts WithContext NoContext YesContextLookForaddsreplacesmovesLogfile_logfile _rmlogfileAskLongCommentYesEditLongCommentRepoCombinator SelectDepsNoDepsAutoDeps PromptDeps XmlOutputNoXmlYesXml StdCmdAction RootActionRootHelp DarcsOption rootActions stdCmdActionsdebug verbositytimings anyVerbosityhookspreHookpostHookuseCache xmloutputdryRun dryRunXmlpipe interactive pauseForGuiaskdeps selectDepschangesReverseworkRepoworkingRepoDirreponamepossiblyRemoteRepo remoteReposnotInRemoteFlagName notInRemoterepoCombinatorallowUnrelatedRepos justThisRepo useWorkingDir setDefaultauthoraskLongCommentkeepDatelogfilelookfordiffinguseIndex includeBoringallowProblematicFilenamesallowCaseDifferingFilenamesallowWindowsReservedFilenames onlyToFiles recursive diffAlgorithm withContextunidiffextDiff testChangestest leaveTestDir headerFields sendToContextsendmail sendmailCmdminimizecharseteditDescriptionccApplyreplyhappyForwardingapplyAssignverify conflictsuseExternalMergecompressusePacks patchIndex patchIndexYes storeInMemoryoutputnetworkumasksetScriptsExecutable restrictPaths amendUnrecord selectAuthor humanReadablemachineReadablepartialmarks readMarks writeMarkshashed patchFormatdistnamedistzip changesFormattokens forceReplace testStrategyfiles directoriespendingnullFlag gzcrcsActionssiblingsreorderPatchesreorderoptimizePatchIndexoptDescr sendmailPath diffProgram darcsProgram maybeURLCmdpipeDoc pipeDocSSH sendEmail generateEmail haveSendmail sendEmailDoc resendEmail execDocPipeexecPipeIgnoreError signStringverifyPSviewDoc viewDocWitheditTextsetDarcsEncodingsgetSystemEncoding isUTF8Locale compressiondiffOpts diffingOpts externalMerge wantGuiPause isInteractivemaxCountwillRemoveLogFile isUnifieddoHappyForwardingdoAllowCaseOnlydoAllowWindowsReserved doReverseshowChangesOnlyToFilesremoveFromAmended toMatchFlags runPatchIndex lookForAddslookForReplaces lookForMovesrunTestwithWorkingDir cloneKindallowConflictsfixRemoteReposfixUrlmaybeFixSubPaths fixSubPaths getRepourlfileHelpAuthorenvironmentHelpEmail getAuthor promptAuthor getEasyAuthorgetDateenvironmentHelpSendmailgetSendmailCmd getOutput getCharset getSubjectgetCc getInReplyTogetReply hasSummary hasXmlOutput hasLogfile hasAuthor checkPathsmaliciousPatcheshasMaliciousPath remoteApplyselectTouchingdeselectNotTouchingselectNotTouchingchooseTouchingchoosePreTouching lookTouch RepositoryPristine NoPristine PlainPristineHashedPristine extractCache modifyCachehashedInventoryinventoriesDir pristineDir patchesDirrevertTentativeChangesfinalizeTentativeChangesreadHashedPristineRoot cleanPristinefilterDirContentssetunsetcleanInventories cleanPatchesaddToSpecificInventoryaddToTentativeInventoryremoveFromTentativeInventoryreadReporeadTentativeReporeadRepoUsingSpecificInventoryreadRepoFromInventoryListcopyHashedInventory copySourceswriteAndReadPatchwriteTentativeInventorywritePatchIfNecessarylistInventorieslistInventoriesLocallistInventoriesRepoDirlistPatchesLocalBucketed readPatchIdsapplyToTentativePristine copyPristinecopyPartialsPristinepris2invinv2pristreeDiff pendingName readPendingreadTentativePendingreadNewPendingwriteTentativePendingwriteNewPending TreeFilterapplyTreeFilterrestrictSubpathsrestrictBoringrestrictDarcsdirunrecordedChangesunrecordedChangesWithPatchesreadPendingAndWorking readRecordedreadUnrecorded readWorkingreadRecordedAndPendinginvalidateIndexfilterOutConflicts readOldRepooldRepoFailMsg PatchFilterdoesPatchIndexExistisPatchIndexDisabledcreateOrUpdatePatchIndexDisk canCreatePIcanUsePatchIndexcreatePIWithInterruptisPatchIndexInSyncdeletePatchIndexdumpPatchIndexdumpPatchIndexFilesgetRelevantSubsequence filterPatchesmaybeFilterPatchespiTestattemptCreatePatchIndexUpdatePristineDontUpdatePristineDontUpdatePristineNorRevert MakeChangesDontMakeChanges IdentifyRepo BadRepository NonRepositoryGoodRepositorymaybeIdentifyRepositoryidentifyRepositoryidentifyRepositoryForamInRepositoryamInHashedRepositoryseekRepoamNotInRepositoryfindRepositorymakeNewPendingprefsUrl unrevertUrlapplyToWorkingtentativelyRemoveFromPendingannounceMergeConflictscheckUnrecordedConflictstentativelyAddPatchtentativelyAddPatches_tentativelyAddPatch_tentativelyAddToPendingsetTentativePendingtentativelyRemovePatchestentativelyRemovePatches_tentativelyReplacePatchesfinalizeRepositoryChangesrevertRepositoryChangespatchSetToPatchescleanRepositorycreatePristineDirectoryTree#createPartialsPristineDirectoryTree withRecorded withTentativesetScriptsExecutablePatchesreorderInventorywithManualRebaseUpdaterepoJobOnRebaseRepo rebaseJobstartRebaseJobRepoJobV1JobV2Job PrimV1JobRebaseAwareJob RebaseJobStartRebaseJobwithRepositorywithRepositoryDirectory withRepoLockwithRepoLockCanFailgetTest runPosthook runPrehook testTentativegetNonrangeMatchgetPartialNonrangeMatch getFirstMatchgetOnePatchsetstandardResolutionexternalResolutionpatchsetConflictResolutionstentativelyMergePatchesconsiderMergeToWorkingcreateRepository repoPatchTypecloneRepository writePatchSetpatchSetToRepositorycheckUnrelatedReposaddPendingDiffToPending addToPendingreplacePristine listFileslistUnregisteredFileslistRegisteredFilesRepositoryConsistencyRepositoryConsistentBrokenPristine BrokenPatchesreplayRepositoryInTempreplayRepository checkIndex getMovesPs getReplacesmaybeApplyToTree patchSetfMap defaultToksgetRecursiveDarcsRepos announceFilestestTentativeAndMaybeExitfilterExistingFilesgetUniqueRepositoryNamegetUniqueDPatchName printFriendly showFriendly printPatchprintPatchPagercontextualPrintPatch CommandArgs CommandOnlySuperCommandOnlySuperCommandSub DarcsCommandcommandProgramName commandName commandHelpcommandDescriptioncommandExtraArgscommandExtraArgHelpcommandCommand commandPrereqcommandGetArgPossibilitiescommandArgdefaultscommandBasicOptionscommandAdvancedOptionscommandDefaultscommandCheckOptionscommandParseOptions SuperCommandcommandSubCommandsCommandControl CommandData HiddenCommand GroupNameWrappedCommandextractCommandsextractAllCommands normalCommand hiddenCommand commandGroupwrappedCommandName withStdOptscommandAlloptionscommandOptions nodefaultsgetSubcommands commandAlias commandStubusagesubusage usageHelpergetCommandMiniHelpgetCommandHelpdisambiguateCommands putVerboseputInfo putWarningputVerboseWarningabortRunprintDryRunMessageAndExitsetEnvDarcsPatchessetEnvDarcsFiles formatPath defaultRepoStandardPatchApplier PatchApplier CarrierTyperepoJob PatchProxyclonegetput cloneToSSH makeRepoNamedist doFastZip doFastZip' initialize initializeCmdcmdDescriptioncmdHelpcannotSendToSelf creatingPatchnoWorkingSendmailnothingSendable selectionIsselectionIsNull emailBackedUppromptCharSetWarningcharsetAbortedcharsetCouldNotGuesscurrentEncodingIscharsetUtf8MailDiffLocaleabortedsuccess postingPatch wroteBundlesavedButNotSent willSendTo promptTarget aboutToEditpromptNoDescriptionChangeSpelling showAuthors rankAuthorscanonizeAuthorcompiledAuthorSpellingsshowBug showContents showIndexshowPristineCmdshowPatchIndexAllshowPatchIndexFilesshowPatchIndexStatuspatchIndexTest transferModeadd expandDirsKeyPresskpkpHelpInteractiveSelectionMInteractiveSelectionContextISCtotalcurrentlpschoicesPatchSelectionContext allowSkipAllPatchSelectionOptions matchFlags WhichChangesLast LastReversedFirst FirstReversedselectionContextPrimselectionContextselectionContextGeneric runSelection selectChanges viewChangeshelpForkeysForwithSelectedPatchFromRepo currentPatch currentFiledecidedecideWholeFileskipOnebackOne printSummarybackAll isSingleFileprompt promptUsershowCur skipMundaneaskAboutDepends RecordConfigaskDeps_workingRepoDirsse recordConfigrecordcommitgetLogamend amendrecordupdatePatchHeaderapplyCmdgetPatchBundleconvert diffCommand doCRCWarningsgzcrcslog getLogInfo changelogchanges markconflictsmvoptimizedoOptimizeHTTPfetchpullpullCmd fetchPatches revertablepushunrecordgetLastPatchesunpull obliterate matchingHeadrebaseremovermunaddrepaircheckreplaceunrevert writeUnrevertrevertrollbacksetpref showFilestoListManifestmanifest manifestCmdshowRepotaggetTagsshowTags showCommandquerywhatsnewstatusfetchUrlpostUrl requestUrl waitNextUrlsendcommandControlListhelpCmdlistAvailableCommands printVersionenvironmentHelp applyDefaults runTheCommandResult SuccessfulInvalid Incomplete IConvTPtrIConvTNLItemc_iconv iconv_close iconv_open nl_langinfo c_setlocalegetLocaleCodesetencodedecode openEncoder openDecoder dropUTF8Char replacement simpleIConv setLocale getCodeset iconvOpeniconv partialIconvgetFileStatusBS FileStatus fst_existsfst_mode fst_mtimefst_sizebsToPath strToPath getFdStatusdo_stat isDirectory isRegularFilemodificationTimefileSizegetSymbolicLinkStatusSystem.Posix.Types EpochTime FileSegment readSegmentmfixFromfixFrom reachable unsafePokeBSalignxlate32xlate64InProgressStatusGHC.BaseStringData.ByteString.Internal ByteStringMaybeNothingtoMJDstartOfTimeMJDfromGregorian' fromGregoriantoUniversalTime fromSecondsfromMJDfromUniversalTimeGHC.IOFilePathFTable commandlinearg unquotedArg quotedArg quoteContent formatRedirescape consumeAll separator expandFormat urlEncode atexitActionsGHC.Num-GHC.Real. unescapeCharsnormalRegChars&&&|||oldti_FBWJJDS5FKr7UKFScBcUW2 System.Time CalendarTimereadDatedateTimecaseCharparse_8fSmqig53hOL2SEu1k9Tv0Text.Parsec.Char caseStringmanyNmanyNtoM cvsDateTimeiso8601DateTime oldDateTimerfc2822DateTime iso8601Date iso8601TimeoptchainmySpacesdayNameyearmonthNum intToMonth monthNamedayhourminutesecondzone englishDate englishTime englishAgoenglishDuration theBeginning multiplyDiff copyCalendar caseStrings parseDHMSparseHMSparseSpacesMonthNamenDigits twoDigits fourDigitsaddToCalsubtractFromCaladdDiff nullMCalendarbase16base64u debase64udebase16CRCWarningList _debugMode _timingsMode_crcWarningList_badSourcesList_reachableSourcesListgetReachableSources _progressData ProgressDatasofarlatesthandleProgresshandleMoreProgress printProgressmyput simpleput progressIOprogressKeepLatestIOputDebug _progressModemkhPutCrupdateProgressDatasetProgressDatagetProgressDatagetProgressLastwhenProgressModewithProgressModecurl_pipelining_enabledcurl_enable_debug curl_last_urlcurl_wait_next_urlcurl_request_urlpipeliningEnabled cachableToInt_devNull withExit127$fShowExecException$fExceptionExecException detectSsh _defaultSshControl.Exception.BasecatchSignalException resethandlerih catchSignalcatchUserErrors$fExceptionSignalException firstJustMfmap withinDay dateRange cDateRangewithinsamePartialDate tryMatchersnow maybeRead dayAndHMSTime nullCalendar$fShowBSWrapper $fShowEqCheck $fEqEqCheck Data.OldListunlines encodeChar8 conv_from_hex conv_to_hexhas_funky_char isSpaceWord8hashhGetLittleEndIntSM ParserStatework maybeWork peekInputghc-prim GHC.TypesCharmyLexlinesStartingWith'linesStartingWithEndingWith' alterInputstuple:*:bindSMreturnSMfailSM$fAlternativeSM$fApplicativeSM $fFunctorSM $fMonadPlusSM $fParserMSM $fMonadSMXYZfiddleEndiannesssha1Step12PadLength sizeSplit sha1Step3Init sha1Step4Main $fBinarySHA1 $fShowSHA1DocumentStspacePnewlinePhPrintPrintableshPrintPrintable renderWithinvisiblePrintablehiddenPrintableuserchunkPrintablesimplePrinters'Emptyprinters currentPrefix initStatemkColorPrintable $fIsStringDocBugStuff_bugLocSshFP cleanrepourl cleanrepodirmarkColldiffArrcmpseqfindDiagfindOne findSnake findOneRev findSnakeRev nextUnchangedskipOneUnChangednextUnchangedN nextChanged prevUnchangedBSTArrayVSTArrayMapArrayBArrayHArray dropStartdropEnd getChanges'initVinitVRev initVChangedinitHinitMaLenM convertPatch getInsert getDelete createPatchcreatePskipChangedRevlcus patientLcslcs ThresholdHunkMap HunkMapInfoHMapgetMapgetSize getBArrayinserttoHunk' listToHunkgenNestedChangesboringsborings' byparagraphbylinesmkdiffprefixPostfixDiff patientLcs0 lcs_simple prune_matcheshunt hunt_internal hunt_one_char hunt_recoverempty_thresholdmy_bs my_helper_bs find_matches unzip_indexedfind_sorted_matchesPolicypoColorpoEscape poLineColor poAltColor poIsprintpo8bitpoNoEscXpoEscX poTrailingpoCRpoSpace getPolicylineColorTransnoEscapeisPrintableAscii quoteChar markEscapecolor makeAsciiart resetColor withColorsetColormakeBold makeInvertdollarcrgetTermNColorslineColorSuffix colorPrinteruserchunkPrinter escapePrinter makeColor' makeColorwithSSHConnection ConnectionCinpouterrdebsshConnectionsseverSSHConnectiongrabSSH fromSshCmdqEncodelineMaxqlineMax foldAndEncodeencodedWordStartencodedWordEnd qEncodeCharqpencodeqpdecodeord simpleClean pathToPosix normSlashesCharLiketoCharfromCharAbsPRmtPAPAPStdFNnorm breakFirst breakLast/- takeDirectoryisGenerallyMaliciousisExplicitlyRelative$fShowAbsoluteOrRemotePath$fShowAbsolutePathOrStd $fShowSubPath$fShowAbsolutePath$fFilePathLike[]$fCharLikeChar$fFilePathLikeSubPath$fFilePathLikeAbsolutePath$fFilePathLikeFileName$fFilePathOrURLFileName#$fFilePathOrURLAbsoluteOrRemotePath$fFilePathOrURL[]$fFilePathOrURLSubPath$fFilePathOrURLAbsolutePath$fBinaryFileName$fShowFileNamecatchNonExistencecheckWaitToStartUrlMmaxPipelineLengthRefurlNotificationsurlChan urlThreadcopyUrlWithPrioritycreateDownloadFileNamedownloadCompletedbg minCachable waitNextUrl'c_atomic_create maybe_relink c_mkstemp mkstempCorewithDir WithDirKindPermTempDelayed releaseLockgetlocktakeLocktakeFilegetCurrentDirectorySansDarcs copyLocal copyRemotecloneTreeExcept cloneSubTreebackupBycopyAndReadFilecopyRemoteNormalspeculateRemotehashedFilePathReadOnlycopyFileUsingCachecheckCacheReachabilityfilterBadSources checkHashedInventoryReachabilityfetchFileUsingCachePrivatewrite FromWhere LocalOnlyAnywhereOrOnlySpeculate ActuallyCopy OnlySpeculate checkHashcopyFilesUsingCache createCachecleanCachesWithHint' $fShowCache$fShowCacheLoc $fEqCacheLoc darcs1Format darcs2FormathashedInventoryFormat Data.EitherLeftJust findProblemsisKnownnoWorkingDirFormatrebaseInProgressFormatreadRepoProperty$fShowRepoFormat$fShowRepoPropertytryMakeBoringRegexpdefaultBinariesosx defaultBoring isDarcsdir noncomments getPrefLines doNormalisefindPrefsDirectorywithPrefsDirectory getPreffile updatePrefVal fixRepoPathdefaultRepoPrefSingleArgOptDescr switchNames rawUnparserawParsedefHeadaddDefaultHelpBoolmultiArg$fIsoFunctorRawOptSpecoptionMarkdownshowShortOptionsMdshowLongOptionsMd $fShow2:/\: $fShow:/\: $fShow2:\/: $fShow:\/: $fShow2:>$fEq:<$fMyEq:<$fEq:>$fMyEq:>$fShow:> $fShow1:> $fShow2RL $fShow1RL$fShowRL $fShow2FL $fShow1FL$fShowFL$fPatchListFormatBracketed$fPatchInspectRL$fPatchInspectFL$fPatchDebugRL$fPatchDebugFL readPatchDatemetadataToStringignored ignoreJunk friendlyD commentsAsXmlescapeXMLByteString strReplace bstrReplace$fShowPatchInfo sortedUnionfind'countmapunstubisSub$fFilterTreeTreem modifyItem flushSomeexpandTochanged changesizemaxage updateHashupdateChangedflush runTreeMonad' renameChanged flushItemfindM' $fTreeRWRWST $fTreeRORWST$fMonadProgressRWSTtrackOrigRenameRestrictedApply FilePathMonadFilePathMonadStateOrigFileNameOffn2ap$fMonadProgressStateT$fApplyMonadStateTTree$fMonadProgressStateT0$fApplyMonadStateTTree0$fApplyMonadRWSTTree$fApplyMonadTransmTree $fToTreeTreeFMMaddModaddFile createFile createDirerrorIfPresent modifyFps$fApplyMonadFileModMonadTree readPlainDirnextFresitemF_fileIDsnexttreeitemresitemItem createItempeekItem updateItem mmapIndexResultFState dirlengthpathstartIndexMmmapbasedirhashtree predicate EmptyIndexiBaseiHashAndDescriptor size_magic size_sizesize_aux size_fileid size_dsclen size_hashoff_sizeoff_aux off_fileid off_dsclenoff_hashoff_dsc itemAllocSizeitemSizeitemNext iDescriptoriPathiHashiSizeiAuxiFileID itemIsDir xlatePeek64 xlatePoke64 updateFileID updateAux updateTimeiHash'readItemreadDirreadItemFileIDsreadDirFileIDsreadFileFileID formatIndex getFileID'$fFilterTreeIndexMIOsize loose_dirs loosePath looseLookup blocksLookupreadPack createPack readHashFilegetaObjTypeFDHashDir permissionscacherootHashmWithCurrentDirectorymInCurrentDirectory identifyThing makeThingrmThingreadhashwithhinhreadroot writerootgetanysetareaddirdirwritedir writeHashFilecopyPartialHashed existsAnycasepeekforc $fReadPatchRL $fReadPatchFL$fReadPatchBracketed $fInvertRL $fInvertFL $fCommuteRL $fCommuteFL $fMergeRL $fMergeFL partitionFL' partitionRL'$fMyEqRL$fMyEqFL $fApplyRL $fApplyFL $fRepairFL $fCheckRL $fCheckFL$fShowPatchBasicBracketed $fFromPrimsRL $fFromPrimsFL $fFromPrimFL$fPrimPatchBaseRL$fPrimPatchBaseFL $fEffectRL $fEffectFLcommuteNoConflictsFLcommuteNoConflictsRLcommuteNoConflictsRLFL$fShowIsConflictedPrim$fCommuteNoConflictsRL $fConflictRL$fCommuteNoConflictsFL $fConflictFL applyHunks getAFilenamegetOld getHunksOld getHunksNew getHunkline makeChunk onlyHunksmangleUnravelledHunks SummChunk genSummarysummChunkToXMLsummChunkToLine dropDotSlashevalargsnFn$fEqPrim $fMyEqPrim$fPatchDebugPrim$fPatchInspectPrim $fInvertPrim $fIsHunkPrim$fPrimConstructPrim$fPrimClassifyPrim$fMyEqDirPatchType$fMyEqFilePatchTypeCommuteFunction isInDirectorytoMaybe toPerhaps cleverCommute speedyCommuteeverythingElseCommute isSuperdircommuteFiledircommuteFilepatches commuteFP commuteHunk tryTokReplace $fCommutePrim$fMonadPlusPerhaps$fAlternativePerhaps$fMonadPerhaps$fApplicativePerhaps$fFunctorPerhaps$fPrimDetailsPrim readBinaryhunk'binary'readHunk skipNewlinereadTok readAddFile readRmFilereadMovereadChangePref readAddDir readRmDir$fPrimReadPrim$fReadPatchPrim invertHunk $fShow2Prim $fShow1Prim $fMyEqHunk $fShow2Hunk $fShow1Hunk$fPrimCanonizePrimCommute'commute' typematchcommuteOverlapping$fCommute'Prim$fCommuteMonadMaybe showManifest formatUUID$fPrimShowPrim$fShowPatchPrim$fShowPatchBasicPrim$fPatchListFormatPrimcoolContextHunk $fShowPatchRL$fShowPatchBasicRL $fShowPatchFL$fShowPatchBasicFL readNamed readDependsreadPis$fPatchDebugNamed $fShow2Named $fShow1Named$fShowPatchNamed$fShowPatchBasicNamed $fCheckNamed$fConflictNamed$fPatchInspectNamed $fMergeNamed$fCommuteNamed $fInvertNamed $fMyEqNamed $fRepairNamed $fApplyNamed$fReadPatchNamed$fPatchListFormatNamed $fIsHunkNamed $fEffectNamed$fPrimPatchBaseNamed$fMyEqRebaseName$fEffectRebaseName$fPrimPatchBaseRebaseName$fPatchyRebaseName$fApplyRebaseName$fPatchInspectRebaseName$fInvertRebaseName$fCommuteRebaseName$fReadPatchRebaseName$fShowPatchRebaseName$fShowPatchBasicRebaseName$fShow2RebaseName$fShow1RebaseName $fPatchyRL $fPatchyFLwithEditedHead doPrimSplit doPrimSplit_doReversePrimSplitWL$fEqNontoRLinvertWL$fWLRL$fWLFL $fShow1Non $fShowNon showAddFile showRmFileshowMoveshowChangePref showAddDir showRmDirshowTok showBinary breakEvery$fShowDirPatchType$fShowFilePatchType $fShowPrim FileContentsapplyHunkLines$fPrimApplyPrim$fRepairToFLPrim $fApplyPrim coalesceRev shrinkABittryOnesortCoalesceFL2pushCoalescePatchSimpleSFPSDP mapPrimFLtoSimple fromSimple fromSimplestryHarderToShrink tryToShrink2coalesceFilePrim coalesceHunk canonizeHunk makeHoley$fFromPrimPrim$fPrimPatchBasePrim $fPatchyPrim$fPrimPatchPrim editObject$fApplyMonadTransmObjectMap$fApplyMonadStateTObjectMap$fToTreeObjectMapcommuteNamedPrimcommutePrimNamed$fCommuteRebaseFixup$fPatchInspectRebaseFixup$fInvertRebaseFixup$fMyEqRebaseFixup$fEffectRebaseFixup$fApplyRebaseFixup$fPrimPatchBaseRebaseFixup$fShow2RebaseFixup$fShow1RebaseFixup$fShowRebaseFixup DummyPrim$fPatchDebugDummyPatch$fRepoPatchDummyPatch$fRecontextRebaseDummyPatch$fNameHackDummyPatch$fMaybeInternalDummyPatch$fPrimPatchBaseDummyPatch$fRepairToFLDummyPatch$fCheckDummyPatch$fCommuteNoConflictsDummyPatch$fFromPrimDummyPatch$fConflictDummyPatch$fMergeDummyPatch$fEffectDummyPatch$fPatchyDummyPatch$fMatchableDummyPatch$fApplyDummyPatch$fCommuteDummyPatch$fShowPatchDummyPatch$fShowPatchBasicDummyPatch$fReadPatchDummyPatch$fPatchInspectDummyPatch$fInvertDummyPatch$fMyEqDummyPatch$fPatchListFormatDummyPatch$fIsHunkDummyPatch$fPatchDebugDummyPrim$fPrimPatchDummyPrim$fPrimApplyDummyPrim$fPrimReadDummyPrim$fPrimShowDummyPrim$fPrimDetailsDummyPrim$fPrimClassifyDummyPrim$fPrimCanonizeDummyPrim$fPrimConstructDummyPrim$fRepairToFLDummyPrim$fPatchyDummyPrim$fApplyDummyPrim$fCommuteDummyPrim$fShowPatchDummyPrim$fShowPatchBasicDummyPrim$fReadPatchDummyPrim$fPatchInspectDummyPrim$fInvertDummyPrim$fMyEqDummyPrim$fPatchListFormatDummyPrim$fIsHunkDummyPrim$fPatchDebugPatch $fCheckPatch$fPatchListFormatPatch$fFromPrimPatch$fPrimPatchBasePatch$fRecontextRebasePatch$fNameHackPatch$fMaybeInternalPatch $fShow2Patch $fShow1Patch $fShowPatch showMerger mergerCommute elegantMerge actualMerge MaybeCommute unsafeMergercommuteNoMergerisFilepatchMergercommuteRecursiveMergerotherCommuteRecursiveMergerrevCommuteFLIdunwind trueUnwindreconcileUnwindings putBefore getSupersisSuperpatchOfglump09newUr eqPatches $fEqPatch $fMyEqPatch $fInvertPatch $fIsHunkPatch $fEffectPatch$fConflictPatch$fCommuteNoConflictsPatch$fPatchInspectPatch$fCommutePatch $fMergePatch readMergermerger'regrem$fReadPatchPatchCommonRLCommonmergeAfterConflicting allNormal pullCommon pullCommonRLmergeConflictingNons joinEffectsassertConsistentgeteffxx2nons xx2patcheseveryoneConflicts mergeWitheqSetremove1 invertNon nonTouchesnonHunkMatchestoNonsinitsFLfilterConflictsFLallConflictsWith conflictsWith dependsUpon+++ swapMerge invertCommuteinvertCommuteNC duplicate etacilpud conflictor rotcilfnoc$fIsHunkRealPatch$fEffectRealPatch$fNonableRealPatch$fShow2RealPatch$fShow1RealPatch$fShowRealPatch$fReadPatchRealPatch$fShowPatchRealPatch$fShowPatchBasicRealPatch$fPatchListFormatRealPatch$fRepairToFLRealPatch$fApplyRealPatch$fPatchInspectRealPatch$fMergeRealPatch$fCommuteRealPatch$fInvertRealPatch$fMyEqRealPatch$fToFromPrimRealPatch$fFromPrimRealPatch$fCheckRealPatch$fCommuteNoConflictsRealPatch$fConflictRealPatch$fPatchDebugRealPatch$fPatchyRealPatch$fRecontextRebaseRealPatch$fNameHackRealPatch$fMaybeInternalRealPatch$fPrimPatchBaseRealPatch$fRepoPatchRealPatch$fMatchableRealPatch$fRepairToFLPatch $fApplyPatch$fShowPatchPatch$fShowPatchBasicPatch$fRepoPatchPatch$fMatchablePatch $fPatchyPatch $fPatchyNamedEitherfmapHhopefully2either$fPatchyPatchInfoAnd$fPatchDebugPatchInfoAnd$fIsHunkPatchInfoAnd$fEffectPatchInfoAnd$fReadPatchPatchInfoAnd$fRepairPatchInfoAnd$fApplyPatchInfoAnd$fPatchInspectPatchInfoAnd$fMergePatchInfoAnd$fCommutePatchInfoAnd$fShowPatchPatchInfoAnd$fShowPatchBasicPatchInfoAnd$fPatchListFormatPatchInfoAnd$fInvertPatchInfoAnd$fMyEqPatchInfoAnd$fMyEqWPatchInfo$fPrimPatchBasePatchInfoAnd$fShow2PatchInfoAnd$fShow1PatchInfoAnd AnnotatedM Annotated annotatedwhat currentInfoFileOrDirectory undefinedFun updateFileupdateDirectorycomplete annotate' breakLinesTolerantWrapperrunTolerantWrapperSilentIOSIOrunSIO TolerantIOTIOrunTIO TolerantMonadwarningrunIOrunTM runDefaultIObackup$fApplyMonadTolerantWrapperTree$fTolerantMonadSilentIO$fTolerantMonadTolerantIO$fApplyMonadDefaultIOTree$fMonadProgressDefaultIO $fShow2Tagged $fShow1Tagged$fShow2PatchSet$fShow1PatchSetRepairInternalrepairInternalRepairInternalFLrepairInternalFLcommuterRebasingaddFixupcanonizeNamePair$fMaybeInternalRebasing$fRecontextRebaseRebasing$fRepoPatchRebasing$fPatchListFormatRebasing$fRepairInternalFLRebaseFixup$fRepairInternalFLRebaseItem$fRepairInternalFL$fRepairToFLRebasing$fCheckRebaseItem$fCheckRebasing$fFromPrimRebasing$fIsHunkRebasing$fReadPatchRebasing$fPrimPatchBaseRebasing$fReadPatchRebaseItem$fShowPatchRebaseItem$fShowPatchBasicRebaseItem$fShowPatchRebasing$fShowPatchBasicRebasing$fApplyRebasing$fConflictRebasing$fMatchableRebasing$fPatchDebugRebasing$fPatchyRebasing$fEffectRebasing$fInvertRebasing$fPatchInspectRebasing$fMergeRebasing$fCommuteNoConflictsRebasing$fNameHackRebasing$fCommuteRebasing$fShow2RebaseItem$fShow1RebaseItem$fShowRebaseItem$fShow2Rebasing$fShow1Rebasing$fShowRebasing startProgress pushThroughforceCommuteNameConflictedEffectResultgetConflictedEffectResultListConflictedFilesResultgetListConflictedFilesResultResolveConflictsResultgetResolveConflictsResult changeAsMergetoChangepartitionUnconflictedAcc noDroppedDeps mergerIdWDDforceCommutePrimforceCommutesPrimforceCommutessPrimforceCommutess mkReifiedmkDummy$fMatchableRebaseChange$fPatchListFormatRebaseChange$fNameHackRebaseChange$fIsHunkRebaseChange$fMaybeInternalRebaseChange $fCommuteNoConflictsRebaseChange$fEffectWithDroppedDeps$fPrimPatchBaseWithDroppedDeps$fPatchInspectRebaseChange$fPatchInspectRebaseSelect$fCommuteRebaseChange$fCommuteRebaseSelect$fMyEqRebaseSelect$fInvertRebaseChange$fInvertRebaseSelect$fPrimPatchBaseRebaseChange$fReadPatchRebaseChange$fReadPatchRebaseSelect$fShowPatchRebaseChange$fShowPatchRebaseSelect$fShowPatchBasicRebaseChange$fShowPatchBasicRebaseSelect$fEffectRebaseChange$fEffectRebaseSelect$fConflictRebaseChange$fConflictRebaseSelect$fApplyRebaseChange$fApplyRebaseSelect$fPatchDebugRebaseChange$fPatchDebugRebaseSelect$fPatchyRebaseChange$fPatchyRebaseSelect$fPrimPatchBaseRebaseSelect$fShowRebaseChange$fShow2RebaseChange$fShow1RebaseChange$fShow2RebaseSelect$fShow1RebaseSelect$fShowRebaseSelecttaggedIntersectionmaybeSplitSetOnTagunwrapOneTagged fastRemoveFL fastRemoveRLfilterGpgDashesunavailablePatches piUnavailable-:- getPatchessillyLex PatchChoicePCs pcsFirstspcsLastsPCpcPatch _pcChoiceLPliftLP compareLabels pushLastsfmlFirst$fMyEqPatchChoice$fMergePatchChoice$fPatchInspectPatchChoice$fCommutePatchChoice$fMergeLabelledPatch$fPatchInspectLabelledPatch$fCommuteLabelledPatch$fInvertLabelledPatch$fMyEqLabelledPatchMatcherMatchFun applyMatcher strictJustnonrangeMatcherArgs firstMatcherhasLastndropn findAPatchGHC.Errerror applyInvpsafetakeGHC.ListMATCH makeMatcher parseMatch matchPatternsubmatchtable trystringcreateMatchHelperprimitiveMatchersquoted namematch exactmatch authormatchlogmatch hunkmatch hashmatch datematch touchmatch unpullLastNgetMatchPatterntagmatch patchmatch hashmatch'firstMatcherIsTag secondMatchersecondMatcherIsTag splitMatchFL getMatcherSgetTagS applyInvRL $fShowMatcherindexindexes MatchOptionmatchTo matchFromtoMatchtoPatchtoHashtoTag fromMatch fromPatchfromHashfromTagpatchpatchesmatcheslastIntRawDarcsOption debugHttp prehookCmd posthookCmd hookPrompt __xmloutput__dryrun __logfile __rmlogfile lookforaddslookforreplaces lookformoves scanKnown ignoreTimes extDiffCmd extDiffOptsfromtoccsubject inReplyTo sendmailIsomail __patchIndex__noPatchIndex networkIso__humanReadablefmtOptfmtShortfmtLong PipeToSsh PipeToOtherget_system_encoding ortryrunning WhereToPipepipeDocInternal execSendmail execPSPipeexecAndGetOutputsignPGPsignSSL verifyGPG verifySSL getViewerpipeDocToPager runEditor getEditorConfigmaliciousPaths applyViaSudo applyViaLocal applyViaUrl applyViaSshapplyViaSshAndSudo applyopts labelTouchinglabelNotTouchingFMfixlookTouchOnlyEffectapplyToHashedPristinespecialPatchesreadInventoryPrivatereadInventoryFromContentpihashlistInventoriesWithlistInventoriesBucketedWithreadInventoryLocalPrivatelistPatchesLocal skipPristinetryDropPristineNamemakeDarcsdirPathhashedInventoryPathtentativeHashedInventorytentativeHashedInventoryPathinventoriesDirPathtentativePristinePathpristineDirPathpatchesDirPathpristineNamePrefix pristineNameDiffAddedRemovedgetDiffreadPendingFileFLMunFLM newSuffixtentativeSuffixreadMaybeBracketedFLshowMaybeBracketedFLwritePendingFile writePatch$fShowPatchBasicFLM$fReadPatchFLM inDarcsDir readPendingAndWorkingWithPatchesworkDirLessRepoWitness readPendingLLreadRepoPrivate PatchIndexpidsInfoMap FilePathSpans FileIdSpansFileInfoemptyPatchIndexversionapplyPatchModscreateFidStartSpan startFpSpan stopFpSpan startFidSpan stopFidSpan createInfo insertTouch lookupFid lookupFid' lookupFidf' lookupFids lookupFids'nubSeqcreatePatchIndexDiskpatches2patchModsfpSpans2fileNamesremovePidSuffixupdatePatchIndexDiskcreatePatchIndexFromloadPatchIndexloadSafePatchIndexstorePatchIndexindexDirfpSpans2filePathsfpSpans2filePaths'PIMfidspansfpspansinfomisFiletouching FilePathSpanFpSpan FileIdSpanFidSpangetInventoryHashstoreRepoState loadRepoState storePatchIds loadPatchIds storeFidMap loadFidMap storeFpMap loadFpMapzero storeInfoMap loadInfoMap repoStateFilepidsFile fidMapFile fpMapFile touchMapFile noPatchIndex dumpRepoStatedumpFileIdSpansdumpFilePathSpansdumpTouchingMapsiftForPendingprependfinalizePendingsetScriptsExecutable_misplacedPatches HashedVsOldHvsOoldidentifyPristinereadNewPendingLLisSimple crudeSiftdecideHashedOrNormalremoveFromUnrevertContextcheckSuspendedStatusmoveRebaseToEnddisplaySuspendedStatusstartRebaseIfNecessary reset_umask set_umaskgetUMask withUMaskFlag withUMask onRepoJob getPosthook getPrehookrunHooktestAnywithRecordedMatch mergeListexternallyResolveFileruntentativelyMergePatches_fetchFilesUsingCachefetchPatchesIfNecessarycopyRepoAndGoToChosenVersioncopyBasicRepoNotPackedcopyCompleteRepoNotPackedpacksDircopyBasicRepoPackedcopyBasicRepoPacked2copyCompleteRepoPackedcopyCompleteRepoPacked2 allowCtrlCcopyRepoOldFashionedwithControlMVarforkWithControlMVarremoveMetaFiles unpackBasic unpackPatches unpackTarbasicMetaHandlerpatchesMetaHandlercacheDirhashedPatchFileName writePristinepristineFromWorking replaceInFL applyAndFixcheckUniqueness hasDuplicatereplayRepository'cleanupRepositoryReplaysetEnvCautiouslyextractHiddenCommandswrappedCommandDescription usageHelper' padSpacesgetCommandHelpCoreextract amVerboseamQuietsendSanitizedEmailstandardApplyPatchesredirectOutput sanitizeFile"$fPatchApplierStandardPatchAppliercloneDescription cloneHelpcloneBasicOptscloneAdvancedOpts cloneOptsputDescriptionputHelpcloneCmd cloneHelpTag cloneHelpSSEvalidContextFileconvertUpToToOnedoDistdistDescriptiondistHelp distBasicOptsdistOptsdistCmd getDistNametoLazyinitializeDescriptioninitializeHelp initBasicOptsinitAdvancedOptsinitOpts ParsedLineshowAuthorsDescriptionshowAuthorsHelpshowAuthorsBasicOptsshowAuthorsOpts authorsCmd addresslineshowBugDescription showBugHelpshowBugBasicOpts showBugOpts showBugCmdshowContentsDescriptionshowContentsHelpshowContentsBasicOptsshowContentsOptsshowContentsCmdshowIndexBasicOpts showIndexOptsdump showIndexCmdshowPatchIndexBasicOptsshowPatchIndexOptsshowPatchIndexAllCmdshowPatchIndexFilesCmdshowPatchIndexStatus'piTest'transferModeDescriptiontransferModeHelptransferModeBasicOptstransferModeOptstransferModeCmdtransferreadfile AddMessages msgSkipping msgAddingmsgIsmsgAreaddDescriptionaddHelpaddHelp' addBasicOptsaddAdvancedOptsaddOptsaddCmdaddFilesaddpnormalMessagesdryRunMessages expandOne getParentsMatchCriterionbackwardtriviswantedPatchSelectioninvertCreprwspfrdeselectUnwantedpatchesToConsiderselectedPatches liftChoicesjustDone textSelecttodo modChoices postponeNext splitCurrentselected printSelectedskipAll textSelectOnetextView getDefault WithSkipped_skippedReason skippedPatch SkippedReasonSkippedAutomaticallySkippedManuallyPatchSelectionMPSCoptssplittermatchCriterionjobnamepristine whichChanges mcHasNonrange mcFunctionliftRsc1canonizeAfterSplitterrealSelectChanges textSelect' optionsBasic optionsFile optionsViewoptionsSummary optionsQuit optionsNav optionsSplit optionsLastoptionsaskConfirmation lastQuestiondecidedcheckNameIsNotOptionPName FlagPatchNamePriorPatchName NoPatchNamerecordDescription recordHelprecordBasicOptsrecordAdvancedOpts recordOptscommitDescription commitHelp recordCmddoRecorddoActualRecord recordHelp'onlySuccessfulExits recordHelp'' patchSelOpts AmendConfigamendDescription amendHelpamendBasicOptsamendAdvancedOpts amendOpts amendConfigamendCmddoAmendaddChangesToPatchwarnIfHijackinghasEditMetadataannotateDescription annotateHelpannotateBasicOptsannotateAdvancedOpts annotateOpts annotateCmdapplyDescription applyHelp stdindefault conflictsOptapplyBasicOptsapplyAdvancedOpts applyOptsapplyCmdCommon applyHelp'getFromforwardingMessageconsiderForwarding fromStartmaybeIsInteractive convertHelp'MarksToplevelInCommitDone AncestorsResetCommitTagModifyGitlinkDeleteFromProgressEndRefIdMarkIdHashIdInlineContentMessage AuthorInfoBranchMarkedconvertDescription convertHelpconvertExportHelpconvertImportHelpconvertDarcs2BasicOptsconvertDarcs2AdvancedOptsconvertDarcs2OptsconvertDarcs2SilentOpts convertDarcs2convertExportBasicOptsconvertExportAdvancedOptsconvertExportOpts convertExportconvertImportBasicOptsconvertImportAdvancedOptsconvertImportOpts convertImporttoDarcs2modifyRepoName fastExport fastExport' dumpPatchesdumpTag dumpFiles dumpPatchdumpBits patchAuthor patchDate patchMessage fastImport fastImport' parseObject patchHash inOrderTag inOrderTags emptyMarkslastMarkgetMarkaddMark $fShowStategetDiffCmdAndArgsdiffDescriptiondiffHelp diffBasicOptsdiffAdvancedOpts getDiffOptsdiffCmddoDiff getDiffInfo gzcrcsHelpgzcrcsDescriptiongzcrcsBasicOpts gzcrcsOpts gzcrcsCmdgzcrcs'filterPatchesByNameslogHelp logBasicOptslogAdvancedOptslogOptslogCmd maybeNotNull hasRemoteReporemoteSubPathsshowLoglogHelp' logHelp'' logContext createdAsXmllogPatchSelOptsmarkconflictsDescriptionmarkconflictsHelpmarkconflictsBasicOptsmarkconflictsAdvancedOptsmarkconflictsOptsmarkconflictsCmdShadowmoveFile NonexistantUnaddedKnownFileKindDirmoveDescriptionmoveHelp moveBasicOptsmoveAdvancedOptsmoveOptsmoveCmd fileStatusmoveFilesToDirwithRepoAndState simpleMove moveToDirdoMovesgeneratePreMovePatches moveFileOrDiroptimizeDescription optimizeHelpcommonBasicOptscommonAdvancedOpts commonOptscommon optimizeCleanoptimizeCleanCmdoptimizeUpgrade optimizeHttpoptimizeHttpCmdoptimizePristineoptimizePristineCmdoptimizeCompressoptimizeUncompressoptimizeCompressCmdoptimizeUncompressCmdoptimizeCompressionoptimizeEnablePatchIndexoptimizeDisablePatchIndexoptimizeEnablePatchIndexCmdoptimizeDisablePatchIndexCmdoptimizeReorderoptimizeReorderCmdoptimizeRelinkBasicOptsoptimizeRelinkOptsoptimizeRelinkoptimizeRelinkCmdoptimizeHelpHttpoptimizeHelpCompressionoptimizeHelpRelinkdoOptimizePristinedoRelinkmaybeRelinkFilesmaybeRelinkFileoptimizeUpgradeCmdactuallyUpgradeFormatoptimizeBucketedoptimizeGlobalCacheoptimizeHelpGlobalCacheoptimizeGlobalCacheCmdcleanGlobalCachepullDescriptionfetchDescriptionpullHelp fetchHelp pullBasicOptspullAdvancedOptspullOptsfetchBasicOptsfetchAdvancedOpts fetchOpts mergeOptsfetchCmd makeBundle readRepospullPatchSelOptspushDescriptionpushHelp pushBasicOptspushAdvancedOptspushOptspushCmd prepareBundleprePushChatter bundlePatchescheckOptionsSanitypushPatchSelOptsgenericObliterateCmdgetNotInRemotePatchesNotInRemoteLocationNotInDefaultRepoNotInRemotePathunrecordDescription unrecordHelpunrecordBasicOptsunrecordAdvancedOpts unrecordOpts unrecordCmdunpullDescription unpullHelp unpullCmdobliterateDescriptionobliterateHelpobliterateBasicOptsobliterateAdvancedOptsobliterateOpts obliterateCmd savetoBundleRebasePatchApplierrebaseDescription rebaseHelpsuspendBasicOptssuspendAdvancedOpts suspendOptssuspend suspendCmd doSuspendunsuspendBasicOptsunsuspendAdvancedOpts unsuspendOpts unsuspendreifyBasicOpts reifyOptsreify unsuspendCmdinjectBasicOpts injectOptsinject injectCmdapplyPatchesForRebaseCmdapplyPatchSelOptsobliteratePatchSelOpts $fPatchApplierRebasePatchAppliermakeRemovePatch makeRemoveGapremoveDescription removeHelpremoveBasicOptsremoveAdvancedOpts removeOpts removeCmd rmDescriptionrmHelprepairDescription repairHelprepairBasicOptsrepairAdvancedOpts repairOpts repairCmdcheck'isTok chooseToks filenameToks replaceHelpreplaceDescriptionreplaceBasicOptsreplaceAdvancedOpts replaceOpts replaceCmdunrevertDescription unrevertHelpunrevertBasicOptsunrevertAdvancedOpts unrevertOpts unrevertCmdunrevertPatchBundlerevertDescription revertHelprevertBasicOptsrevertAdvancedOpts revertOpts revertCmdrollbackDescription rollbackHelprollbackBasicOptsrollbackAdvancedOpts rollbackOptsexitIfNothingSelected rollbackCmd undoItNow validPrefData validPrefssetprefDescription setprefHelpsetprefBasicOptssetprefAdvancedOpts setprefOpts setprefCmdshowFilesDescription showFilesHelpshowFilesBasicOpts showFilesOpts toListFiles filesDirsmanifestHelper slurpRevisionPutInfoShowInfo showRepoHelpshowRepoDescriptionshowRepoBasicOpts showRepoOptsrepoCmd showInfoXMLsafeTag showInfoUsractuallyShowReposhowRepoFormat showRepoAux showRepoPrefs showRepoMOTD numPatchestagDescriptiontagHelp tagBasicOptstagAdvancedOptstagOptsfilterNonInternaltagCmdaskAboutTagDependshasPipeshowTagsDescription showTagsHelpshowTagsBasicOpts showTagsOptstagsCmdshowDescriptionshowHelp showPristine BisectState BisectDir PatchTreeStrategyoneTest trackLinear trackBackoff trackBisectpatchTreeFromRL patchTree2RLtrackNextBisect BisectLeft BisectRightLeaftestDescriptiontestHelp testBasicOptstestAdvancedOptstestOpts testCommandchooseStrategytrackNextBackoff initialBisectjumpHalfOnRightjumpHalfOnLeftapplyRL unapplyRL safeApplyrunInteractiveinteractiveHunkswhatsnewBasicOptswhatsnewAdvancedOpts whatsnewOptsdefaultSummarywhatsnewDescription whatsnewHelp whatsnewCmd builddepsheaders requestedUrlPostSendMailWhatToDo sendBasicOptssendAdvancedOptssendOptssendCmd sendToThem sendBundlegenerateEmailToStringcleanupwriteBundleToFiledecideOnBehavior getTargetscollectTargetsgetDescription manpageLineshelpDescriptionhelpHelpargPossibilitieshelpOptshelp markdownLinesenvironmentHelpEditorenvironmentHelpPagerenvironmentHelpTimeout OptionMapCmdName mkCmdName showCmdNameSuperCmd parseDefaultsparseDefaultsLines defaultToFlagoptionSwitches optionMapallOptionSwitches NormalCmd runChecksgetPosthookDirextraArgumentsError runCommand fixupMsgs withHookOpts runWithHookssetGlobalVariablesgetOptionsOptionsrunRawSupercommand