22 lines
747 B
Racket
22 lines
747 B
Racket
#lang racket/base
|
|
(provide github-service@ github-ci?)
|
|
|
|
(require "ci-service.rkt" racket/unit racket/list racket/string)
|
|
|
|
(define (github-ci?) (and (getenv "GITHUB_REPOSITORY") (getenv "CODECOV_TOKEN")))
|
|
|
|
(define-unit github-service@
|
|
(import)
|
|
(export ci-service^)
|
|
|
|
(define (query)
|
|
(define repo-slug (getenv "GITHUB_REPOSITORY"))
|
|
(list (cons 'service "custom")
|
|
(cons 'token (getenv "CODECOV_TOKEN"))
|
|
;; TODO: this won't work for tags
|
|
(cons 'branch (string-trim (getenv "GITHUB_REF") #px"refs/(heads|tags)/"))
|
|
(cons 'job (getenv "GITHUB_JOB"))
|
|
(cons 'slug (getenv "GITHUB_REPOSITORY"))
|
|
(cons 'build (getenv "GITHUB_RUN_ID"))
|
|
(cons 'commit (getenv "GITHUB_SHA")))))
|