diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-07-05 12:23:34 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-07-05 12:23:34 +0200 |
| commit | cc12cf48cfc2586e36ea8304bac3a342725f45bf (patch) | |
| tree | ec68f0f30ecca02820d146fc7ee3572065ec3a9f | |
| parent | website: Add post about lzipped substitutes. (diff) | |
| download | guix-artwork-cc12cf48cfc2586e36ea8304bac3a342725f45bf.tar.gz | |
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.
| -rw-r--r-- | website/apps/packages/templates/components.scm | 6 | ||||
| -rw-r--r-- | 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)) |