diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2017-11-15 22:24:59 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2017-11-15 22:24:59 +0100 |
| commit | b44fbf62575ccc6d8955d558dadb3889b3e33164 (patch) | |
| tree | 435466e331a3cf4c8d0aee7d0f8281e118d8b37b /debbugs/operations.scm | |
| parent | 7111edab4f2f5bf8860f3a640021c94607516749 (diff) | |
debbugs: Parse emails.
* debbugs/email.scm: New file.
* Makefile.am (SOURCES): Add it.
* debbugs/operations.scm (get-bug-log): Use it.
Diffstat (limited to 'debbugs/operations.scm')
| -rw-r--r-- | debbugs/operations.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/debbugs/operations.scm b/debbugs/operations.scm index a97fca0..c76660d 100644 --- a/debbugs/operations.scm +++ b/debbugs/operations.scm @@ -19,6 +19,7 @@ (define-module (debbugs operations) #:use-module (debbugs soap) #:use-module (debbugs bug) + #:use-module (debbugs email) #:use-module (sxml xpath) #:use-module (sxml match) #:use-module (srfi srfi-1) @@ -87,8 +88,7 @@ Boolean value)." (let ((emails ((sxpath '(// urn:Debbugs/SOAP:get_bug_logResponse http://schemas.xmlsoap.org/soap/encoding/:Array urn:Debbugs/SOAP:item)) response-body))) - ;; TODO: parse into record - emails)))) + (map soap-email->email emails))))) (define-public (get-usertag email) "Return an association list of tag names to lists of bug numbers for |