EuAndreh's website

Failure with relocatable Guix pack tarball

2020-12-15T00:00:00+00:00

FIXED: Use GUIX_PROFILE= source etc/profile

The example from the blog post fails.

$ tar xf `guix pack --relocatable -S /bin=bin -S /etc=etc guile gnutls guile-json`
$ source etc/profile
$ bin/guile -c '(use-modules (json))'
guile: warning: failed to install locale
Backtrace:
In ice-9/boot-9.scm:
  1736:10 13 (with-exception-handler _ _ #:unwind? _ # _)
In unknown file:
          12 (apply-smob/0 #<thunk 7f9d240ca740>)
In ice-9/boot-9.scm:
    718:2 11 (call-with-prompt ("prompt") #<procedure 7f9d240db740 ?> ?)
In ice-9/eval.scm:
    619:8 10 (_ #(#(#<directory (guile-user) 7f9d23d00f00>)))
In ice-9/command-line.scm:
   185:18  9 (_ #<input: string 7f9d23cfaa10>)
In unknown file:
           8 (eval (use-modules (json)) #<directory (guile-user) 7f9?>)
In ice-9/eval.scm:
   721:20  7 (primitive-eval (use-modules (json)))
In ice-9/psyntax.scm:
  1241:36  6 (expand-top-sequence ((use-modules (json))) _ _ #f _ _ _)
  1233:19  5 (parse _ (("placeholder" placeholder)) ((top) #(# # ?)) ?)
   285:10  4 (parse _ (("placeholder" placeholder)) (()) _ c&e (eval) ?)
In ice-9/boot-9.scm:
  3898:20  3 (process-use-modules _)
   222:17  2 (map1 (((json))))
  3899:31  1 (_ ((json)))
   3300:6  0 (resolve-interface (json) #:select _ #:hide _ #:prefix _ ?)

ice-9/boot-9.scm:3300:6: In procedure resolve-interface:
no code for module (json)
$ bin/guile -c '(use-modules (gnutls))'
guile: warning: failed to install locale
Backtrace:
In ice-9/boot-9.scm:
  1736:10 13 (with-exception-handler _ _ #:unwind? _ # _)
In unknown file:
          12 (apply-smob/0 #<thunk 7f7fe607a7c0>)
In ice-9/boot-9.scm:
    718:2 11 (call-with-prompt ("prompt") #<procedure 7f7fe6085940 ?> ?)
In ice-9/eval.scm:
    619:8 10 (_ #(#(#<directory (guile-user) 7f7fe5ca8f00>)))
In ice-9/command-line.scm:
   185:18  9 (_ #<input: string 7f7fe5ca2a10>)
In unknown file:
           8 (eval (use-modules (gnutls)) #<directory (guile-user) 7?>)
In ice-9/eval.scm:
   721:20  7 (primitive-eval (use-modules (gnutls)))
In ice-9/psyntax.scm:
  1241:36  6 (expand-top-sequence ((use-modules (gnutls))) _ _ #f _ _ ?)
  1233:19  5 (parse _ (("placeholder" placeholder)) ((top) #(# # ?)) ?)
   285:10  4 (parse _ (("placeholder" placeholder)) (()) _ c&e (eval) ?)
In ice-9/boot-9.scm:
  3898:20  3 (process-use-modules _)
   222:17  2 (map1 (((gnutls))))
  3899:31  1 (_ ((gnutls)))
   3300:6  0 (resolve-interface (gnutls) #:select _ #:hide _ #:prefix ?)

ice-9/boot-9.scm:3300:6: In procedure resolve-interface:
no code for module (gnutls)

plaintext

My Guix version if fairly recent:

$ guix describe
Génération 83   14 déc. 2020 00:28:16   (actuelle)
  guix 41807eb
    URL du dépôt : https://git.savannah.gnu.org/git/guix.git
    branche: master
    commit : 41807eb5329299b8c45cd49356a4ead01ce0d469

plaintext

Guix build local module

2020-11-27T00:00:00+00:00

FIXED: rename name on line 9 of the first snippet, and use "my-hello" instead of "hello".

Inside a file named build.scm:

(define-module (build)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses))

(define-public my-hello
  (package
    (name "hello")
    (version "2.10")
    (source (origin
              (method url-fetch)
              (uri (string-append "mirror://gnu/hello/hello-" version
                                  ".tar.gz"))
              (sha256
               (base32
                "0ssi1wpaf7plaswqqjwigppsg5fyh99vdlb9kzl7c9lng89ndq1i"))))
    (build-system gnu-build-system)
    (synopsis "")
    (description "")
    (home-page "")
    (license gpl3+)))

plaintext

A plain build command didn’t work:

1 2	$ guix build -L. my-hello guix build: error: my-hello : paquet inconnu

plaintext

But with an eval expression it did:

1 2	$ guix build -L. -e '(@ (build) my-hello)' # works

plaintext

Guix shebang

2020-02-14T00:00:00+00:00

#!/usr/bin/env -S guix environment --ad-hoc bash -- bash
set -Eeuo pipefail
cd "$(dirname "${BASH_SOURCE[0]}")"

pwd

plaintext

Failure on Guix TeX Live importer

2020-01-04T00:00:00+00:00

$ guix import texlive fontspec
redirection vers « https://ctan.org/xml/1.2/pkg/fontspec »...
Backtrace:
          11 (primitive-load "/home/andreh/.config/guix/current/bin/…")
In guix/ui.scm:
  1806:12 10 (run-guix-command _ . _)
In guix/scripts/import.scm:
   116:11  9 (guix-import . _)
In guix/scripts/import/texlive.scm:
    91:19  8 (guix-import-texlive . _)
In guix/memoization.scm:
     98:0  7 (_ #<hash-table 7fe80e6c1480 0/31> ("fontspec" "latex") _)
In unknown file:
           6 (_ #<procedure 7fe80e6e4de0 at guix/memoization.scm:17…> …)
In guix/store.scm:
   625:10  5 (call-with-store #<procedure 7fe80e714a60 at guix/impor…>)
In guix/import/texlive.scm:
   148:23  4 (_ #<store-connection 256.99 7fe811f3c960>)
In guix/utils.scm:
    664:8  3 (call-with-temporary-directory #<procedure 7fe80cac1b40…>)
In guix/svn-download.scm:
   160:14  2 (_ "/tmp/guix-directory.WtLohP")
In guix/build/svn.scm:
     39:2  1 (svn-fetch _ _ _ #:svn-command _ #:recursive? _ # _ # _)
In guix/build/utils.scm:
    652:6  0 (invoke _ . _)

guix/build/utils.scm:652:6: In procedure invoke:
Throw to key `srfi-34' with args `(#<condition &invoke-error [program: "svn" arguments: ("export" "--non-interactive" "--trust-server-cert" "-r" "49435" "svn://www.tug.org/texlive/tags/texlive-2018.2/Master/texmf-dist/source/latex/fontspec" "/tmp/guix-directory.WtLohP") exit-status: 1 term-signal: #f stop-signal: #f] 7fe80d229c80>)'.

plaintext

Guix users in NixOS system configuration

2018-07-13T00:00:00+00:00

  users = {
    mutableUsers = false;

    extraUsers =
      let
        andrehUser =  {
          andreh = {
            # my custom user config
          };
        };
        # From the Guix manual:
        # https://www.gnu.org/software/guix/manual/en/html_node/Build-Environment-Setup.html#Build-Environment-Setup
        buildUser = (i:
          {
            "guixbuilder${i}" = {                   # guixbuilder$i
              group = "guixbuild";                  # -g guixbuild
              extraGroups = ["guixbuild"];          # -G guixbuild
              home = "/var/empty";                  # -d /var/empty
              shell = pkgs.nologin;                 # -s `which nologin`
              description = "Guix build user ${i}"; # -c "Guix buid user $i"
              isSystemUser = true;                  # --system
            };
          }
        );
      in
        # merge all users
        pkgs.lib.fold (str: acc: acc // buildUser str)
                      andrehUser
                      # for i in `seq -w 1 10`
                      (map (pkgs.lib.fixedWidthNumber 2) (builtins.genList (n: n+1) 10));

    extraGroups.guixbuild = {
      name = "guixbuild";
    };
  };

plaintext

Guix builder user creation commands

2018-07-13T00:00:00+00:00

groupadd --system guixbuild
for i in `seq -w 1 10`;
do
    useradd -g guixbuild -G guixbuild           \
            -d /var/empty -s `which nologin`    \
            -c "Guix build user $i" --system    \
            guixbuilder$i;
done

plaintext