(use-modules (srfi srfi-1)
             (guix store)
             (guix profiles)
             (guix derivations)
             (guix utils)
             (guix status)
             (guix grafts)
             (guix channels))

(define channels
  (list (channel
         (name 'guix)
         (branch "channel-instances-manifest-graft-control")
         (url "https://git.cbaines.net/git/guix.git"))))

(let ((drv
       (with-store store
         (let* ((channel-instances
                 (latest-channel-instances store channels #:authenticate? #f))
                (manifest
                 ((channel-instances->manifest channel-instances
                                               #:system
                                               "mips64el-linux"
                                               #:graft? #f)
                  store)))
           (derivation-file-name
            (manifest-entry-item
             (first
              (manifest-entries manifest))))))))
  (peek "Successfully computed derivation without grafts" drv))

(newline)
(newline)
(peek "Now trying with grafts")
(newline)

(let ((drv
       (with-store store
         (let* ((channel-instances
                 (latest-channel-instances store channels #:authenticate? #f))
                (manifest
                 ((channel-instances->manifest channel-instances
                                               #:system
                                               "mips64el-linux")
                  store)))
           (derivation-file-name
            (manifest-entry-item
             (first
              (manifest-entries manifest))))))))
  (peek "Successfully computed derivation with grafts" drv))