Bisect Linux with Guix

config.scm

(use-modules (gnu)
             (srfi srfi-1)
             (srfi srfi-71)
             (git repository)
             (git reference)
             (git oid)
             (git commit)
             (git describe)
             (guix git)
             (guix packages)
             (guix git-download)
             (guix utils)
             (gnu packages linux))

(define* (describe-checkout checkout
                           #:optional (options (make-describe-options
                                                #:strategy 'tags
                                                ;; Huge performance improvement.
                                                #:only-follow-first-parent? #t)))
 "Get the current HEAD of CHECKOUT as well as its \"pretty name\"."
  (let* ((repo (repository-open checkout))
         (head (reference-target (repository-head repo)))
         (commit (commit-lookup repo head))
         (description (describe-commit commit options)))
    (repository-close! repo)
    (values (oid->string head) (describe-format description))))

(define %linux-repo "/home/mbakke/src/linux")

(define-public linux/bisect
  (let ((commit pretty (describe-checkout %linux-repo)))
    (package
      (inherit linux-libre)
      (name "linux")
      (version (string-drop pretty 1))
      (source (git-checkout (url %linux-repo) (commit commit))))))
     
(operating-system
  ;; [...]
  (kernel linux/bisect))