futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

offload: Avoid using '_' as a 'match' pattern.

Browse Source 
* guix/scripts/offload.scm (host-key->type+key, machine-load)
(process-request, guix-offload): Do not use '_' as a 'match' pattern.
This commit is contained in:
Ludovic Courtès 2017-04-21 17:18:54 +02:00 committed by Ludovic Courtès
parent 3dff90ce34
commit ba97e454bf
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guix/scripts/offload.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -148,7 +148,7 @@ its key type as a symbol, and the actual base64-encoded string."
(string->symbol (string-drop type 4))))
(match (string-tokenize host-key)
((type key _)
((type key x)
(values (type->symbol type) key))
((type key)
(values (type->symbol type) key))))
@ -403,7 +403,7 @@ allowed on MACHINE. Return +∞ if MACHINE is unreachable."
(if (eof-object? line)
+inf.0 ;MACHINE does not respond, so assume it is infinitely loaded
(match (string-tokenize line)
((one five fifteen . _)
((one five fifteen . x)
(let* ((raw (string->number five))
(jobs (build-machine-parallel-builds machine))
(normalized (/ raw jobs)))
@ -411,9 +411,9 @@ allowed on MACHINE. Return +∞ if MACHINE is unreachable."
(normalized: ~s)~%"
(build-machine-name machine) raw normalized)
normalized))
(_
(x
+inf.0))))) ;something's fishy about MACHINE, so avoid it
(_
(x
+inf.0))) ;failed to connect to MACHINE, so avoid it
(define (machine-lock-file machine hint)
@ -503,7 +503,7 @@ allowed on MACHINE. Return +∞ if MACHINE is unreachable."
(()
;; We'll never be able to match REQS.
(display "# decline\n"))
((_ ...)
((x ...)
(let ((machine (choose-build-machine candidates)))
(if machine
(begin
@ -671,7 +671,7 @@ machine."
build-machine-name)))
((file) (values file (const #t)))
(() (values %machine-file (const #t)))
(_ (leave (_ "wrong number of arguments~%"))))))
(x (leave (_ "wrong number of arguments~%"))))))
(check-machine-availability (or file %machine-file) pred))))
(("--version")
(show-version-and-exit "guix offload"))