01/01: services: web: Update to newer GWL snapshot.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 5ed79379f8092d2fef9335593ed1acf82621e58a
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Sep 28 01:07:24 2019 +0200

    services: web: Update to newer GWL snapshot.
    
    * hydra/modules/sysadmin/web.scm (gwl-snapshot): Upgrade to
    0.1.1-1.e402b3a.
    [source]: Remove snippet.
    [arguments]: Re-enable tests.
---
 hydra/modules/sysadmin/web.scm | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/hydra/modules/sysadmin/web.scm b/hydra/modules/sysadmin/web.scm
index 56ed30c..ec9f332 100644
--- a/hydra/modules/sysadmin/web.scm
+++ b/hydra/modules/sysadmin/web.scm
@@ -190,7 +190,7 @@ taken from a Git repository.")))
 
 (define gwl-snapshot
   ;; GWL snapshot supposedly more recent than the latest release.
-  (let ((commit "044a76cb59ae5609b5ef882f81fd29f8859b6a9c")
+  (let ((commit "e402b3afb3fcdba0b1c7cf2fa0b6d1bf62e7e49c")
         (revision "1"))
     (package
       (inherit gwl)
@@ -204,17 +204,7 @@ taken from a Git repository.")))
                 (file-name (git-file-name "gwl" version))
                 (sha256
                  (base32
-                  "17mr5mniijg81ysdf95i2d8j5hccwcz6swmypdj4hh514i378c4q"))
-                (modules '((guix build utils)))
-                (snippet
-                 ;; Install examples in the right place, without repeating
-                 ;; "doc/examples".
-                 '(substitute* "Makefile.am"
-                    (("nobase_dist_examples_DATA")
-                     "dist_examples_DATA")
-                    (("nobase_dist_assets_DATA =")
-                     "nobase_dist_assets_DATA = \
-gwl/static/images/logo.png ")))))
+                  "1xa2hih2i30d1kj299bn6ym0yx223il7wdr7kca3ab63nl616bvh"))))
       (native-inputs
        `(("autoconf" ,autoconf)
          ("automake" ,automake)
@@ -227,9 +217,7 @@ gwl/static/images/logo.png ")))))
        `(("guix" ,guix)
          ("guile-commonmark" ,guile-commonmark)
          ("guile-wisp" ,guile-wisp)
-         ("guile-syntax-highlight" ,guile-syntax-highlight)))
-      ;; XXX: Go figure why tests fail.
-      (arguments '(#:tests? #f)))))
+         ("guile-syntax-highlight" ,guile-syntax-highlight))))))
 
 (define (gwl-web-shepherd-service gwl)
   (define gwl+deps