01/03: website: Allow builds without network access.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit cc12cf48cfc2586e36ea8304bac3a342725f45bf
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jul 5 12:23:34 2019 +0200

    website: Allow builds without network access.
    
    * website/apps/packages/templates/components.scm (detailed-package-preview):
    Wrap 'gnu-package?' call in 'false-if-exception'.
    * website/apps/packages/templates/package.scm (package-t): Likewise.
---
 website/apps/packages/templates/components.scm | 6 +++++-
 website/apps/packages/templates/package.scm    | 4 +++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/website/apps/packages/templates/components.scm 
b/website/apps/packages/templates/components.scm
index 8d2a578..96e4296 100644
--- a/website/apps/packages/templates/components.scm
+++ b/website/apps/packages/templates/components.scm
@@ -51,9 +51,13 @@
 
     (div
      (@ (class "package-description"))
-     ,(if (gnu-package? package)
+
+     ;; 'gnu-package?' might fetch stuff from the network.  Assume #f if that
+     ;; doesn't work.
+     ,(if (false-if-exception (gnu-package? package))
           '(p (i "This is a GNU package.  "))
           "")
+
      ,(package-description-shtml package))
 
     (ul
diff --git a/website/apps/packages/templates/package.scm 
b/website/apps/packages/templates/package.scm
index 55fc6b2..9dfb2fa 100644
--- a/website/apps/packages/templates/package.scm
+++ b/website/apps/packages/templates/package.scm
@@ -48,7 +48,9 @@
             (@ (class "synopsis"))
             ,(package-synopsis-shtml package)))
 
-       (p ,(if (gnu-package? package)
+        ;; 'gnu-package?' might fetch stuff from the network.  Assume #f if
+        ;; that doesn't work.
+       (p ,(if (false-if-exception (gnu-package? package))
                 '(it "This is a GNU package.  ")
                 "")
            ,(package-description-shtml package))