03/03: gnu: openssl: Don't error when targeting avr.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit baeff7f546d700ae4f0c873bd0fce0ca84bebd21
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Dec 12 09:31:18 2023 +0200

    gnu: openssl: Don't error when targeting avr.
    
    * gnu/packages/tls.scm (target->openssl-target): Add case for avr.
    
    Change-Id: I1cfc8b50fa4b2b864f8f8aa8898cc405ffc02580
---
 gnu/packages/tls.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/tls.scm b/gnu/packages/tls.scm
index 75e6370c72..0c562a696f 100644
--- a/gnu/packages/tls.scm
+++ b/gnu/packages/tls.scm
@@ -409,12 +409,16 @@ OpenSSL for TARGET."
   ;; Keep this code outside the build code,
   ;; such that new targets can be added
   ;; without causing rebuilds for other targets.
-  (if (target-mingw? target)
-      (string-append
+  (cond
+    ((target-mingw? target)
+     (string-append
        "mingw"
        (if (target-x86-64? target)
            "64"
-           ""))
+           "")))
+    ;; AVR doesn't seem to be supported.
+    ((target-avr? target) #f)
+    (else
       (let ((kernel
              (cond ((target-hurd? target)
                     "hurd")
@@ -450,7 +454,7 @@ OpenSSL for TARGET."
                "generic64")
               (else
                (error "unsupported openssl target architecture")))))
-        (string-append kernel "-" arch))))
+        (string-append kernel "-" arch)))))
 
 (define-public openssl-1.1
   (package