02/02: hydra/goggles: Use channel-files.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 216cafcfb814d80361631dd5f085daa4deaff7b4
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Thu Apr 23 18:58:29 2020 +0200

    hydra/goggles: Use channel-files.
    
    * hydra/goggles.scm (index): Use channel-files.
---
 hydra/goggles.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/hydra/goggles.scm b/hydra/goggles.scm
index 5a6f2e4..463596e 100755
--- a/hydra/goggles.scm
+++ b/hydra/goggles.scm
@@ -187,9 +187,7 @@ freenode." channel))
      (ul
       ,@(map (lambda (file)
                `(li (a (@ (href ,(string-append "/" channel "/" file))) 
,file)))
-             (or (reverse (scandir (string-append %log-root "/#" channel "/")
-                                   (lambda (name)
-                                    (not (member name '("." ".." 
"index.html"))))))
+             (or (channel-files channel)
                  '()))))))
 
 (define %controller