summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorJesse Dowell <jesse.dowell@gmail.com>2020-05-29 16:39:39 +0200
committerLudovic Courtès <ludo@gnu.org>2020-05-29 18:31:38 +0200
commitb56cbe8974c328a6c7bc28906478ef1b191ada4c (patch)
tree90463aae7267aeafd7206a9172794fc56800a3c6 /guix/build
parent36640207c9543e48cd6daa92930f023f80065a5d (diff)
syscalls: Properly match %HOST-TYPE.
Fixes <https://bugs.gnu.org/41546>. Regression introduced in 0d371c633f7308cfde2432d6119d386a5c63198c. * guix/build/syscalls.scm (write-socket-address!) (read-socket-address): Use 'string-contains' instead of 'string-suffix?'. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/syscalls.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 8070c5546f..6be322d68f 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -1404,7 +1404,7 @@ bytevector BV at INDEX."
(error "unsupported socket address" sockaddr)))))
(define write-socket-address!
- (if (string-suffix? "linux-gnu" %host-type)
+ (if (string-contains %host-type "linux-gnu")
write-socket-address!/linux
write-socket-address!/hurd))
@@ -1436,7 +1436,7 @@ bytevector BV at INDEX."
(vector family)))))
(define read-socket-address
- (if (string-suffix? "linux-gnu" %host-type)
+ (if (string-contains %host-type "linux-gnu")
read-socket-address/linux
read-socket-address/hurd))