(define-module (vkraus modules cuirass)
  #:use-module (gnu services)
  #:use-module (gnu services admin)
  #:use-module (gnu services cuirass)
  #:use-module (guix gexp)
  #:use-module (guix modules)
  #:use-module (guix records)
  #:use-module (ice-9 match)
  #:use-module (ice-9 optargs)
  #:export (cuirass-service)
  #:declarative? #t)

(define cuirass-service
  (service cuirass-service-type
           (cuirass-configuration
            (port 8089)
            (specifications
             #~(map
                (lambda (the-branch)
                  (specification
                   (name "disfluid")
                   (build '(channels disfluid-channel))
                   (channels
                    `(,(channel
                        (name 'disfluid-channel)
                        (url "file:///srv/git/webid-oidc-channel.git"))
                      (channel
                       (name 'guix)
                       (url "/srv/git/guix.git")
                       (branch the-branch)
                       (introduction (make-channel-introduction
		                      "9edb3f66fd807b096b48283debdcddccfea34bad"
		                      (openpgp-fingerprint
		                       "BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA"))))))
                   (systems
                    '("x86_64-linux" "i686-linux"))))
                '("master" "core-updates" "core-updates-frozen" "core-updates-frozen-batched-changes"))))))