koji 0.0.1 → 0.0.2
raw patch · 4 files changed
+18/−6 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ChangeLog.md +6/−1
- README.md +2/−1
- koji.cabal +1/−1
- src/Distribution/Koji/API.hs +9/−3
ChangeLog.md view
@@ -2,6 +2,11 @@ `koji` uses [PVP Versioning](https://pvp.haskell.org). -## 0.0.1+## 0.0.2 (2021-05-07)+- listBuilds now supports 'pattern' parameter available in Koji-1.24,+ which can be used to glob match the nvr+ (the rest of the 1.24 changes don't affect the current koji-hs API)++## 0.0.1 (2021-04-15) - First Hackage release with higher level Distribution.Koji and low level Distribution.Koji.API modules. Only query procedures.
README.md view
@@ -8,7 +8,8 @@ [Koji](https://pagure.io/koji/) is a distributed RPM-based buildsystem. -This library provides Haskell bindings to the Koji XML-RPC API.+This koji-hs project provides the Haskell koji package,+a library with bindings to the Koji XML-RPC API. It is a WIP: currently only querying koji is working, ie login authentication or building etc is supported yet.
koji.cabal view
@@ -1,5 +1,5 @@ name: koji-version: 0.0.1+version: 0.0.2 synopsis: Koji buildsystem XML-RPC API bindings description: This library provides Haskell bindings to the Koji XML RPC API.
src/Distribution/Koji/API.hs view
@@ -615,11 +615,17 @@ listBuildroots hubUrl hostID tagID state rpmID archiveID taskID buildrootID = koji hubUrl "listBuildroots" (maybeInt hostID) (maybeInt tagID) (maybeInt state) (maybeInt rpmID) (maybeInt archiveID) (maybeInt taskID) (maybeInt buildrootID) --- | listBuilds (packageID=None, userID=None, taskID=None, prefix=None, state=None, volumeID=None, source=None, createdBefore=None, createdAfter=None, completeBefore=None, completeAfter=None, type=None, typeInfo=None, queryOpts=None)+-- | listBuilds(packageID=None, userID=None, taskID=None, prefix=None, state=None, volumeID=None, source=None, createdBefore=None, createdAfter=None, completeBefore=None, completeAfter=None, type=None, typeInfo=None, queryOpts=None, pattern=None)+--+-- Note that pattern is only supported for koji >= 1.24 listBuilds :: String -> Struct -> IO [Struct] listBuilds hubUrl args =- let maybeArg fld = maybeValue (lookupStruct fld args) in- koji hubUrl "listBuilds" (maybeArg "packageID") (maybeArg "userID") (maybeArg "taskID") (maybeArg "prefix") (maybeArg "state") (maybeArg "volumeID") (maybeArg "source") (maybeArg "createdBefore") (maybeArg "createdAfter") (maybeArg "completeBefore") (maybeArg "completeAfter") (maybeArg "type") (maybeArg "typeInfo") (maybeArg "queryOpts")+ let maybeArg fld = maybeValue (lookupStruct fld args)+ -- koji 1.24 added support for pattern+ in case maybeArg "pattern" of+ ValueNil ->+ koji hubUrl "listBuilds" (maybeArg "packageID") (maybeArg "userID") (maybeArg "taskID") (maybeArg "prefix") (maybeArg "state") (maybeArg "volumeID") (maybeArg "source") (maybeArg "createdBefore") (maybeArg "createdAfter") (maybeArg "completeBefore") (maybeArg "completeAfter") (maybeArg "type") (maybeArg "typeInfo") (maybeArg "queryOpts")+ pat -> koji hubUrl "listBuilds" (maybeArg "packageID") (maybeArg "userID") (maybeArg "taskID") (maybeArg "prefix") (maybeArg "state") (maybeArg "volumeID") (maybeArg "source") (maybeArg "createdBefore") (maybeArg "createdAfter") (maybeArg "completeBefore") (maybeArg "completeAfter") (maybeArg "type") (maybeArg "typeInfo") (maybeArg "queryOpts") pat -- | listCGs() listCGs :: String -> IO Struct