guix/maintenance
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/maintenance.git synced 2023-12-14 03:33:04 +01:00
Code Issues Releases Wiki Activity

hydra/goggles: Index all logs upon request.

Browse source 
* hydra/goggles.scm (main): Handle "index" argument.
This commit is contained in:
Ricardo Wurmus 2020-04-24 14:03:42 +02:00
parent f74c3e724a
commit 8f5f57b97f
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
hydra/goggles.scm
View file

@ -358,9 +358,15 @@ freenode." channel))
(cons (request-method request)
(request-path-components request)))))
(define (main . args)
(let ((port (assoc-ref %config 'port)))
(run-server handler
'http
`(#:addr ,INADDR_ANY
#:port ,port))))
(define (main args)
(match args
((_ "index")
(for-each index-channel-logs
(assoc-ref %config 'channels))
#t)
(_
(let ((port (assoc-ref %config 'port)))
(run-server handler
'http
`(#:addr ,INADDR_ANY
#:port ,port))))))