-- Hoogle documentation, generated by Haddock -- See Hoogle, http://www.haskell.org/hoogle/ -- | Modules for working with the Debian package system -- @package debian @version 3.84 -- | There are old index files that have funky characters like 'ΓΈ' that are -- not properly UTF8 encoded. As far as I can tell, these files are -- otherwise plain ascii, so just naivelyinsert the character into the -- output stream. module Debian.UTF8 decode :: ByteString -> Text readFile :: FilePath -> IO Text -- | Domain independent functions used by the haskell-debian package. module Debian.Extra.Files withTemporaryFile :: MonadIO m => (FilePath -> m a) -> String -> m a module Debian.Loc __LOC__ :: Q Exp mapExn :: (MonadCatch m, Exception e) => m a -> (e -> e) -> m a instance Show Loc instance Lift Loc module Debian.Arch data Arch Source :: Arch All :: Arch Binary :: ArchOS -> ArchCPU -> Arch data ArchOS ArchOS :: String -> ArchOS ArchOSAny :: ArchOS data ArchCPU ArchCPU :: String -> ArchCPU ArchCPUAny :: ArchCPU prettyArch :: Arch -> Doc parseArch :: String -> Arch instance Typeable ArchOS instance Typeable ArchCPU instance Typeable Arch instance Eq ArchOS instance Ord ArchOS instance Read ArchOS instance Show ArchOS instance Data ArchOS instance Eq ArchCPU instance Ord ArchCPU instance Read ArchCPU instance Show ArchCPU instance Data ArchCPU instance Eq Arch instance Ord Arch instance Read Arch instance Show Arch instance Data Arch module Debian.Time rfc822DateFormat :: String epochTimeToUTCTime :: EpochTime -> UTCTime formatTimeRFC822 :: FormatTime t => t -> String parseTimeRFC822 :: ParseTime t => String -> Maybe t getCurrentLocalRFC822Time :: IO String module Debian.URI -- | A wrapper around a String containing a known parsable URI. Not -- absolutely safe, because you could say read "URI' "bogus string"" :: -- URI'. But enough to save me from myself. data URI' -- | Using the bogus Show instance of URI here. If it ever gets fixed this -- will stop working. Worth noting that show will obscure any password -- info embedded in the URI, so that's nice. toURI' :: URI -> URI' fromURI' :: URI' -> URI readURI' :: String -> Maybe URI' uriToString' :: URI -> String fileFromURI :: URI -> IO (Either SomeException ByteString) fileFromURIStrict :: URI -> IO (Either SomeException ByteString) dirFromURI :: URI -> IO (Either SomeException [String]) instance Read URI' instance Show URI' instance Eq URI' instance Ord URI' module Debian.Release -- | A distribution (aka release) name. This type is expected to refer to a -- subdirectory of the dists directory which is at the top level of a -- repository. data ReleaseName ReleaseName :: String -> ReleaseName relName :: ReleaseName -> String parseReleaseName :: String -> ReleaseName releaseName' :: ReleaseName -> String -- | A section of a repository such as main, contrib, non-free, restricted. -- The indexes for a section are located below the distribution -- directory. newtype Section Section :: String -> Section -- | A package's subsection is only evident in its control information, -- packages from different subsections all reside in the same index. data SubSection SubSection :: Section -> String -> SubSection section :: SubSection -> Section subSectionName :: SubSection -> String sectionName :: SubSection -> String sectionName' :: Section -> String sectionNameOfSubSection :: SubSection -> String -- | Parse the value that appears in the Section field of a -- .changes file. (Does this need to be unesacped?) parseSection :: String -> SubSection parseSection' :: String -> Section instance Typeable ReleaseName instance Eq ReleaseName instance Ord ReleaseName instance Read ReleaseName instance Show ReleaseName instance Data ReleaseName instance Read Section instance Show Section instance Eq Section instance Ord Section instance Read SubSection instance Show SubSection instance Eq SubSection instance Ord SubSection module Debian.Pretty -- | This type is wrapped around values before we pretty print them so we -- can write our own Pretty instances for common types without polluting -- the name space of clients of this package with instances they don't -- want. newtype PP a PP :: a -> PP a unPP :: PP a -> a display :: Pretty a => a -> String display' :: Pretty a => a -> Text ppPrint :: Pretty (PP a) => a -> Doc ppDisplay :: Pretty (PP a) => a -> String ppDisplay' :: Pretty (PP a) => a -> Text instance Functor PP instance Pretty (PP a) => Pretty (PP (Maybe a)) instance Pretty (PP String) instance Pretty (PP Text) module Debian.Sources data SourceType Deb :: SourceType DebSrc :: SourceType data DebSource DebSource :: SourceType -> URI -> Either String (ReleaseName, [Section]) -> DebSource sourceType :: DebSource -> SourceType sourceUri :: DebSource -> URI sourceDist :: DebSource -> Either String (ReleaseName, [Section]) -- | This is a name given to a combination of parts of one or more releases -- that can be specified by a sources.list file. type SliceName = ReleaseName -- | quoteWords - similar to words, but with special handling of -- double-quotes and brackets. -- -- The handling double quotes and [] is supposed to match: -- apt-0.6.44.2/apt-pkg/contrib/strutl.cc:ParseQuoteWord() -- -- The behaviour can be defined as: -- -- Break the string into space seperated words ignoring spaces that -- appear between "" or []. Strip trailing and leading white space around -- words. Strip out double quotes, but leave the square brackets intact. quoteWords :: String -> [String] stripLine :: String -> String sourceLines :: String -> [String] -- | parseSourceLine -- parses a source line the argument must be a -- non-empty, valid source line with comments stripped see: -- sourceLines parseSourceLine :: String -> DebSource parseSourceLine' :: String -> Maybe DebSource parseSourcesList :: String -> [DebSource] instance Eq SourceType instance Ord SourceType instance Eq DebSource instance Ord DebSource instance Pretty (PP [DebSource]) instance Pretty (PP DebSource) instance Pretty (PP SourceType) -- | A module for parsing, comparing, and (eventually) modifying debian -- version numbers. -- http://www.debian.org/doc/debian-policy/ch-controlfields.html#s-f-Version module Debian.Version.Common data DebianVersion prettyDebianVersion :: DebianVersion -> Doc class ParseDebianVersion a parseDebianVersion :: ParseDebianVersion a => a -> DebianVersion -- | Split a DebianVersion into its three components: epoch, version, -- revision. It is not safe to use the parsed version number for this -- because you will lose information, such as leading zeros. evr :: DebianVersion -> (Maybe Int, String, Maybe String) epoch :: DebianVersion -> Maybe Int version :: DebianVersion -> String revision :: DebianVersion -> Maybe String buildDebianVersion :: Maybe Int -> String -> Maybe String -> DebianVersion -- | Convert a string to a debian version number. May throw an exception if -- the string is unparsable -- but I am not sure if that can currently -- happen. Are there any invalid version strings? Perhaps ones with -- underscore, or something? parseDV :: CharParser () (Found Int, NonNumeric, Found NonNumeric) instance Ord Numeric instance Eq Numeric instance Ord NonNumeric instance Eq NonNumeric instance Show DebianVersion instance Ord DebianVersion instance Eq DebianVersion instance Pretty (PP DebianVersion) module Debian.Version.String class ParseDebianVersion a parseDebianVersion :: ParseDebianVersion a => a -> DebianVersion instance Read DebianVersion instance ParseDebianVersion String module Debian.Version.ByteString class ParseDebianVersion a parseDebianVersion :: ParseDebianVersion a => a -> DebianVersion instance ParseDebianVersion ByteString module Debian.Version.Text class ParseDebianVersion a parseDebianVersion :: ParseDebianVersion a => a -> DebianVersion instance ParseDebianVersion Text module Debian.Control.Common newtype Control' a Control :: [Paragraph' a] -> Control' a unControl :: Control' a -> [Paragraph' a] newtype Paragraph' a Paragraph :: [Field' a] -> Paragraph' a -- | NOTE: we do not strip the leading or trailing whitespace in the name -- or value data Field' a Field :: (a, a) -> Field' a -- | Lines beginning with # Comment :: a -> Field' a class ControlFunctions a parseControlFromFile :: ControlFunctions a => FilePath -> IO (Either ParseError (Control' a)) parseControlFromHandle :: ControlFunctions a => String -> Handle -> IO (Either ParseError (Control' a)) parseControl :: ControlFunctions a => String -> a -> (Either ParseError (Control' a)) lookupP :: ControlFunctions a => String -> (Paragraph' a) -> Maybe (Field' a) stripWS :: ControlFunctions a => a -> a asString :: ControlFunctions a => a -> String mergeControls :: [Control' a] -> Control' a fieldValue :: ControlFunctions a => String -> Paragraph' a -> Maybe a removeField :: Eq a => a -> Paragraph' a -> Paragraph' a prependFields :: [Field' a] -> Paragraph' a -> Paragraph' a appendFields :: [Field' a] -> Paragraph' a -> Paragraph' a renameField :: Eq a => a -> a -> Paragraph' a -> Paragraph' a modifyField :: Eq a => a -> (a -> a) -> Paragraph' a -> Paragraph' a -- | Move selected fields to the beginning of a paragraph. raiseFields :: Eq a => (a -> Bool) -> Paragraph' a -> Paragraph' a -- | Run a command and parse its output as a control file. parseControlFromCmd :: ControlFunctions a => String -> IO (Either String (Control' a)) -- | look up the md5sum file in a paragraph Tries several different -- variations: MD5Sum: Md5Sum: MD5sum: md5sumField :: ControlFunctions a => Paragraph' a -> Maybe a instance Eq a => Eq (Field' a) instance Ord a => Ord (Field' a) instance Read a => Read (Field' a) instance Show a => Show (Field' a) instance Eq a => Eq (Paragraph' a) instance Ord a => Ord (Paragraph' a) instance Read a => Read (Paragraph' a) instance Show a => Show (Paragraph' a) instance Eq a => Eq (Control' a) instance Ord a => Ord (Control' a) instance Read a => Read (Control' a) instance Show a => Show (Control' a) instance Pretty (PP a) => Pretty (PP (Field' a)) instance Pretty (PP a) => Pretty (PP (Paragraph' a)) instance Pretty (PP a) => Pretty (PP (Control' a)) module Debian.Control.String newtype Control' a Control :: [Paragraph' a] -> Control' a newtype Paragraph' a Paragraph :: [Field' a] -> Paragraph' a -- | NOTE: we do not strip the leading or trailing whitespace in the name -- or value data Field' a Field :: (a, a) -> Field' a -- | Lines beginning with # Comment :: a -> Field' a type Control = Control' String type Paragraph = Paragraph' String type Field = Field' String type ControlParser a = CharParser () a class ControlFunctions a parseControlFromFile :: ControlFunctions a => FilePath -> IO (Either ParseError (Control' a)) parseControlFromHandle :: ControlFunctions a => String -> Handle -> IO (Either ParseError (Control' a)) parseControl :: ControlFunctions a => String -> a -> (Either ParseError (Control' a)) lookupP :: ControlFunctions a => String -> (Paragraph' a) -> Maybe (Field' a) stripWS :: ControlFunctions a => a -> a asString :: ControlFunctions a => a -> String -- | A parser for debian control file. This parser handles control files -- that end without a newline as well as ones that have several blank -- lines at the end. It is very liberal and does not attempt validate the -- fields in any way. All trailing, leading, and folded whitespace is -- preserved in the field values. See stripWS. pControl :: ControlParser Control mergeControls :: [Control' a] -> Control' a fieldValue :: ControlFunctions a => String -> Paragraph' a -> Maybe a removeField :: Eq a => a -> Paragraph' a -> Paragraph' a prependFields :: [Field' a] -> Paragraph' a -> Paragraph' a appendFields :: [Field' a] -> Paragraph' a -> Paragraph' a renameField :: Eq a => a -> a -> Paragraph' a -> Paragraph' a modifyField :: Eq a => a -> (a -> a) -> Paragraph' a -> Paragraph' a -- | Move selected fields to the beginning of a paragraph. raiseFields :: Eq a => (a -> Bool) -> Paragraph' a -> Paragraph' a instance ControlFunctions String module Debian.Deb fields :: ControlFunctions a => FilePath -> IO (Control' a) -- | an interface for using the methods in varlibaptmethods module Debian.Apt.Methods -- | withMethod - run |methodPath| bracketed with openMethod/closeMethod. -- |f| gets the open handle. withMethodPath :: FilePath -> (MethodHandle -> IO a) -> IO a withMethodURI :: URI -> (MethodHandle -> IO a) -> IO a -- | whichMethodBinary - find the method executable associated with a URI -- throws an exception on failure whichMethodPath :: URI -> IO (Maybe FilePath) openMethod :: FilePath -> IO MethodHandle closeMethod :: MethodHandle -> IO ExitCode recvStatus :: MethodHandle -> IO Status sendCommand :: MethodHandle -> Command -> IO () getLastModified :: FilePath -> IO (Maybe UTCTime) simpleFetch :: [ConfigItem] -> URI -> FilePath -> Maybe UTCTime -> IO Bool -- | fetch a single item, show console output see also: getLastModified fetch :: FetchCallbacks -> [ConfigItem] -> URI -> FilePath -> Maybe UTCTime -> IO Bool data FetchCallbacks FetchCallbacks :: (Message -> IO ()) -> (URI -> Message -> IO ()) -> (URI -> Maybe Integer -> Maybe UTCTime -> Maybe Integer -> IO ()) -> (URI -> Maybe Integer -> Maybe UTCTime -> Maybe Integer -> Maybe FilePath -> Hashes -> Bool -> IO ()) -> (URI -> Message -> IO ()) -> (Message -> IO ()) -> (Site -> IO (Maybe (User, Password))) -> (Media -> Drive -> IO ()) -> (String -> IO ()) -> FetchCallbacks logCB :: FetchCallbacks -> Message -> IO () statusCB :: FetchCallbacks -> URI -> Message -> IO () uriStartCB :: FetchCallbacks -> URI -> Maybe Integer -> Maybe UTCTime -> Maybe Integer -> IO () uriDoneCB :: FetchCallbacks -> URI -> Maybe Integer -> Maybe UTCTime -> Maybe Integer -> Maybe FilePath -> Hashes -> Bool -> IO () uriFailureCB :: FetchCallbacks -> URI -> Message -> IO () generalFailureCB :: FetchCallbacks -> Message -> IO () authorizationRequiredCB :: FetchCallbacks -> Site -> IO (Maybe (User, Password)) mediaFailureCB :: FetchCallbacks -> Media -> Drive -> IO () debugCB :: FetchCallbacks -> String -> IO () -- | set of callbacks which do nothing. suitable for non-interactive usage. -- In the case authorization is required, no credentials will be supplied -- and the download should abort. emptyFetchCallbacks :: FetchCallbacks cliFetchCallbacks :: FetchCallbacks data Command URIAcquire :: URI -> FilePath -> (Maybe UTCTime) -> Command Configuration :: [ConfigItem] -> Command AuthorizationCredentials :: Site -> User -> Password -> Command MediaChanged :: Media -> (Maybe Bool) -> Command data Status Capabilities :: String -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> Status version :: Status -> String singleInstance :: Status -> Bool preScan :: Status -> Bool pipeline :: Status -> Bool sendConfig :: Status -> Bool needsCleanup :: Status -> Bool localOnly :: Status -> Bool LogMsg :: Message -> Status Status :: URI -> Message -> Status URIStart :: URI -> Maybe Integer -> Maybe UTCTime -> Maybe Integer -> Status uri :: Status -> URI size :: Status -> Maybe Integer lastModified :: Status -> Maybe UTCTime resumePoint :: Status -> Maybe Integer URIDone :: URI -> Maybe Integer -> Maybe UTCTime -> Maybe Integer -> Maybe FilePath -> Hashes -> Bool -> Status uri :: Status -> URI size :: Status -> Maybe Integer lastModified :: Status -> Maybe UTCTime resumePoint :: Status -> Maybe Integer filename :: Status -> Maybe FilePath hashes :: Status -> Hashes imsHit :: Status -> Bool URIFailure :: URI -> Message -> Status uri :: Status -> URI message :: Status -> Message GeneralFailure :: Message -> Status AuthorizationRequired :: Site -> Status MediaFailure :: Media -> Drive -> Status type Message = String type Site = String type User = String type Password = String type Media = String type Drive = String type Header = (String, String) type ConfigItem = (String, String) instance Show Hashes instance Eq Hashes instance Show Status instance Eq Status instance Show Command instance Eq Command -- | A module for parsing, comparing, and (eventually) modifying debian -- version numbers. -- http://www.debian.org/doc/debian-policy/ch-controlfields.html#s-f-Version module Debian.Version data DebianVersion prettyDebianVersion :: DebianVersion -> Doc parseDebianVersion :: ParseDebianVersion a => a -> DebianVersion epoch :: DebianVersion -> Maybe Int version :: DebianVersion -> String revision :: DebianVersion -> Maybe String buildDebianVersion :: Maybe Int -> String -> Maybe String -> DebianVersion -- | Split a DebianVersion into its three components: epoch, version, -- revision. It is not safe to use the parsed version number for this -- because you will lose information, such as leading zeros. evr :: DebianVersion -> (Maybe Int, String, Maybe String) -- | Changelog and changes file support. module Debian.Changes -- | A file generated by dpkg-buildpackage describing the result of a -- package build data ChangesFile Changes :: FilePath -> String -> DebianVersion -> ReleaseName -> Arch -> Paragraph' Text -> ChangeLogEntry -> [ChangedFileSpec] -> ChangesFile -- | The full pathname of the directory holding the .changes file. changeDir :: ChangesFile -> FilePath -- | The package name parsed from the .changes file name changePackage :: ChangesFile -> String -- | The version number parsed from the .changes file name changeVersion :: ChangesFile -> DebianVersion -- | The Distribution field of the .changes file changeRelease :: ChangesFile -> ReleaseName -- | The architecture parsed from the .changes file name changeArch :: ChangesFile -> Arch -- | The contents of the .changes file changeInfo :: ChangesFile -> Paragraph' Text -- | The value of the Changes field of the .changes file changeEntry :: ChangesFile -> ChangeLogEntry -- | The parsed value of the Files attribute changeFiles :: ChangesFile -> [ChangedFileSpec] -- | An entry in the list of files generated by the build. data ChangedFileSpec ChangedFileSpec :: String -> String -> String -> FileOffset -> SubSection -> String -> FilePath -> ChangedFileSpec changedFileMD5sum :: ChangedFileSpec -> String changedFileSHA1sum :: ChangedFileSpec -> String changedFileSHA256sum :: ChangedFileSpec -> String changedFileSize :: ChangedFileSpec -> FileOffset changedFileSection :: ChangedFileSpec -> SubSection changedFilePriority :: ChangedFileSpec -> String changedFileName :: ChangedFileSpec -> FilePath changesFileName :: ChangesFile -> String newtype ChangeLog ChangeLog :: [ChangeLogEntry] -> ChangeLog -- | A changelog is a series of ChangeLogEntries data ChangeLogEntry Entry :: String -> DebianVersion -> [ReleaseName] -> String -> String -> String -> String -> ChangeLogEntry logPackage :: ChangeLogEntry -> String logVersion :: ChangeLogEntry -> DebianVersion logDists :: ChangeLogEntry -> [ReleaseName] logUrgency :: ChangeLogEntry -> String logComments :: ChangeLogEntry -> String logWho :: ChangeLogEntry -> String logDate :: ChangeLogEntry -> String -- | The parser here never returns this WhiteSpace :: String -> ChangeLogEntry -- | Parse the entries of a debian changelog and verify they are all valid. parseChangeLog :: String -> ChangeLog -- | Parse a Debian Changelog and return a lazy list of entries parseEntries :: String -> [Either [String] ChangeLogEntry] -- | Parse a single changelog entry, returning the entry and the remaining -- text. parseEntry :: String -> Either [String] (ChangeLogEntry, String) -- | Parse the changelog information that shows up in the .changes file, -- i.e. a changelog entry with no signature. parseChanges :: Text -> Maybe ChangeLogEntry instance Eq ChangedFileSpec instance Read ChangedFileSpec instance Show ChangedFileSpec instance Eq ChangeLogEntry instance Read ChangeLogEntry instance Show ChangeLogEntry instance Eq ChangesFile instance Read ChangesFile instance Show ChangesFile instance Eq ChangeLog instance Read ChangeLog instance Show ChangeLog instance Pretty (PP ChangeLog) instance Pretty (PP [ChangeLogEntry]) instance Pretty (PP ChangeLogEntry) instance Pretty (PP ChangedFileSpec) instance Pretty (PP ChangesFile) module Debian.Relation.Common type Relations = AndRelation type AndRelation = [OrRelation] type OrRelation = [Relation] data Relation Rel :: BinPkgName -> (Maybe VersionReq) -> (Maybe ArchitectureReq) -> Relation newtype SrcPkgName SrcPkgName :: String -> SrcPkgName unSrcPkgName :: SrcPkgName -> String newtype BinPkgName BinPkgName :: String -> BinPkgName unBinPkgName :: BinPkgName -> String class Pretty (PP a) => PkgName a pkgNameFromString :: PkgName a => String -> a class ParseRelations a parseRelations :: ParseRelations a => a -> Either ParseError Relations -- | This needs to be indented for use in a control file: intercalate "n " -- . lines . show prettyRelations :: [[Relation]] -> Doc prettyOrRelation :: [Relation] -> Doc prettyRelation :: Relation -> Doc data ArchitectureReq ArchOnly :: (Set Arch) -> ArchitectureReq ArchExcept :: (Set Arch) -> ArchitectureReq prettyArchitectureReq :: ArchitectureReq -> Doc data VersionReq SLT :: DebianVersion -> VersionReq LTE :: DebianVersion -> VersionReq EEQ :: DebianVersion -> VersionReq GRE :: DebianVersion -> VersionReq SGR :: DebianVersion -> VersionReq prettyVersionReq :: VersionReq -> Doc -- | The sort order is based on version number first, then on the kind of -- relation, sorting in the order -- | Check if a version number satisfies a version requirement. checkVersionReq :: Maybe VersionReq -> Maybe DebianVersion -> Bool -- | Wrap PP around type synonyms that might overlap with the -- `Pretty [a]` instance. instance Typeable SrcPkgName instance Typeable BinPkgName instance Read SrcPkgName instance Show SrcPkgName instance Eq SrcPkgName instance Ord SrcPkgName instance Data SrcPkgName instance Read BinPkgName instance Show BinPkgName instance Eq BinPkgName instance Ord BinPkgName instance Data BinPkgName instance Eq ArchitectureReq instance Ord ArchitectureReq instance Read ArchitectureReq instance Show ArchitectureReq instance Eq VersionReq instance Read VersionReq instance Show VersionReq instance Eq Relation instance Read Relation instance Show Relation instance Pretty (PP ArchitectureReq) instance Pretty (PP VersionReq) instance Pretty (PP Relation) instance Pretty (PP OrRelation) instance Pretty (PP Relations) instance Pretty (PP SrcPkgName) instance Pretty (PP BinPkgName) instance Ord VersionReq instance Ord Relation instance PkgName SrcPkgName instance PkgName BinPkgName -- | A module for working with debian relationships -- http://www.debian.org/doc/debian-policy/ch-relationships.html module Debian.Relation.String type AndRelation = [OrRelation] type OrRelation = [Relation] type Relations = AndRelation data Relation Rel :: BinPkgName -> (Maybe VersionReq) -> (Maybe ArchitectureReq) -> Relation data ArchitectureReq ArchOnly :: (Set Arch) -> ArchitectureReq ArchExcept :: (Set Arch) -> ArchitectureReq data VersionReq SLT :: DebianVersion -> VersionReq LTE :: DebianVersion -> VersionReq EEQ :: DebianVersion -> VersionReq GRE :: DebianVersion -> VersionReq SGR :: DebianVersion -> VersionReq -- | Check if a version number satisfies a version requirement. checkVersionReq :: Maybe VersionReq -> Maybe DebianVersion -> Bool type RelParser a = CharParser () a class ParseRelations a parseRelations :: ParseRelations a => a -> Either ParseError Relations pRelations :: RelParser Relations instance ParseRelations String -- | A module for working with debian relationships -- http://www.debian.org/doc/debian-policy/ch-relationships.html module Debian.Relation.Text type AndRelation = [OrRelation] type OrRelation = [Relation] type Relations = AndRelation data Relation Rel :: BinPkgName -> (Maybe VersionReq) -> (Maybe ArchitectureReq) -> Relation data ArchitectureReq ArchOnly :: (Set Arch) -> ArchitectureReq ArchExcept :: (Set Arch) -> ArchitectureReq data VersionReq SLT :: DebianVersion -> VersionReq LTE :: DebianVersion -> VersionReq EEQ :: DebianVersion -> VersionReq GRE :: DebianVersion -> VersionReq SGR :: DebianVersion -> VersionReq -- | Check if a version number satisfies a version requirement. checkVersionReq :: Maybe VersionReq -> Maybe DebianVersion -> Bool type RelParser a = CharParser () a class ParseRelations a parseRelations :: ParseRelations a => a -> Either ParseError Relations instance ParseRelations Text -- | A module for working with debian relationships -- http://www.debian.org/doc/debian-policy/ch-relationships.html module Debian.Relation.ByteString type AndRelation = [OrRelation] type OrRelation = [Relation] type Relations = AndRelation data Relation Rel :: BinPkgName -> (Maybe VersionReq) -> (Maybe ArchitectureReq) -> Relation data ArchitectureReq ArchOnly :: (Set Arch) -> ArchitectureReq ArchExcept :: (Set Arch) -> ArchitectureReq data VersionReq SLT :: DebianVersion -> VersionReq LTE :: DebianVersion -> VersionReq EEQ :: DebianVersion -> VersionReq GRE :: DebianVersion -> VersionReq SGR :: DebianVersion -> VersionReq -- | Check if a version number satisfies a version requirement. checkVersionReq :: Maybe VersionReq -> Maybe DebianVersion -> Bool type RelParser a = CharParser () a class ParseRelations a parseRelations :: ParseRelations a => a -> Either ParseError Relations instance ParseRelations ByteString -- | A module for working with debian relationships -- http://www.debian.org/doc/debian-policy/ch-relationships.html module Debian.Relation class Pretty (PP a) => PkgName a pkgNameFromString :: PkgName a => String -> a newtype SrcPkgName SrcPkgName :: String -> SrcPkgName unSrcPkgName :: SrcPkgName -> String newtype BinPkgName BinPkgName :: String -> BinPkgName unBinPkgName :: BinPkgName -> String type Relations = AndRelation type AndRelation = [OrRelation] type OrRelation = [Relation] data Relation Rel :: BinPkgName -> (Maybe VersionReq) -> (Maybe ArchitectureReq) -> Relation data ArchitectureReq ArchOnly :: (Set Arch) -> ArchitectureReq ArchExcept :: (Set Arch) -> ArchitectureReq data Arch Source :: Arch All :: Arch Binary :: ArchOS -> ArchCPU -> Arch data ArchOS ArchOS :: String -> ArchOS ArchOSAny :: ArchOS data ArchCPU ArchCPU :: String -> ArchCPU ArchCPUAny :: ArchCPU data VersionReq SLT :: DebianVersion -> VersionReq LTE :: DebianVersion -> VersionReq EEQ :: DebianVersion -> VersionReq GRE :: DebianVersion -> VersionReq SGR :: DebianVersion -> VersionReq -- | Check if a version number satisfies a version requirement. checkVersionReq :: Maybe VersionReq -> Maybe DebianVersion -> Bool type RelParser a = CharParser () a class ParseRelations a parseRelations :: ParseRelations a => a -> Either ParseError Relations module Debian.Control.ByteString newtype Control' a Control :: [Paragraph' a] -> Control' a unControl :: Control' a -> [Paragraph' a] newtype Paragraph' a Paragraph :: [Field' a] -> Paragraph' a -- | NOTE: we do not strip the leading or trailing whitespace in the name -- or value data Field' a Field :: (a, a) -> Field' a -- | Lines beginning with # Comment :: a -> Field' a type Control = Control' ByteString type Paragraph = Paragraph' ByteString type Field = Field' ByteString class ControlFunctions a parseControlFromFile :: ControlFunctions a => FilePath -> IO (Either ParseError (Control' a)) parseControlFromHandle :: ControlFunctions a => String -> Handle -> IO (Either ParseError (Control' a)) parseControl :: ControlFunctions a => String -> a -> (Either ParseError (Control' a)) lookupP :: ControlFunctions a => String -> (Paragraph' a) -> Maybe (Field' a) stripWS :: ControlFunctions a => a -> a asString :: ControlFunctions a => a -> String mergeControls :: [Control' a] -> Control' a fieldValue :: ControlFunctions a => String -> Paragraph' a -> Maybe a removeField :: Eq a => a -> Paragraph' a -> Paragraph' a prependFields :: [Field' a] -> Paragraph' a -> Paragraph' a appendFields :: [Field' a] -> Paragraph' a -> Paragraph' a renameField :: Eq a => a -> a -> Paragraph' a -> Paragraph' a modifyField :: Eq a => a -> (a -> a) -> Paragraph' a -> Paragraph' a -- | Move selected fields to the beginning of a paragraph. raiseFields :: Eq a => (a -> Bool) -> Paragraph' a -> Paragraph' a instance Show a => Show (Result a) instance MonadPlus (Parser state) instance Monad (Parser state) instance ControlFunctions ByteString module Debian.Control.Text newtype Control' a Control :: [Paragraph' a] -> Control' a unControl :: Control' a -> [Paragraph' a] newtype Paragraph' a Paragraph :: [Field' a] -> Paragraph' a -- | NOTE: we do not strip the leading or trailing whitespace in the name -- or value data Field' a Field :: (a, a) -> Field' a -- | Lines beginning with # Comment :: a -> Field' a type Control = Control' Text type Paragraph = Paragraph' Text -- | parseFromFile p filePath runs a string parser p on -- the input read from filePath using readFile. Returns -- either a ParseError (Left) or a value of type -- a (Right). -- --
--   main    = do{ result <- parseFromFile numbers "digits.txt"
--               ; case result of
--                   Left err  -> print err
--                   Right xs  -> print (sum xs)
--               }
--   
type Field = Field' Text class ControlFunctions a parseControlFromFile :: ControlFunctions a => FilePath -> IO (Either ParseError (Control' a)) parseControlFromHandle :: ControlFunctions a => String -> Handle -> IO (Either ParseError (Control' a)) parseControl :: ControlFunctions a => String -> a -> (Either ParseError (Control' a)) lookupP :: ControlFunctions a => String -> (Paragraph' a) -> Maybe (Field' a) stripWS :: ControlFunctions a => a -> a asString :: ControlFunctions a => a -> String mergeControls :: [Control' a] -> Control' a fieldValue :: ControlFunctions a => String -> Paragraph' a -> Maybe a removeField :: Eq a => a -> Paragraph' a -> Paragraph' a prependFields :: [Field' a] -> Paragraph' a -> Paragraph' a appendFields :: [Field' a] -> Paragraph' a -> Paragraph' a renameField :: Eq a => a -> a -> Paragraph' a -> Paragraph' a modifyField :: Eq a => a -> (a -> a) -> Paragraph' a -> Paragraph' a -- | Move selected fields to the beginning of a paragraph. raiseFields :: Eq a => (a -> Bool) -> Paragraph' a -> Paragraph' a decodeControl :: Control -> Control decodeParagraph :: Paragraph -> Paragraph decodeField :: Field' ByteString -> Field' Text instance ControlFunctions Text -- | Access to things that Debian policy says should be in a valid control -- file. The pure functions will not throw ControlFileError if they are -- operating on a DebianControl value returned by validateDebianControl. -- However, they might if they are created using unsafeDebianControl. module Debian.Control.Policy -- | Opaque (constructor not exported) type to hold a validated Debian -- Control File data DebianControl -- | Validate and return a control file in an opaque wrapper. May throw a -- ControlFileError. Currently we only verify that it has a Source field -- in the first paragraph and one or more subsequent paragraphs each with -- a Package field, and no syntax errors in the build dependencies -- (though they may be absent.) validateDebianControl :: MonadCatch m => Control' Text -> m (Either ControlFileError DebianControl) unsafeDebianControl :: Control' Text -> DebianControl parseDebianControlFromFile :: FilePath -> IO (Either ControlFileError DebianControl) parseDebianControl :: MonadCatch m => String -> Text -> m (Either ControlFileError DebianControl) -- | Errors that control files might throw, with source file name and line -- number generated by template haskell. data ControlFileError NoParagraphs :: [Loc] -> ControlFileError locs :: ControlFileError -> [Loc] NoBinaryParagraphs :: [Loc] -> ControlFileError locs :: ControlFileError -> [Loc] MissingField :: [Loc] -> String -> ControlFileError locs :: ControlFileError -> [Loc] field :: ControlFileError -> String ParseRelationsError :: [Loc] -> ParseError -> ControlFileError locs :: ControlFileError -> [Loc] parseError :: ControlFileError -> ParseError ParseControlError :: [Loc] -> ParseError -> ControlFileError locs :: ControlFileError -> [Loc] parseError :: ControlFileError -> ParseError IOError :: [Loc] -> IOError -> ControlFileError locs :: ControlFileError -> [Loc] ioError :: ControlFileError -> IOError -- | Class of things that contain a validated Debian control file. class HasDebianControl a debianControl :: HasDebianControl a => a -> DebianControl debianSourceParagraph :: HasDebianControl a => a -> Paragraph' Text debianBinaryParagraphs :: HasDebianControl a => a -> [Paragraph' Text] debianPackageParagraphs :: HasDebianControl a => a -> (Paragraph' Text, [Paragraph' Text]) debianPackageNames :: HasDebianControl a => a -> (SrcPkgName, [BinPkgName]) debianSourcePackageName :: HasDebianControl a => a -> SrcPkgName debianBinaryPackageNames :: HasDebianControl a => a -> [BinPkgName] -- | This could access fields we haven't validated, so it can return an -- error. Additionally, the field might be absent, in which case it -- returns Nothing. debianRelations :: HasDebianControl a => String -> a -> Either ControlFileError (Maybe Relations) debianBuildDeps :: HasDebianControl a => a -> Maybe Relations debianBuildDepsIndep :: HasDebianControl a => a -> Maybe Relations instance Typeable ControlFileError instance Show ControlFileError instance Eq ControlFileError instance Exception ControlFileError instance HasControl DebianControl instance HasControl (Control' Text) instance HasDebianControl DebianControl instance Show (Control' Text) instance Show DebianControl -- | A module for working with Debian control files -- http://www.debian.org/doc/debian-policy/ch-controlfields.html module Debian.Control newtype Control' a Control :: [Paragraph' a] -> Control' a unControl :: Control' a -> [Paragraph' a] newtype Paragraph' a Paragraph :: [Field' a] -> Paragraph' a -- | NOTE: we do not strip the leading or trailing whitespace in the name -- or value data Field' a Field :: (a, a) -> Field' a -- | Lines beginning with # Comment :: a -> Field' a type Control = Control' String type Paragraph = Paragraph' String type Field = Field' String type ControlParser a = CharParser () a class ControlFunctions a parseControlFromFile :: ControlFunctions a => FilePath -> IO (Either ParseError (Control' a)) parseControlFromHandle :: ControlFunctions a => String -> Handle -> IO (Either ParseError (Control' a)) parseControl :: ControlFunctions a => String -> a -> (Either ParseError (Control' a)) lookupP :: ControlFunctions a => String -> (Paragraph' a) -> Maybe (Field' a) stripWS :: ControlFunctions a => a -> a asString :: ControlFunctions a => a -> String -- | A parser for debian control file. This parser handles control files -- that end without a newline as well as ones that have several blank -- lines at the end. It is very liberal and does not attempt validate the -- fields in any way. All trailing, leading, and folded whitespace is -- preserved in the field values. See stripWS. pControl :: ControlParser Control mergeControls :: [Control' a] -> Control' a fieldValue :: ControlFunctions a => String -> Paragraph' a -> Maybe a removeField :: Eq a => a -> Paragraph' a -> Paragraph' a prependFields :: [Field' a] -> Paragraph' a -> Paragraph' a appendFields :: [Field' a] -> Paragraph' a -> Paragraph' a renameField :: Eq a => a -> a -> Paragraph' a -> Paragraph' a modifyField :: Eq a => a -> (a -> a) -> Paragraph' a -> Paragraph' a -- | Move selected fields to the beginning of a paragraph. raiseFields :: Eq a => (a -> Bool) -> Paragraph' a -> Paragraph' a packParagraph :: Paragraph -> Paragraph packField :: Field' String -> Field' Text formatControl :: Control' Text -> [Text] formatParagraph :: Paragraph' Text -> Text formatField :: Field' Text -> Text -- | Class of things that contain a validated Debian control file. class HasDebianControl a debianControl :: HasDebianControl a => a -> DebianControl -- | Errors that control files might throw, with source file name and line -- number generated by template haskell. data ControlFileError NoParagraphs :: [Loc] -> ControlFileError locs :: ControlFileError -> [Loc] NoBinaryParagraphs :: [Loc] -> ControlFileError locs :: ControlFileError -> [Loc] MissingField :: [Loc] -> String -> ControlFileError locs :: ControlFileError -> [Loc] field :: ControlFileError -> String ParseRelationsError :: [Loc] -> ParseError -> ControlFileError locs :: ControlFileError -> [Loc] parseError :: ControlFileError -> ParseError ParseControlError :: [Loc] -> ParseError -> ControlFileError locs :: ControlFileError -> [Loc] parseError :: ControlFileError -> ParseError IOError :: [Loc] -> IOError -> ControlFileError locs :: ControlFileError -> [Loc] ioError :: ControlFileError -> IOError parseDebianControlFromFile :: FilePath -> IO (Either ControlFileError DebianControl) -- | Validate and return a control file in an opaque wrapper. May throw a -- ControlFileError. Currently we only verify that it has a Source field -- in the first paragraph and one or more subsequent paragraphs each with -- a Package field, and no syntax errors in the build dependencies -- (though they may be absent.) validateDebianControl :: MonadCatch m => Control' Text -> m (Either ControlFileError DebianControl) unsafeDebianControl :: Control' Text -> DebianControl debianSourceParagraph :: HasDebianControl a => a -> Paragraph' Text debianBinaryParagraphs :: HasDebianControl a => a -> [Paragraph' Text] debianPackageParagraphs :: HasDebianControl a => a -> (Paragraph' Text, [Paragraph' Text]) debianPackageNames :: HasDebianControl a => a -> (SrcPkgName, [BinPkgName]) debianSourcePackageName :: HasDebianControl a => a -> SrcPkgName debianBinaryPackageNames :: HasDebianControl a => a -> [BinPkgName] -- | This could access fields we haven't validated, so it can return an -- error. Additionally, the field might be absent, in which case it -- returns Nothing. debianRelations :: HasDebianControl a => String -> a -> Either ControlFileError (Maybe Relations) debianBuildDeps :: HasDebianControl a => a -> Maybe Relations debianBuildDepsIndep :: HasDebianControl a => a -> Maybe Relations module Debian.Apt.Index -- | update - similar to apt-get update update :: Fetcher -> FilePath -> String -> [DebSource] -> IO [Maybe (FilePath, Compression)] -- | function-type for a function that downloads a file The timestamp is -- optional. If the local file is as new or newer than the remote copy, -- the download may be skipped. -- -- A good choice might be a partially parameterized call to fetch type Fetcher = URI -> FilePath -> Maybe UTCTime -> IO Bool data CheckSums CheckSums :: Maybe String -> Maybe String -> Maybe String -> CheckSums md5sum :: CheckSums -> Maybe String sha1 :: CheckSums -> Maybe String sha256 :: CheckSums -> Maybe String -- | Package indexes on the server are uncompressed or compressed with gzip -- or bzip2. We do not know what will exist on the server until we -- actually look. This type is used to mark the compression status of -- what was actually found. data Compression BZ2 :: Compression GZ :: Compression Uncompressed :: Compression type FileTuple = (CheckSums, Size, FilePath) type Size = Integer -- | Parse a possibly compressed index file. controlFromIndex :: Compression -> FilePath -> ByteString -> Either ParseError (Control' Text) -- | parse an index possibly compressed file controlFromIndex' :: Compression -> FilePath -> IO (Either ParseError (Control' Text)) -- | find the Contents-* files. These are not listed in the Release file findContentsFiles :: (FilePath -> Bool) -> FilePath -> IO [FilePath] findIndexes :: FilePath -> String -> [FileTuple] -> IO [(FileTuple, Compression)] indexesInRelease :: (FilePath -> Bool) -> Control' Text -> [(CheckSums, Integer, FilePath)] -- | make a FileTuple for a file found on the local disk returns -- Nothing if the file does not exist. tupleFromFilePath :: FilePath -> FilePath -> IO (Maybe FileTuple) instance Read Compression instance Show Compression instance Eq Compression instance Ord Compression instance Enum Compression instance Bounded Compression instance Read CheckSums instance Show CheckSums instance Eq CheckSums module Debian.Report -- | create a map of (package name, extracted field) from a list of index -- files -- -- NOTE: we could merge all the files into a single control and then run -- packageMap over that. We currently do it one control file at a time to -- avoid having all the control files loaded in memory at once. However, -- I am not sure that property is actually occuring anyway. So, this -- should be revisited. makePackageMap :: (Paragraph -> a) -> (a -> a -> a) -> [(FilePath, Compression)] -> IO (Map Text a) -- | create a map of (package name, max version) from a single control file packageMap :: (Paragraph -> a) -> (a -> a -> a) -> Control' Text -> Map Text a -- | extract the version number from a control paragraph extractVersion :: Paragraph -> Maybe DebianVersion -- | compare two sources.list and find all the packages in the second that -- trump packages in the first see also: |trumpedMap| trumped :: Fetcher -> FilePath -> String -> [DebSource] -> [DebSource] -> IO (Map Text (DebianVersion, DebianVersion)) -- | calculate all the trumped packages trumpedMap :: Map Text DebianVersion -> Map Text DebianVersion -> Map Text (DebianVersion, DebianVersion) -- | create / XML element and children from a trumped Map trumpedXML :: Map Text (DebianVersion, DebianVersion) -> CFilter Posn -- | Figure out the dependency relation between debianized source -- directories. The code to actually solve these dependency relations for -- a particular set of binary packages is in Debian.Repo.Dependency. module Debian.GenBuildDeps -- | This type describes the build dependencies of a source package. data DepInfo DepInfo :: SrcPkgName -> Relations -> [BinPkgName] -> DepInfo -- | source package name sourceName :: DepInfo -> SrcPkgName -- | dependency relations relations :: DepInfo -> Relations -- | binary dependency names (is this a function of relations?) binaryNames :: DepInfo -> [BinPkgName] -- | Return the dependency info for a source package with the given -- dependency relaxation. |According to debian policy, only the first -- paragraph in debian/control can be a source package -- http://www.debian.org/doc/debian-policy/ch-controlfields.html#s-sourcecontrolfiles buildDependencies :: HasDebianControl control => control -> DepInfo -- | Given a source package name and a binary package name, return False if -- the binary package should be ignored hwen deciding whether to build -- the source package. This is used to prevent build dependency cycles -- from triggering unnecessary rebuilds. (This is a replacement for the -- RelaxInfo type, which we temporarily rename OldRelaxInfo.) type RelaxInfo = SrcPkgName -> BinPkgName -> Bool -- | Remove any dependencies that are designated "relaxed" by relaxInfo. relaxDeps :: RelaxInfo -> [DepInfo] -> [DepInfo] -- | Specifies build dependencies that should be ignored during the build -- decision. If the pair is (BINARY, Nothing) it means the binary package -- BINARY should always be ignored when deciding whether to build. If the -- pair is (BINARY, Just SOURCE) it means that binary package BINARY -- should be ignored when deiciding whether to build package SOURCE. newtype OldRelaxInfo RelaxInfo :: [(BinPkgName, Maybe SrcPkgName)] -> OldRelaxInfo -- | Remove any dependencies that are designated "relaxed" by relaxInfo. oldRelaxDeps :: OldRelaxInfo -> [DepInfo] -> [DepInfo] data BuildableInfo a BuildableInfo :: [ReadyTarget a] -> [a] -> BuildableInfo a readyTargets :: BuildableInfo a -> [ReadyTarget a] allBlocked :: BuildableInfo a -> [a] CycleInfo :: [(a, a)] -> BuildableInfo a depPairs :: BuildableInfo a -> [(a, a)] data ReadyTarget a ReadyTarget :: a -> [a] -> [a] -> ReadyTarget a -- | Some target whose build dependencies are all satisfied ready :: ReadyTarget a -> a -- | The targets that are waiting for the ready target waiting :: ReadyTarget a -> [a] -- | The rest of the targets that need to be built other :: ReadyTarget a -> [a] -- | Given an ordering function representing the dependencies on a list of -- packages, return a ReadyTarget triple: One ready package, the packages -- that depend on the ready package directly or indirectly, and all the -- other packages. buildable :: (a -> a -> Ordering) -> [a] -> BuildableInfo a -- | This is a nice start. It ignores circular build depends and takes a -- pretty simplistic approach to or build depends. However, I -- think this should work pretty nicely in practice. compareSource :: DepInfo -> DepInfo -> Ordering -- | Given a list of packages, sort them according to their apparant build -- dependencies so that the first element doesn't depend on any of the -- other packages. orderSource :: (a -> a -> Ordering) -> [a] -> [a] -- | Return the dependency info for a list of control files. genDeps :: [FilePath] -> IO [DepInfo] -- | Remove any packages which can't be built given that a package has -- failed. failPackage :: Eq a => (a -> a -> Ordering) -> a -> [a] -> ([a], [a]) -- | One example of how to tie the below functions together. In this case -- fp is the path to a directory that contains a bunch of -- checked out source packages. The code will automatically look for -- debian/control. It returns a list with the packages in the order they -- should be built. getSourceOrder :: FilePath -> IO [SrcPkgName] instance Show OldRelaxInfo module Debian.Util.FakeChanges fakeChanges :: [FilePath] -> IO (FilePath, String) instance Typeable Error instance Read Error instance Show Error instance Eq Error instance Data Error -- | Functions for dealing with source and binary packages in an -- abstract-way module Debian.Apt.Package type PackageNameMap a = Map BinPkgName [a] -- | packageNameMap creates a map from a package name to all the -- versions of that package NOTE: Provides are not included in the map -- NOTE: the sort order is random -- this is perhaps a bug see also: -- addProvides packageNameMap :: (a -> BinPkgName) -> [a] -> PackageNameMap a -- | addProvides finds packages that Provide other packages and adds -- them to the PackageNameMap. They will be adde to the end of the list, -- so that real packages have 'higher priority' than virtual packages. -- NOTE: Does not check for duplication or multiple use addProvides :: (p -> [BinPkgName]) -> [p] -> PackageNameMap p -> PackageNameMap p -- | findProvides findProvides :: (p -> [BinPkgName]) -> [p] -> [(BinPkgName, p)] -- | lookupPackageByRel returns all the packages that satisfy the -- specified relation TODO: Add architecture check lookupPackageByRel :: PackageNameMap a -> (a -> (BinPkgName, DebianVersion)) -> Relation -> [a] module Debian.Apt.Dependencies data Status Remaining :: AndRelation -> Status MissingDep :: Relation -> Status Complete :: Status type State a = (Status, [a]) complete :: State a -> Bool data CSP a CSP :: PackageNameMap a -> Relations -> (a -> Relations) -> (a -> Relations) -> (a -> (BinPkgName, DebianVersion)) -> CSP a pnm :: CSP a -> PackageNameMap a relations :: CSP a -> Relations depFunction :: CSP a -> (a -> Relations) conflicts :: CSP a -> a -> Relations packageVersion :: CSP a -> a -> (BinPkgName, DebianVersion) -- | TODO addProvides -- see DQL.Exec controlCSP :: Control -> Relations -> (Paragraph -> Relations) -> CSP Paragraph testCSP :: FilePath -> (Paragraph -> Relations) -> String -> (CSP Paragraph -> IO a) -> IO a depF :: Paragraph -> Relations sidPackages :: [Char] gutsyPackages :: [Char] test :: FilePath -> String -> Labeler Paragraph -> IO () packageVersionParagraph :: Paragraph -> (BinPkgName, DebianVersion) conflict :: CSP p -> p -> p -> Bool -- | JAS: deal with Provides (can a package provide more than one -- package?) conflict' :: (BinPkgName, DebianVersion) -> Relation -> Bool mkTree :: a -> [Tree a] -> Tree a label :: Tree a -> a initTree :: (a -> [a]) -> a -> Tree a mapTree :: (a -> b) -> Tree a -> Tree b foldTree :: (a -> [b] -> b) -> Tree a -> b zipTreesWith :: (a -> b -> c) -> Tree a -> Tree b -> Tree c prune :: (a -> Bool) -> Tree a -> Tree a leaves :: Tree a -> [a] inhTree :: (b -> a -> b) -> b -> Tree a -> Tree b distrTree :: (a -> [b]) -> b -> Tree a -> Tree b mkSearchTree :: CSP a -> Tree (State a) -- | earliestInconsistency does what it sounds like the 'reverse as' is -- because the vars are order high to low, but we want to find the lowest -- numbered (aka, eariest) inconsistency ?? earliestInconsistency :: CSP a -> State a -> Maybe ((BinPkgName, DebianVersion), (BinPkgName, DebianVersion)) -- | conflicting packages and relations that require non-existant packages type ConflictSet = ([(BinPkgName, DebianVersion)], [Relation]) isConflict :: ConflictSet -> Bool solutions :: Tree (State a, ConflictSet) -> [State a] type Labeler a = CSP a -> Tree (State a) -> Tree (State a, ConflictSet) search :: Labeler a -> CSP a -> [State a] bt :: Labeler a -- | bj - backjumping labeler -- -- If the node already has a conflict set, then leave it alone. -- -- Otherwise, the conflictset for the node is the combination of the -- conflict sets of its direct children. bj :: CSP p -> Tree (State p, ConflictSet) -> Tree (State p, ConflictSet) unionCS :: [ConflictSet] -> ConflictSet combine :: CSP p -> [(State p, ConflictSet)] -> [ConflictSet] -> ConflictSet instance Eq Status