From: "Ludovic Courtès" <ludo@gnu.org>
To: 33515@debbugs.gnu.org
Subject: [bug#33515] [PATCH 4/5] channels: Add 'checkout->channel-instance'.
Date: Mon, 26 Nov 2018 17:45:23 +0100 [thread overview]
Message-ID: <20181126164524.17680-4-ludo@gnu.org> (raw)
In-Reply-To: <20181126164524.17680-1-ludo@gnu.org>
* guix/channels.scm (checkout->channel-instance): New procedure.
---
guix/channels.scm | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/guix/channels.scm b/guix/channels.scm
index 82389eb583..e57da68149 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -47,6 +47,7 @@
channel-instance-checkout
latest-channel-instances
+ checkout->channel-instance
latest-channel-derivation
channel-instances->manifest
channel-instances->derivation))
@@ -114,6 +115,17 @@ CHANNELS."
(channel-instance channel commit checkout)))
channels))
+(define* (checkout->channel-instance checkout
+ #:key commit
+ (url checkout) (name 'guix))
+ "Return a channel instance for CHECKOUT, which is assumed to be a checkout
+of COMMIT at URL. Use NAME as the channel name."
+ (let* ((commit (or commit (make-string 40 #\0)))
+ (channel (channel (name name)
+ (commit commit)
+ (url url))))
+ (channel-instance channel commit checkout)))
+
(define %self-build-file
;; The file containing code to build Guix. This serves the same purpose as
;; a makefile, and, similarly, is intended to always keep this name.
--
2.19.1
next prev parent reply other threads:[~2018-11-26 16:46 UTC|newest]
Thread overview: 11+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-11-26 16:37 [bug#33515] [PATCH 0/5] Cuirass/Hydra: evaluate jobs in an inferior Ludovic Courtès
2018-11-26 16:45 ` [bug#33515] [PATCH 1/5] inferior: Add 'inferior-eval-with-store' Ludovic Courtès
2018-11-26 16:45 ` [bug#33515] [PATCH 2/5] hydra: Move job definitions to (gnu ci) Ludovic Courtès
2018-11-26 16:45 ` [bug#33515] [PATCH 3/5] hydra: evaluate: Add the checkout to the store Ludovic Courtès
2018-11-26 16:45 ` Ludovic Courtès [this message]
2018-11-26 16:45 ` [bug#33515] [PATCH 5/5] hydra: Compute jobs in an inferior Ludovic Courtès
2018-11-28 9:51 ` [bug#33515] [PATCH 0/5] Cuirass/Hydra: evaluate " Ludovic Courtès
2018-12-27 17:27 ` Ludovic Courtès
2018-12-28 4:21 ` Mark H Weaver
2018-12-28 23:19 ` Ludovic Courtès
2019-01-06 20:44 ` bug#33515: " Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20181126164524.17680-4-ludo@gnu.org \
--to=ludo@gnu.org \
--cc=33515@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.