-- Copyright (C) 2002-2004 David Roundy---- This program is free software; you can redistribute it and/or modify-- it under the terms of the GNU General Public License as published by-- the Free Software Foundation; either version 2, or (at your option)-- any later version.---- This program is distributed in the hope that it will be useful,-- but WITHOUT ANY WARRANTY; without even the implied warranty of-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the-- GNU General Public License for more details.---- You should have received a copy of the GNU General Public License-- along with this program; see the file COPYING. If not, write to-- the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,-- Boston, MA 02110-1301, USA.moduleDarcs.Flags(DarcsFlag(..),Compression(..),compression,want_external_merge,isInteractive)whereimportDarcs.Patch.MatchData(PatchMatch)importDarcs.RepoPath(AbsolutePath,AbsolutePathOrStd)-- | The 'DarcsFlag' type is a list of all flags that can ever be-- passed to darcs, or to one of its commands.dataDarcsFlag=Help|ListOptions|NoTest|Test|HelpOnMatch|OnlyChangesToFiles|LeaveTestDir|NoLeaveTestDir|Timings|Debug|DebugVerbose|DebugHTTP|Verbose|NormalVerbosity|Quiet|TargetString|CcString|OutputAbsolutePathOrStd|OutputAutoNameAbsolutePath|SubjectString|InReplyToString|SendmailCmdString|AuthorString|PatchNameString|OnePatchString|SeveralPatchString|AfterPatchString|UpToPatchString|TagNameString|LastNInt|PatchIndexRangeIntInt|NumberPatches|OneTagString|AfterTagString|UpToTagString|ContextAbsolutePath|Count|LogFileAbsolutePath|RmLogFile|DistNameString|All|Recursive|NoRecursive|Reorder|RestrictPaths|DontRestrictPaths|AskDeps|NoAskDeps|IgnoreTimes|LookForAdds|NoLookForAdds|AnyOrder|CreatorHashString|Intersection|Union|Complement|Sign|SignAsString|NoSign|SignSSLString|HappyForwarding|VerifyAbsolutePath|VerifySSLAbsolutePath|SSHControlMaster|NoSSHControlMaster|EditDescription|NoEditDescription|ToksString|EditLongComment|NoEditLongComment|PromptLongComment|AllowConflicts|MarkConflicts|NoAllowConflicts|Boring|AllowCaseOnly|AllowWindowsReserved|DontGrabDeps|DontPromptForDependencies|PromptForDependencies|Compress|NoCompress|UnCompress|WorkRepoDirString|WorkRepoUrlString|RemoteRepoString|NewRepoString|ReplyString|ApplyAsString|MachineReadable|HumanReadable|Pipe|Interactive|DiffCmdString|ExternalMergeString|Summary|NoSummary|Unified|Reverse|CheckPoint|Partial|Complete|Lazy|Ephemeral|FixFilePathAbsolutePathAbsolutePath|DiffFlagsString|XMLOutput|ForceReplace|OnePatternPatchMatch|SeveralPatternPatchMatch|AfterPatternPatchMatch|UpToPatternPatchMatch|NonApply|NonVerify|NonForce|DryRun|SetDefault|NoSetDefault|FancyMoveAdd|NoFancyMoveAdd|Disable|SetScriptsExecutable|DontSetScriptsExecutable|UseHashedInventory|UseOldFashionedInventory|UseFormat2|PristinePlain|PristineNone|NoUpdateWorking|SiblingAbsolutePath|Relink|RelinkPristine|NoLinks|Files|NoFiles|Directories|NoDirectories|Pending|NoPending|PosthookCmdString|NoPosthook|AskPosthook|RunPosthook|PrehookCmdString|NoPrehook|AskPrehook|RunPrehook|UMaskString|StoreInMemory|HTTPPipelining|NoHTTPPipelining|NoCache|AllowUnrelatedRepos|NullFlagderiving(Eq,Show)dataCompression=NoCompression|GzipCompressioncompression::[DarcsFlag]->Compressioncompressionf|NoCompress`elem`f=NoCompression|otherwise=GzipCompressionwant_external_merge::[DarcsFlag]->MaybeStringwant_external_merge[]=Nothingwant_external_merge(ExternalMergec:_)=Justcwant_external_merge(_:fs)=want_external_mergefsisInteractive::[DarcsFlag]->BoolisInteractive=isInteractive_TruewhereisInteractive_def[]=defisInteractive__(Interactive:_)=TrueisInteractive__(All:_)=FalseisInteractive__(DryRun:fs)=isInteractive_FalsefsisInteractive_def(_:fs)=isInteractive_deffs