From: zimoun <zimon.toutoune@gmail.com>
To: "Ludovic Courtès" <ludo@gnu.org>
Cc: "(" <paren@disroot.org>, Guix Devel <guix-devel@gnu.org>
Subject: Re: Help with G-expression
Date: Fri, 02 Dec 2022 14:19:26 +0100 [thread overview]
Message-ID: <87cz92rli9.fsf@gmail.com> (raw)
In-Reply-To: <87sfhyuq7t.fsf@gnu.org>
Hi Ludo,
On Fri, 02 Dec 2022 at 10:09, Ludovic Courtès <ludo@gnu.org> wrote:
> zimoun <zimon.toutoune@gmail.com> skribis:
>
>> no code for module (guix config)
>
> (guix config) is added by using ‘make-config.scm’; there’s an example in
> (gnu services base).
>
> For the rest, make sure to use ‘source-module-closure’ or you’ll miss
> modules (info "(guix) G-Expressions").
I have read this section. :-) Something is not clear for me.
Note that ’make-config.scm’ does not appear in the manual.
The only difference between the previous ’work’ example and all the
’fail’ as ’fail-again-not-fixed’ is only the part ’with-imported-modules’.
Well, I am somehow surprised how difficult is to find the correct.
--8<---------------cut here---------------start------------->8---
scheme@(guix-user)> (define (fail-again-not-fixed)
(with-imported-modules (source-module-closure
'((guix build utils)
(guix config)
(guix profiles))) ;import it
(computed-file "empty-tree"
#~(begin
;; Put it in scope.
(use-modules (guix build utils))
;; Happily use its 'mkdir-p' procedure.
(mkdir-p (string-append #$output "/a/b/c"))))))
scheme@(guix-user)> ,build (fail-again-not-fixed)
While executing meta-command:
Throw to key `match-error' with args `("match" "no matching pattern" (#:declarative? #f #:export (%guix-package-name %guix-version %guix-bug-report-address %guix-home-page-url %channel-metadata %system %store-directory %state-directory %store-database-directory %config-directory %gzip %bzip2 %xz)))'.
--8<---------------cut here---------------end--------------->8---
Here it is the same error as ’fail-again’. And I do not understand the
magic invocation. Well, what I tried next:
--8<---------------cut here---------------start------------->8---
scheme@(guix-user)> (define (fail-again-bis)
(with-imported-modules `(((guix config) => ,(make-config.scm))
,@(source-module-closure '((guix build utils)
(guix profiles))
#:select? not-config?))
(computed-file "empty-tree"
#~(begin
;; Put it in scope.
(use-modules (guix build utils))
;; Happily use its 'mkdir-p' procedure.
(mkdir-p (string-append #$output "/a/b/c"))))))
;;; <unknown-location>: warning: possibly unbound variable `make-config.scm'
;;; <unknown-location>: warning: possibly unbound variable `not-config?'
scheme@(guix-user)> ,build (fail-again-bis)
While executing meta-command:
error: make-config.scm: unbound variable
scheme@(guix-user)> ,use(guix self)
scheme@(guix-user)> ,build (fail-again-bis)
While executing meta-command:
error: not-config?: unbound variable
scheme@(guix-user)> (define not-config?
;; Select (guix …) and (gnu …) modules, except (guix config).
(match-lambda
(('guix 'config) #f)
(('guix rest ...) #t)
(('gnu rest ...) #t)
(rest #f)))
scheme@(guix-user)> ,build (fail-again-bis)
substitute: updating substitutes from 'https://ci.guix.gnu.org'... 100.0%
substitute: updating substitutes from 'https://bordeaux.guix.gnu.org'... 100.0%
substitute: updating substitutes from 'https://ci.guix.gnu.org'... 100.0%
substitute: updating substitutes from 'https://bordeaux.guix.gnu.org'... 100.0%
building /gnu/store/xjvjrkl3559jrlm0bnvdj29c838y81x3-config.scm.drv...
building /gnu/store/slwgyy4vnxprz0cj73vyq6psr7bqmbwz-module-import.drv...
building /gnu/store/cfjpfzph97dsishvr7g1bqxqw5kynns8-module-import-compiled.drv...
20% [############################# ]builder for `/gnu/store/cfjpfzph97dsishvr7g1bqxqw5kynns8-module-import-compiled.drv' failed with exit code 1
build of /gnu/store/cfjpfzph97dsishvr7g1bqxqw5kynns8-module-import-compiled.drv failed
View build log at '/var/log/guix/drvs/cf/jpfzph97dsishvr7g1bqxqw5kynns8-module-import-compiled.drv.gz'.
cannot build derivation `/gnu/store/pr3qqw26jilyhyn650i3w7z13i7k6p40-empty-tree.drv': 1 dependencies couldn't be built
While executing meta-command:
ERROR:
1. &store-protocol-error:
message: "build of `/gnu/store/pr3qqw26jilyhyn650i3w7z13i7k6p40-empty-tree.drv' failed"
status: 100
--8<---------------cut here---------------end--------------->8---
Below the log file – missing (gcrypt hash).
Well, I give up because the try-error does not explain me how it
works. :-)
Any pointers?
Cheers,
simon
--8<---------------cut here---------------start------------->8---
[ 1/56] Loading './guix/base16.scm'...
[ 2/56] Loading './guix/base32.scm'...
[ 3/56] Loading './guix/base64.scm'...
[ 4/56] Loading './guix/build/syscalls.scm'...
[ 5/56] Loading './guix/build/utils.scm'...
[ 6/56] Loading './guix/build-system.scm'...
[ 7/56] Loading './guix/colors.scm'...
[ 8/56] Loading './guix/combinators.scm'...
[ 9/56] Loading './guix/config.scm'...
[10/56] Loading './guix/deprecation.scm'...
[11/56] Loading './guix/derivations.scm'...
;;; Failed to autoload make-zlib-input-port in (zlib):
;;; no code for module (zlib)
;;; Failed to autoload make-zlib-input-port in (zlib):
;;; no code for module (zlib)
;;; Failed to autoload make-zlib-output-port in (zlib):
;;; no code for module (zlib)
;;; Failed to autoload make-zlib-output-port in (zlib):
;;; no code for module (zlib)
Backtrace:
In ice-9/boot-9.scm:
3556:26 19 (_)
In unknown file:
18 (primitive-load-path "guix/store" #<procedure 7fffed89b?>)
In ice-9/eval.scm:
721:20 17 (primitive-eval _)
In ice-9/psyntax.scm:
1230:36 16 (expand-top-sequence _ _ _ #f _ _ _)
1222:19 15 (parse _ (("placeholder" placeholder)) ((top) #(# # ?)) ?)
259:10 14 (parse _ (("placeholder" placeholder)) (()) _ c&e (eval) ?)
In ice-9/eval.scm:
293:34 13 (_ #<module (#{ g170}#) 7fffee23baa0>)
In ice-9/boot-9.scm:
3409:4 12 (define-module* _ #:filename _ #:pure _ #:version _ # _ ?)
3422:24 11 (_)
222:29 10 (map1 _)
222:29 9 (map1 _)
222:29 8 (map1 _)
222:29 7 (map1 _)
222:29 6 (map1 _)
222:29 5 (map1 (((guix monads)) ((guix records)) ((guix #)) (#) ?))
222:29 4 (map1 (((guix records)) ((guix base16)) ((guix #)) (#) ?))
222:29 3 (map1 (((guix base16)) ((guix base32)) ((gcrypt #)) # ?))
222:29 2 (map1 (((guix base32)) ((gcrypt hash)) ((guix #)) (#) ?))
222:17 1 (map1 (((gcrypt hash)) ((guix profiling)) ((rnrs #)) # ?))
3329:6 0 (resolve-interface (gcrypt hash) #:select _ #:hide _ # _ ?)
ice-9/boot-9.scm:3329:6: In procedure resolve-interface:
no code for module (gcrypt hash)
--8<---------------cut here---------------end--------------->8---
next prev parent reply other threads:[~2022-12-02 16:10 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-12-01 17:34 Help with G-expression zimoun
2022-12-01 18:21 ` (
2022-12-01 18:52 ` zimoun
2022-12-02 9:09 ` Ludovic Courtès
2022-12-02 13:19 ` zimoun [this message]
2022-12-02 21:30 ` Ludovic Courtès
2022-12-02 22:00 ` zimoun
2022-12-03 17:43 ` Ludovic Courtès
2022-12-04 11:11 ` zimoun
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=87cz92rli9.fsf@gmail.com \
--to=zimon.toutoune@gmail.com \
--cc=guix-devel@gnu.org \
--cc=ludo@gnu.org \
--cc=paren@disroot.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.