diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-01 13:21:59 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-01 16:00:04 +0200 |
| commit | 0f04df269157ee005d7030196780c738c67c5a0a (patch) | |
| tree | 3bf5aafb65b6f0b62cf8030d0ee94c80650e3fcf /bin | |
| parent | 9a9b3fbd458d68e64cf0d0ec5927aec04cb06658 (diff) | |
| download | cuirass-0f04df269157ee005d7030196780c738c67c5a0a.tar cuirass-0f04df269157ee005d7030196780c738c67c5a0a.tar.gz | |
Avoid pattern matching on records which relies on slot order.
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index 15ca948..edcf940 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -26,8 +26,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@" (cuirass database) (cuirass job) (cuirass ui) - (ice-9 getopt-long) - (ice-9 match)) + (ice-9 getopt-long)) (define* (show-help prog) (simple-format #t "Usage: ~a [OPTIONS] [CACHEDIR]" prog) @@ -60,13 +59,14 @@ Run Guix job from a git repository cloned in CACHEDIR. DIR if required." (or (file-exists? cachedir) (mkdir cachedir)) (with-directory-excursion cachedir - (match spec - (($ <job-spec> name url branch) - (or (file-exists? name) (system* "git" "clone" url name)) - (with-directory-excursion name - (and (zero? (system* "git" "fetch")) - (zero? (system* "git" "reset" "--hard" - (string-append "origin/" branch))))))))) + (let ((name (job-name job)) + (url (job-url job)) + (branch (job-branch job))) + (or (file-exists? name) (system* "git" "clone" url name)) + (with-directory-excursion name + (and (zero? (system* "git" "fetch")) + (zero? (system* "git" "reset" "--hard" + (string-append "origin/" branch)))))))) (define (evaluate store db cachedir spec) "Evaluate and build package derivations. Return a list a jobs." |