hydra.gnu.org off-line for maintenance

hydra.gnu.org off-line for maintenance

[Ludovic Courtès]

[-- Attachment #1: Type: text/plain, Size: 656 bytes --]

Hello Guix,

The hydra.gnu.org build farm has been off-line since yesterday ~4PM UTC
and will remain off-line roughly until the end of the week.  The FSF
sysadmins (it’s hosted at the FSF’s data center) are performing a major
storage upgrade that happens to need more time than expected.

In the meantime, if you use mirror.hydra.gnu.org, you’ll still get
substitutes, though not the latest one.

If you use berlin.guixsd.org, everything is fine; if you don’t, now is
the time to add it to your substitute URLs!  See
<https://gnu.org/software/guix/manual/en/html_node/Substitutes.html>.

Apologies for the inconvenience!

Ludo’.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]

Re: hydra.gnu.org off-line for maintenance

[Luther Thompson]

On Wed, 24 Oct 2018 11:57:15 +0200
ludo@gnu.org (Ludovic Courtès) wrote:
> If you use berlin.guixsd.org, everything is fine; if you don’t, now is
> the time to add it to your substitute URLs!  See
> <https://gnu.org/software/guix/manual/en/html_node/Substitutes.html>.

How do we do that? I followed the link, but I can't find the info to
pass to `guix archive --authorize` anywhere.

Luther

Re: hydra.gnu.org off-line for maintenance

[Leo Famulari]

[-- Attachment #1: Type: text/plain, Size: 879 bytes --]

On Thu, Oct 25, 2018 at 06:41:26PM -0400, Luther Thompson wrote:
> How do we do that? I followed the link, but I can't find the info to
> pass to `guix archive --authorize` anywhere.

The signing keys can be found in the Guix package itself, at
'share/guix/berlin.guixsd.org.pub'. For example:

$ guix build guix
/gnu/store/zz3b7j4iv6v143v7cqyr77k83zc5n3zw-guix-0.15.0-6.f9a8fce
$ guix archive --authorize < /gnu/store/guix-0.15.0-6.f9a8fce/share/guix/berlin.guixsd.org.pub

It is described in the manual section Substitute Server Authorization,
although the use of 'prefix' in this context is a little obscure:

https://www.gnu.org/software/guix/manual/en/html_node/Substitute-Server-Authorization.html

The keys can also be found in the Guix source code, which may be more
convenient:

https://git.savannah.gnu.org/cgit/guix.git/tree/berlin.guixsd.org.pub 

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

Re: hydra.gnu.org off-line for maintenance

[George Clemmer]

Leo Famulari <leo@famulari.name> writes:

> On Thu, Oct 25, 2018 at 06:41:26PM -0400, Luther Thompson wrote:
>> How do we do that? I followed the link, but I can't find the info to
>> pass to `guix archive --authorize` anywhere.
>
> The signing keys can be found in the Guix package itself, at
> 'share/guix/berlin.guixsd.org.pub'. For example:
>
> $ guix build guix
> /gnu/store/zz3b7j4iv6v143v7cqyr77k83zc5n3zw-guix-0.15.0-6.f9a8fce
> $ guix archive --authorize < /gnu/store/guix-0.15.0-6.f9a8fce/share/guix/berlin.guixsd.org.pub
>
> It is described in the manual section Substitute Server Authorization,
> although the use of 'prefix' in this context is a little obscure:
>
> https://www.gnu.org/software/guix/manual/en/html_node/Substitute-Server-Authorization.html
>
> The keys can also be found in the Guix source code, which may be more
> convenient:
>
> https://git.savannah.gnu.org/cgit/guix.git/tree/berlin.guixsd.org.pub

Hi Luther,

In addition to what Leo said, I believe you also need to add this option ...

--substitute-urls=https://berlin.guixsd.org

... to each guix command -or- add it to GUIX_BUILD_OPTIONS -or- add
something like this to your system config ...

(define %my-services
  (modify-services %base-services
    (guix-service-type config =>
		       (guix-configuration
			(inherit config)
			(substitute-urls (list "https://mirror.hydra.gnu.org"
					       "https://hydra.gnu.org"
					       "https://berlin.guixsd.org"
					       ))))))
...
  (services (cons*
             ...
	     %my-services))

HTH - George

Re: hydra.gnu.org off-line for maintenance

[Jonathan Brielmaier]

On 10/26/18 12:41 AM, Luther Thompson wrote:
> On Wed, 24 Oct 2018 11:57:15 +0200
> ludo@gnu.org (Ludovic Courtès) wrote:
>> If you use berlin.guixsd.org, everything is fine; if you don’t, now is
>> the time to add it to your substitute URLs!  See
>> <https://gnu.org/software/guix/manual/en/html_node/Substitutes.html>.
> 
> How do we do that? I followed the link, but I can't find the info to
> pass to `guix archive --authorize` anywhere.

It's described here:
https://www.gnu.org/software/guix/manual/en/guix.html#Substitute-Server-Authorization

So basically `guix archive --authorize < berlin.guixsd.org.pub`

and then run your commands with:
`--substitute-urls="https://berlin.guixsd.org`

I hope that helps :)

Re: hydra.gnu.org off-line for maintenance

[Thomas Danckaert]

From: Jonathan Brielmaier <jonathan.brielmaier@web.de>
Subject: Re: hydra.gnu.org off-line for maintenance
Date: Fri, 26 Oct 2018 08:01:11 +0200

> It's described here:
> https://www.gnu.org/software/guix/manual/en/guix.html#Substitute-Server-Authorization
>
> So basically `guix archive --authorize < berlin.guixsd.org.pub`
>
> and then run your commands with:
> `--substitute-urls="https://berlin.guixsd.org`

Also, you may want to add this setting globally and permanently, so 
you don't have to specify it every time you run guix.  You can do 
this by passing the option to the guix daemon

  - when using guix on another distribution with systemd, you can 
modify the the ExecStart line in 
/etc/systemd/system/guix-daemon.service as follows:

ExecStart=/var/guix/profiles/per-user/root/guix-profile/bin/guix-daemon 
--build-users-group=guixbuild 
"--substitute-urls=https://mirror.hydra.gnu.org 
https://berlin.guixsd.org"

  - when using GuixSD, modify guix-service in your system 
configuration, by specifying the substitute-urls in the 
configuration. (see guix-configuration in 
https://www.gnu.org/software/guix/manual/en/html_node/Base-Services.html 
)

By the way: when revisiting this issue, I found the manual a bit 
confusing.  You'll find all the information you need when you read 
the entire section on substitutes from front to back, but when you 
just try to find specific information using the headlines, it's a bit 
confusing.  For example, to learn about --substitute-urls and the 
daemon settings for other substitute servers, you'll need to read 
"Official Substitute Server", which you might not do when looking to 
add another server.  The subtitle for "Substitute Server 
Authorization" says "How to enable or disable substitutes", but 
doesn't give all the information you need to enable another 
substitute server.

If people here agree, I'd be happy to send a documentation patch.

Sincerely,

Thomas

Re: hydra.gnu.org off-line for maintenance

[Thorsten Wilms]

On 26/10/2018 11.28, Thomas Danckaert wrote:

> Also, you may want to add this setting globally and permanently, so you 
> don't have to specify it every time you run guix.  You can do this by 
> passing the option to the guix daemon
> 
>   - when using guix on another distribution with systemd, you can modify 
> the the ExecStart line in /etc/systemd/system/guix-daemon.service as 
> follows:
> 
> ExecStart=/var/guix/profiles/per-user/root/guix-profile/bin/guix-daemon 
> --build-users-group=guixbuild 
> "--substitute-urls=https://mirror.hydra.gnu.org https://berlin.guixsd.org"

Shouldn't that be:
---
ExecStart=/var/guix/profiles/per-user/root/guix-profile/bin/guix-daemon 
--build-users-group=guixbuild 
--substitute-urls="https://mirror.hydra.gnu.org https://hydra.gnu.org 
https://berlin.guixsd.org"
---
?

> By the way: when revisiting this issue, I found the manual a bit 
> confusing.  You'll find all the information you need when you read the 
> entire section on substitutes from front to back, but when you just try 
> to find specific information using the headlines, it's a bit confusing.  
> For example, to learn about --substitute-urls and the daemon settings 
> for other substitute servers, you'll need to read "Official Substitute 
> Server", which you might not do when looking to add another server.  The 
> subtitle for "Substitute Server Authorization" says "How to enable or 
> disable substitutes", but doesn't give all the information you need to 
> enable another substitute server.
> 
> If people here agree, I'd be happy to send a documentation patch.

For whatever it may be worth, when I first read about 
https://berlin.guixsd.org, I wondered if it could/should be used 
additionally, looked at the documentation, found it confusing and then 
forgot about the issue.


-- 
Thorsten Wilms

thorwil's design for free software:
http://thorwil.wordpress.com/

Re: hydra.gnu.org off-line for maintenance

[Clément Lassieur]

Hi,

Thomas Danckaert <post@thomasdanckaert.be> writes:

> Also, you may want to add this setting globally and permanently, so you don't
> have to specify it every time you run guix.  You can do this by passing the
> option to the guix daemon
>
>  - when using guix on another distribution with systemd, you can modify the
> the ExecStart line in /etc/systemd/system/guix-daemon.service as follows:
>
> ExecStart=/var/guix/profiles/per-user/root/guix-profile/bin/guix-daemon
> --build-users-group=guixbuild "--substitute-urls=https://mirror.hydra.gnu.org
> https://berlin.guixsd.org"

Note that https://mirror.hydra.gnu.org doesn't work well either[1].  You
might be better off with just https://berlin.guixsd.org.

But I noticed today that https://berlin.guixsd.org doesn't evaluate
anything anymore[2], so you will only get old evaluations from it.

At the moment I can't find any working solution.

[1]: https://bugs.gnu.org/33151
[2]: https://berlin.guixsd.org/jobset/guix-master

Cheers,
Clément

Re: hydra.gnu.org off-line for maintenance

[Tobias Geerinckx-Rice]

Thorsten,

Thorsten Wilms wrote:
> On 26/10/2018 11.28, Thomas Danckaert wrote:
>> ExecStart=/var/guix/profiles/per-user/root/guix-profile/bin/guix-daemon
>> --build-users-group=guixbuild
>> "--substitute-urls=https://mirror.hydra.gnu.org
>> https://berlin.guixsd.org"
>
> Shouldn't that be:
> ---
> ExecStart=/var/guix/profiles/per-user/root/guix-profile/bin/guix-daemon
> --build-users-group=guixbuild
> --substitute-urls="https://mirror.hydra.gnu.org 
> https://hydra.gnu.org
> https://berlin.guixsd.org"
> ---
> ?

Slow ol' hydra.gnu.org shouldn't be used directly like this, even 
though there's currently nothing stopping you from doing so and I 
suspect many do.

The mirror should suffice.

Kind regards,

T G-R

Re: hydra.gnu.org off-line for maintenance

[Alex Vong]

[-- Attachment #1: Type: text/plain, Size: 1437 bytes --]

Hello,

For myself, I use the following option:

  --substitute-urls='https://berlin.guixsd.org https://mirror.guixsd.org https://mirror.hydra.gnu.org https://hydra.gnu.org'

I choose 'berlin.guixsd.org' to be the default because it seems to build
substitutes faster than 'hydra.gnu.org'.

Cheers,
Alex

Clément Lassieur <clement@lassieur.org> writes:

> Hi,
>
> Thomas Danckaert <post@thomasdanckaert.be> writes:
>
>> Also, you may want to add this setting globally and permanently, so you don't
>> have to specify it every time you run guix.  You can do this by passing the
>> option to the guix daemon
>>
>>  - when using guix on another distribution with systemd, you can modify the
>> the ExecStart line in /etc/systemd/system/guix-daemon.service as follows:
>>
>> ExecStart=/var/guix/profiles/per-user/root/guix-profile/bin/guix-daemon
>> --build-users-group=guixbuild "--substitute-urls=https://mirror.hydra.gnu.org
>> https://berlin.guixsd.org"
>
> Note that https://mirror.hydra.gnu.org doesn't work well either[1].  You
> might be better off with just https://berlin.guixsd.org.
>
> But I noticed today that https://berlin.guixsd.org doesn't evaluate
> anything anymore[2], so you will only get old evaluations from it.
>
> At the moment I can't find any working solution.
>
> [1]: https://bugs.gnu.org/33151
> [2]: https://berlin.guixsd.org/jobset/guix-master
>
> Cheers,
> Clément

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 227 bytes --]

Evaluations on berlin.guixsd.org

[Ludovic Courtès]

Hello,

Clément Lassieur <clement@lassieur.org> skribis:

> But I noticed today that https://berlin.guixsd.org doesn't evaluate
> anything anymore[2], so you will only get old evaluations from it.

I believe this is fixed by fdf02484289e155de56e7320f7e1dd1e57431f4b.

Everyone: please make sure to run ‘guix lint’ before pushing, especially
when pushing patch series where it’s easy to overlook something.

The issue wasn’t easy to find in the middle of the Cuirass build log,
and it’s also problematic that Cuirass doesn’t distinguish between
failed evaluations and evaluations in progress.  We should look into
that sometime.  :-)

Thanks for the heads-up, Clément!

Ludo’.

Re: hydra.gnu.org off-line for maintenance

[Luther Thompson]

On Fri, 26 Oct 2018 00:23:57 -0400
George Clemmer <myglc2@gmail.com> wrote:

> Leo Famulari <leo@famulari.name> writes:
> 
> > On Thu, Oct 25, 2018 at 06:41:26PM -0400, Luther Thompson wrote:  
> >> How do we do that? I followed the link, but I can't find the info
> >> to pass to `guix archive --authorize` anywhere.  
> >
> > The signing keys can be found in the Guix package itself, at
> > 'share/guix/berlin.guixsd.org.pub'. For example:
> >
> > $ guix build guix
> > /gnu/store/zz3b7j4iv6v143v7cqyr77k83zc5n3zw-guix-0.15.0-6.f9a8fce
> > $ guix archive --authorize
> > < /gnu/store/guix-0.15.0-6.f9a8fce/share/guix/berlin.guixsd.org.pub
> >
> > It is described in the manual section Substitute Server
> > Authorization, although the use of 'prefix' in this context is a
> > little obscure:
> >
> > https://www.gnu.org/software/guix/manual/en/html_node/Substitute-Server-Authorization.html
> >
> > The keys can also be found in the Guix source code, which may be
> > more convenient:
> >
> > https://git.savannah.gnu.org/cgit/guix.git/tree/berlin.guixsd.org.pub  
> 
> Hi Luther,
> 
> In addition to what Leo said, I believe you also need to add this
> option ...
> 
> --substitute-urls=https://berlin.guixsd.org
> 
> ... to each guix command -or- add it to GUIX_BUILD_OPTIONS -or- add
> something like this to your system config ...
> 
> (define %my-services
>   (modify-services %base-services
>     (guix-service-type config =>
> 		       (guix-configuration
> 			(inherit config)
> 			(substitute-urls (list
> "https://mirror.hydra.gnu.org" "https://hydra.gnu.org"
> 					       "https://berlin.guixsd.org"
> 					       ))))))
> ...
>   (services (cons*
>              ...
> 	     %my-services))
> 
> HTH - George

Ok, I've followed Leo's and George's instructions, and it seems to be
working now. I see it downloading substitutes from both
berlin.guixsd.org and mirror.hydra.gnu.org. Thank you.

Luther

Re: hydra.gnu.org off-line for maintenance

[Tobias Geerinckx-Rice]

Alex,

Alex Vong wrote:
> For myself, I use the following option:
>
>   --substitute-urls='https://berlin.guixsd.org 
>   https://mirror.guixsd.org https://mirror.hydra.gnu.org 
>   https://hydra.gnu.org'

I suggest keeping only one of mirror.guixsd.org and 
mirror.hydra.gnu.org.

I don't know the story, or which one's preferable (I forgot m.g.o 
existed), but both point to the exact same server. Hitting (and 
caching?) the same box twice is probably bad news for both of you.

> I choose 'berlin.guixsd.org' to be the default because it seems 
> to build
> substitutes faster than 'hydra.gnu.org'.

I share that impression.

Kind regards,

T G-R

Re: hydra.gnu.org off-line for maintenance

[znavko]

[-- Attachment #1: Type: text/plain, Size: 32101 bytes --]

Sorry, substitution like this gives the next errors:


;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.


(use-modules (gnu) (gnu system nss)
             (gnu services desktop)
             
          ;;(gnu services networking) ;;for tor
             (gnu services xorg)
          ;;   (gnu packages libusb)
          ;;   (gnu services networking)
          ;;   (gnu services audio)
            ;; (gnu packages linux)
          ;;   (gnu services dbus)
)
(use-service-modules desktop)
(use-package-modules certs gnome)

(define %my-services
  (modify-services %base-services
    (guix-service-type config =>
                       (guix-configuration
                        (inherit config)
                        (substitute-urls (list "https://mirror.hydra.gnu.org <https://mirror.hydra.gnu.org>";
                                               "https://hydra.gnu.org <https://hydra.gnu.org>";
                                               "https://berlin.guixsd.org <https://berlin.guixsd.org>";
                                               ))))))

(operating-system
  (host-name "antelope")
  (timezone "Europe/Moscow")
  (locale "en_US.utf8")

  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (target "/dev/sda")))

  (file-systems (cons (file-system
                        (device "/dev/sda1")
                        (mount-point "/")
                        (type "ext4")
                        )
                      %base-file-systems))

  (swap-devices '("/dev/sda2"))

  (users (cons* (user-account
                (name "bob")
                (comment "bob is good too")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/bob"))
           
      (user-account
                (name "alice")
                (comment "bobs sister")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/alice"))
                
      (user-account
                (name "mom")
                (comment "mom")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/mom"))

               %base-user-accounts))

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs         ;for HTTPS access
                   gvfs              ;for user mounts
                   %base-packages))

  ;; Add GNOME and/or Xfce---we can choose at the log-in
  ;; screen with F1.  Use the "desktop" services, which
  ;; include the X11 log-in service, networking with
  ;; NetworkManager, and more.
  (services (cons*  ;;(tor-service)
                    (xfce-desktop-service)
                    (bluetooth-service)
                    (modify-services %desktop-services
                        (elogind-service-type
                            c => (elogind-configuration
                                (handle-lid-switch 'ignore)))

                        (slim-service-type config =>
                            (slim-configuration
                                (inherit config)
                                (startx
                                    (xorg-start-command
                                        #:configuration-file
                                        (xorg-configuration-file
                                            #:extra-config
                                            '(
"Section \"InputClass\"
        Identifier \"keyboard-all\"
        Option \"XkbLayout\" \"dvorak\"
        MatchIsKeyboard \"on\"
EndSection
Section \"InputClass\"
        Identifier \"touchpad-all\"
        MatchIsTouchpad \"on\"
        Option \"DisableWhileTyping\" \"on\"
        Option \"Tapping\" \"on\"
EndSection"
                                            )
                                        )
                                    )
                                )
                            )
                        )

                    );;end of moify desktop-srvices

                    %my-services
  ));;end of services

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))

  



# guix system reconfigure /etc/config.scm
Backtrace:
          13 (primitive-load "/root/.config/guix/current/bin/guix")
In guix/ui.scm:
  1583:12 12 (run-guix-command _ . _)
In ice-9/boot-9.scm:
    829:9 11 (catch _ _ #<procedure 7fdf17689458 at guix/ui.scm:615…> …)
    829:9 10 (catch _ _ #<procedure 7fdf17689470 at guix/ui.scm:733…> …)
In guix/scripts/system.scm:
   1262:8  9 (_)
In guix/status.scm:
    600:4  8 (call-with-status-report _ _)
In guix/scripts/system.scm:
   1132:6  7 (process-action _ _ _)
In guix/store.scm:
  1605:24  6 (run-with-store _ _ #:guile-for-build _ #:system _ # _)
In guix/scripts/system.scm:
  1145:13  5 (_ _)
   840:18  4 (perform-action reconfigure #<<operating-system> kerne…> …)
In gnu/system.scm:
   846:19  3 (operating-system-derivation _ #:container? _)
In gnu/services.scm:
    737:6  2 (instantiate-missing-services _)
In srfi/srfi-1.scm:
   466:18  1 (fold #<procedure 7fdf0a88dcc8 at gnu/services.scm:737…> …)
In gnu/services.scm:
   738:27  0 (_ (#<<service> type: #<service-type slim 159e7d0> …> …) …)

gnu/services.scm:738:27: In procedure struct_vtable: Wrong type argument in position 1 (expecting struct): (#<<service> type: #<service-type slim 159e7d0> value: #<<slim-configuration> slim: #<package slim@1.3.6 gnu/packages/display-managers.scm:310 31a9600> allow-empty-passwords?: #t auto-login?: #f default-user: "" theme: #<file-append #<origin #<<git-reference> url: "git://git.savannah.gnu.org/guix/guix-artwork.git" commit: "6998d30425289b087c64f63e7415df2241e591db" recursive?: #f> gjomvsacge5nz76kqiyzbpiin32l7nn672voskuo7ahz3za56jga () 300ec00> "/slim"> theme-name: "0.x" xauth: #<package xauth@1.0.10 gnu/packages/xorg.scm:1996 2d76600> shepherd: #<package shepherd@0.5.0 gnu/packages/admin.scm:174 2ccbcc0> auto-login-session: #f startx: #<<program-file> name: "startx" gexp: #<gexp (apply execl #<gexp-input #<<program-file> name: "X-wrapper" gexp: #<gexp (begin (setenv "XORG_DRI_DRIVER_PATH" (string-append #<gexp-input #<package mesa@18.1.5 gnu/packages/gl.scm:225 29eaf00>:out> "/lib/dri")) (setenv "XKB_BINDIR" (string-append #<gexp-input #<package xkbcomp@1.4.2 gnu/packages/xorg.scm:3754 2ae2780>:out> "/bin")) (let ((X (string-append #<gexp-input #<package xorg-server@1.20.2 gnu/packages/xorg.scm:5066 1dce900>:out> "/bin/X"))) (apply execl X X "-xkbdir" (string-append #<gexp-input #<package xkeyboard-config@2.23.1 gnu/packages/xorg.scm:3830 2ae2540>:out> "/share/X11/xkb") "-config" #<gexp-input #<<computed-file> name: "xserver.conf" gexp: #<gexp (begin (use-modules (ice-9 match) (srfi srfi-1) (srfi srfi-26)) (call-with-output-file #<gexp-output out> (lambda (port) (define drivers (quote #<gexp-input ():out>)) (define (device-section driver) (string-append "\nSection \"Device\"\n  Identifier \"device-" driver "\"\n  Driver \"" driver "\"\nEndSection")) (define (screen-section driver resolutions) (string-append "\nSection \"Screen\"\n  Identifier \"screen-" driver "\"\n  Device \"device-" driver "\"\n  SubSection \"Display\"\n    Modes " (string-join (map (match-lambda ((x y) (string-append "\"" (number->string x) "x" (number->string y) "\""))) resolutions)) "\n  EndSubSection\nEndSection")) (define (expand modules) (append-map (lambda (module) (filter-map (lambda (directory) (let ((full (string-append module directory))) (and (file-exists? full) full))) (quote ("/lib/xorg/modules/drivers" "/lib/xorg/modules/input" "/lib/xorg/modules/multimedia" "/lib/xorg/modules/extensions")))) modules)) (display "Section \"Files\"\n" port) (for-each (lambda (font) (format port "  FontPath \"~a\"~%" font)) (quote #<gexp-input (#<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/75dpi"> #<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/100dpi"> #<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/misc"> #<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/cyrillic"> #<file-append #<package font-misc-misc@1.1.2 gnu/packages/xorg.scm:716 2d69a80> "/share/fonts/X11/misc"> #<file-append #<package font-adobe75dpi@1.0.3 gnu/packages/xorg.scm:491 2d5f180> "/share/fonts/X11/75dpi">):out>)) (for-each (lambda (module) (format port "  ModulePath \"~a\"~%" module)) (append (expand (quote #<gexp-input (#<package xf86-video-vesa@2.4.0 gnu/packages/xorg.scm:3411 2d83240> #<package xf86-video-fbdev@0.5.0 gnu/packages/xorg.scm:2728 2d7d300> #<package xf86-video-ati@18.0.1 gnu/packages/xorg.scm:2671 2d7d480> #<package xf86-video-cirrus@1.5.3 gnu/packages/xorg.scm:2699 2d7d3c0> #<package xf86-video-intel@2.99.917-10.d7dfab6 gnu/packages/xorg.scm:2910 2d83f00> #<package xf86-video-mach64@6.9.6 gnu/packages/xorg.scm:2957 2d83e40> #<package xf86-video-nouveau@1.0.15 gnu/packages/xorg.scm:3093 2d83b40> #<package xf86-video-nv@2.1.21 gnu/packages/xorg.scm:3066 2d83c00> #<package xf86-video-sis@0.10.9 gnu/packages/xorg.scm:3252 2d836c0> #<package xf86-input-libinput@0.28.1 gnu/packages/xorg.scm:2449 2d7da80> #<package xf86-input-evdev@2.10.6 gnu/packages/xorg.scm:2415 2d7db40> #<package xf86-input-keyboard@1.9.0 gnu/packages/xorg.scm:2509 2d7d900> #<package xf86-input-mouse@1.9.3 gnu/packages/xorg.scm:2533 2d7d840> #<package xf86-input-synaptics@1.9.1 gnu/packages/xorg.scm:2565 2d7d780> #<package xorg-server@1.20.2 gnu/packages/xorg.scm:5066 1dce900>):out>)) (list #<gexp-input #<file-append #<package xorg-server@1.20.2 gnu/packages/xorg.scm:5066 1dce900> "/lib/xorg/modules">:out>))) (display "EndSection\n" port) (display "\nSection \"ServerFlags\"\n  Option \"AllowMouseOpenFail\" \"on\"\nEndSection\n" port) (display (string-join (map device-section drivers) "\n") port) (newline port) (display (string-join (map (cut screen-section <> (quote #<gexp-input ():out>)) drivers) "\n") port) (newline port) (for-each (lambda (config) (display config port)) (quote #<gexp-input ("Section \"InputClass\"\n        Identifier \"keyboard-all\"\n        Option \"XkbLayout\" \"dvorak\"\n        MatchIsKeyboard \"on\"\nEndSection\nSection \"InputClass\"\n        Identifier \"touchpad-all\"\n        MatchIsTouchpad \"on\"\n        Option \"DisableWhileTyping\" \"on\"\n        Option \"Tapping\" \"on\"\nEndSection"):out>))))) 17bf3f0> guile: #f options: (#:local-build? #t)>:out> "-configdir" #<gexp-input #<<computed-file> name: "xorg.conf.d" gexp: #<gexp  17bf360> guile: #f options: (#:local-build? #t)>:out> (cdr (command-line))))) 17bf1e0> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")>:out> #<gexp-input #<<program-file> name: "X-wrapper" gexp: #<gexp (begin (setenv "XORG_DRI_DRIVER_PATH" (string-append #<gexp-input #<package mesa@18.1.5 gnu/packages/gl.scm:225 29eaf00>:out> "/lib/dri")) (setenv "XKB_BINDIR" (string-append #<gexp-input #<package xkbcomp@1.4.2 gnu/packages/xorg.scm:3754 2ae2780>:out> "/bin")) (let ((X (string-append #<gexp-input #<package xorg-server@1.20.2 gnu/packages/xorg.scm:5066 1dce900>:out> "/bin/X"))) (apply execl X X "-xkbdir" (string-append #<gexp-input #<package xkeyboard-config@2.23.1 gnu/packages/xorg.scm:3830 2ae2540>:out> "/share/X11/xkb") "-config" #<gexp-input #<<computed-file> name: "xserver.conf" gexp: #<gexp (begin (use-modules (ice-9 match) (srfi srfi-1) (srfi srfi-26)) (call-with-output-file #<gexp-output out> (lambda (port) (define drivers (quote #<gexp-input ():out>)) (define (device-section driver) (string-append "\nSection \"Device\"\n  Identifier \"device-" driver "\"\n  Driver \"" driver "\"\nEndSection")) (define (screen-section driver resolutions) (string-append "\nSection \"Screen\"\n  Identifier \"screen-" driver "\"\n  Device \"device-" driver "\"\n  SubSection \"Display\"\n    Modes " (string-join (map (match-lambda ((x y) (string-append "\"" (number->string x) "x" (number->string y) "\""))) resolutions)) "\n  EndSubSection\nEndSection")) (define (expand modules) (append-map (lambda (module) (filter-map (lambda (directory) (let ((full (string-append module directory))) (and (file-exists? full) full))) (quote ("/lib/xorg/modules/drivers" "/lib/xorg/modules/input" "/lib/xorg/modules/multimedia" "/lib/xorg/modules/extensions")))) modules)) (display "Section \"Files\"\n" port) (for-each (lambda (font) (format port "  FontPath \"~a\"~%" font)) (quote #<gexp-input (#<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/75dpi"> #<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/100dpi"> #<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/misc"> #<file-append #<package font-alias@1.0.3 gnu/packages/xorg.scm:520 2d5f0c0> "/share/fonts/X11/cyrillic"> #<file-append #<package font-misc-misc@1.1.2 gnu/packages/xorg.scm:716 2d69a80> "/share/fonts/X11/misc"> #<file-append #<package font-adobe75dpi@1.0.3 gnu/packages/xorg.scm:491 2d5f180> "/share/fonts/X11/75dpi">):out>)) (for-each (lambda (module) (format port "  ModulePath \"~a\"~%" module)) (append (expand (quote #<gexp-input (#<package xf86-video-vesa@2.4.0 gnu/packages/xorg.scm:3411 2d83240> #<package xf86-video-fbdev@0.5.0 gnu/packages/xorg.scm:2728 2d7d300> #<package xf86-video-ati@18.0.1 gnu/packages/xorg.scm:2671 2d7d480> #<package xf86-video-cirrus@1.5.3 gnu/packages/xorg.scm:2699 2d7d3c0> #<package xf86-video-intel@2.99.917-10.d7dfab6 gnu/packages/xorg.scm:2910 2d83f00> #<package xf86-video-mach64@6.9.6 gnu/packages/xorg.scm:2957 2d83e40> #<package xf86-video-nouveau@1.0.15 gnu/packages/xorg.scm:3093 2d83b40> #<package xf86-video-nv@2.1.21 gnu/packages/xorg.scm:3066 2d83c00> #<package xf86-video-sis@0.10.9 gnu/packages/xorg.scm:3252 2d836c0> #<package xf86-input-libinput@0.28.1 gnu/packages/xorg.scm:2449 2d7da80> #<package xf86-input-evdev@2.10.6 gnu/packages/xorg.scm:2415 2d7db40> #<package xf86-input-keyboard@1.9.0 gnu/packages/xorg.scm:2509 2d7d900> #<package xf86-input-mouse@1.9.3 gnu/packages/xorg.scm:2533 2d7d840> #<package xf86-input-synaptics@1.9.1 gnu/packages/xorg.scm:2565 2d7d780> #<package xorg-server@1.20.2 gnu/packages/xorg.scm:5066 1dce900>):out>)) (list #<gexp-input #<file-append #<package xorg-server@1.20.2 gnu/packages/xorg.scm:5066 1dce900> "/lib/xorg/modules">:out>))) (display "EndSection\n" port) (display "\nSection \"ServerFlags\"\n  Option \"AllowMouseOpenFail\" \"on\"\nEndSection\n" port) (display (string-join (map device-section drivers) "\n") port) (newline port) (display (string-join (map (cut screen-section <> (quote #<gexp-input ():out>)) drivers) "\n") port) (newline port) (for-each (lambda (config) (display config port)) (quote #<gexp-input ("Section \"InputClass\"\n        Identifier \"keyboard-all\"\n        Option \"XkbLayout\" \"dvorak\"\n        MatchIsKeyboard \"on\"\nEndSection\nSection \"InputClass\"\n        Identifier \"touchpad-all\"\n        MatchIsTouchpad \"on\"\n        Option \"DisableWhileTyping\" \"on\"\n        Option \"Tapping\" \"on\"\nEndSection"):out>))))) 17bf3f0> guile: #f options: (#:local-build? #t)>:out> "-configdir" #<gexp-input #<<computed-file> name: "xorg.conf.d" gexp: #<gexp  17bf360> guile: #f options: (#:local-build? #t)>:out> (cdr (command-line))))) 17bf1e0> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")>:out> "-logverbose" "-verbose" "-nolisten" "tcp" "-terminate" (cdr (command-line))) 17bf150> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")> sessreg: #<package sessreg@1.1.1 gnu/packages/xorg.scm:1784 2d76b40>>> #<<service> type: #<service-type screen-locker 159e780> value: #<<screen-locker> name: "slock" program: #<file-append #<package slock@1.4 gnu/packages/suckless.scm:199 254aa80> "/bin/ slock"> empty?: #f>> #<<service> type: #<service-type screen-locker 159e780> value: #<<screen-locker> name: "xlock" program: #<file-append #<package xlockmore@5.56 gnu/packages/xdisorg.scm:639 25b5a80> "/bin/ xlock"> empty?: #f>> #<<service> type: #<service-type mtp 1af96e0> value: (#<package libmtp@1.1.15 gnu/packages/libusb.scm:304 2a34180>)> #<<service> type: #<service-type network-manager 159e460> value: #<<network-manager-configuration> network-manager: #<package network-manager@1.8.4 gnu/packages/gnome.scm:5046 29a0480> dns: "default" vpn-plugins: ()>> #<<service> type: #<service-type wpa-supplicant 159e370> value: #<<wpa-supplicant-configuration> wpa-supplicant: #<package wpa-supplicant@2.6 gnu/packages/admin.scm:1143 2ce1cc0> pid-file: "/var/run/wpa_supplicant.pid" dbus?: #t interface: #f config-file: #f extra-options: ()>> #<<service> type: #<service-type avahi 159e820> value: #<<avahi-configuration> avahi: #<package avahi@0.7 gnu/packages/avahi.scm:35 2c91540> debug?: #f host-name: #f publish?: #t publish-workstation?: #t ipv4?: #t ipv6?: #t wide-area?: #f domains-to-browse: ()>> #<<service> type: #<service-type udisks 159e0f0> value: #<<udisks-configuration> udisks: #<package udisks@2.7.7 gnu/packages/freedesktop.scm:623 29d6f00>>> #<<service> type: #<service-type upower 159e230> value: #<<upower-configuration> upower: #<package upower@0.99.8 gnu/packages/gnome.scm:2934 298f480> watts-up-pro?: #f poll-batteries?: #t ignore-lid?: #f use-percentage-for-policy?: #f percentage-low: 10 percentage-critical: 3 percentage-action: 2 time-low: 1200 time-critical: 300 time-action: 120 critical-power-action: hybrid-sleep>> #<<service> type: #<service-type accountsservice 159e050> value: #<package accountsservice@0.6.50 gnu/packages/freedesktop.scm:723 29d6e40>> #<<service> type: #<service-type colord 159e140> value: #<package colord@1.1.8 gnu/packages/gnome.scm:2786 298f6c0>> #<<service> type: #<service-type geoclue 159e1e0> value: #<<geoclue-configuration> geoclue: #<package geoclue@2.4.8 gnu/packages/gnome.scm:2850 298f600> whitelist: () wifi-geolocation-url: "https://location.services.mozilla.com/v1/geolocate?key=geoclue <https://location.services.mozilla.com/v1/geolocate?key=geoclue>" submit-data?: #f wifi-submission-url: "https://location.services.mozilla.com/v1/submit?key=geoclue <https://location.services.mozilla.com/v1/submit?key=geoclue>" submission-nick: "geoclue" applications: ("[gnome-datetime-panel]\nallowed=true\nsystem=true\nusers=\n" "[epiphany]\nallowed=true\nsystem=false\nusers=\n" "[firefox]\nallowed=true\nsystem=false\nusers=\n")>> #<<service> type: #<service-type polkit 159e870> value: #<<polkit-configuration> polkit: #<package polkit@0.115 gnu/packages/polkit.scm:44 26e10c0> actions: ()>> #<<service> type: #<service-type elogind 159e0a0> value: #<<elogind-configuration> elogind: #<package elogind@232.4 gnu/packages/freedesktop.scm:230 29cb6c0> kill-user-processes?: #f kill-only-users: () kill-exclude-users: ("root") inhibit-delay-max-seconds: 5 handle-power-key: poweroff handle-suspend-key: suspend handle-hibernate-key: ignore handle-lid-switch: ignore handle-lid-switch-docked: ignore power-key-ignore-inhibited?: #f suspend-key-ignore-inhibited?: #f hibernate-key-ignore-inhibited?: #f lid-switch-ignore-inhibited?: #t holdoff-timeout-seconds: 30 idle-action: ignore idle-action-seconds: 1800 runtime-directory-size-percent: 10 runtime-directory-size: #f remove-ipc?: #t suspend-state: ("mem" "standby" "freeze") suspend-mode: () hibernate-state: ("disk") hibernate-mode: ("platform" "shutdown") hybrid-sleep-state: ("disk") hybrid-sleep-mode: ("suspend" "platform" "shutdown")>> #<<service> type: #<service-type dbus 159e8c0> value: #<<dbus-configuration> dbus: #<package dbus@1.12.6 gnu/packages/glib.scm:81 2acf540> services: ()>> #<<service> type: #<service-type ntp 159e640> value: #<<ntp-configuration> ntp: #<package ntp@4.2.8p12 gnu/packages/ntp.scm:41 31fa240> servers: ("0.guix.pool.ntp.org" "1.guix.pool.ntp.org" "2.guix.pool.ntp.org" "3.guix.pool.ntp.org") allow-large-adjustment?: #f>> #<<service> type: #<service-type x11-socket-directory 1af9780> value: #<gexp (begin (use-modules (guix build utils)) (let ((directory "/tmp/.X11-unix")) (mkdir-p directory) (chmod directory 511))) 3253f90>> #<<service> type: #<service-type alsa 159e280> value: #<<alsa-configuration> alsa-plugins: #<package alsa-plugins@1.1.6 gnu/packages/linux.scm:1060 2c73f00> pulseaudio?: #t extra-options: "">> #<<service> type: #<service-type login 159edc0> value: #<<login-configuration> motd: #<<plain-file> name: "motd" content: "This is the GNU operating system, welcome!\n\n" references: ()> allow-empty-passwords?: #t>> #<<service> type: #<service-type virtual-terminal 159eeb0> value: #t> #<<service> type: #<service-type console-fonts 159ee10> value: (("tty1" . "LatGrkCyr-8x16") ("tty2" . "LatGrkCyr-8x16") ("tty3" . "LatGrkCyr-8x16") ("tty4" . "LatGrkCyr-8x16") ("tty5" . "LatGrkCyr-8x16") ("tty6" . "LatGrkCyr-8x16"))> #<<service> type: #<service-type agetty 159ed70> value: #<<agetty-configuration> agetty: #<package util-linux@2.32 gnu/packages/linux.scm:581 2c6c9c0> tty: #f term: "vt100" baud-rate: #f auto-login: #f login-program: #<file-append #<package shadow@4.6 gnu/packages/admin.scm:366 2ccb840> "/bin/login"> login-pause?: #f eight-bits?: #f no-reset?: #f remote?: #f flow-control?: #f host: #f no-issue?: #f init-string: #f no-clear?: #f local-line: #f extract-baud?: #f skip-login?: #f no-newline?: #f login-options: #f chroot: #f hangup?: #f keep-baud?: #f timeout: #f detect-case?: #f wait-cr?: #f no-hints?: #f no-hostname?: #f long-hostname?: #f erase-characters: #f kill-characters: #f chdir: #f delay: #f nice: #f extra-options: ("-L")>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:423 2ccb780> tty: "tty1" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:423 2ccb780> tty: "tty2" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:423 2ccb780> tty: "tty3" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:423 2ccb780> tty: "tty4" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:423 2ccb780> tty: "tty5" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type mingetty 159ed20> value: #<<mingetty-configuration> mingetty: #<package mingetty@1.08 gnu/packages/admin.scm:423 2ccb780> tty: "tty6" auto-login: #f login-program: #f login-pause?: #f>> #<<service> type: #<service-type static-networking 159e960> value: (#<<static-networking> interface: "lo" ip: "127.0.0.1" netmask: #f gateway: #f provision: (loopback) requirement: () name-servers: ()>)> #<<service> type: #<service-type syslog 159ec80> value: #<<syslog-configuration> syslogd: #<file-append #<package inetutils@1.9.4 gnu/packages/admin.scm:332 2ccb900> "/libexec/syslogd"> config-file: #<<plain-file> name: "syslog.conf" content: "\n     # Log all error messages, authentication messages of\n     # level notice or higher and anything of level err or\n     # higher to the console.\n     # Don't log private authentication messages!\n     *.alert;auth.notice;authpriv.none       /dev/console\n\n     # Log anything (except mail) of level info or higher.\n     # Don't log private authentication messages!\n     *.info;mail.none;authpriv.none          /var/log/messages\n\n     # Like /var/log/messages, but also including \"debug\"-level logs.\n     *.debug;mail.none;authpriv.none         /var/log/debug\n\n     # Same, in a different place.\n     *.info;mail.none;authpriv.none          /dev/tty12\n\n     # The authpriv file has restricted access.\n     authpriv.*                              /var/log/secure\n\n     # Log all the mail messages in one place.\n     mail.*                                  /var/log/maillog\n" references: ()>>> #<<service> type: #<service-type urandom-seed 1af98c0> value: #f> #<<service> type: #<service-type guix 159ebe0> value: #<<guix-configuration> guix: #<package guix@0.15.0-6.f9a8fce gnu/packages/package-management.scm:107 201e900> build-group: "guixbuild" build-accounts: 10 authorize-key?: #t authorized-keys: (#<file-append #<package guix@0.15.0-6.f9a8fce gnu/packages/package-management.scm:107 201e900> "/share/guix/hydra.gnu.org.pub"> #<file-append #<package guix@0.15.0-6.f9a8fce gnu/packages/package-management.scm:107 201e900> "/share/guix/berlin.guixsd.org.pub">) use-substitutes?: #t substitute-urls: ("https://mirror.hydra.gnu.org <https://mirror.hydra.gnu.org>") chroot-directories: () max-silent-time: 0 timeout: 0 log-compression: bzip2 extra-options: () log-file: "/var/log/guix-daemon.log" http-proxy: #f tmpdir: #f>> #<<service> type: #<service-type nscd 159ecd0> value: #<<nscd-configuration> log-file: "/var/log/nscd.log" debug-level: 0 caches: (#<<nscd-cache> database: hosts positive-time-to-live: 43200 negative-time-to-live: 20 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t> #<<nscd-cache> database: services positive-time-to-live: 86400 negative-time-to-live: 3600 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t>) name-services: () glibc: #<package glibc@2.27 gnu/packages/commencement.scm:668 2eadb40>>> #<<service> type: #<service-type udev 159eaf0> value: #<<udev-configuration> udev: #<package eudev@3.2.5 gnu/packages/linux.scm:2042 2c7bd80> rules: (#<package lvm2@2.02.177 gnu/packages/linux.scm:2104 2c7bc00> #<package fuse@2.9.8 gnu/packages/linux.scm:1635 2c73600> #<package alsa-utils@1.1.6 gnu/packages/linux.scm:1013 2c6c000> #<package crda@3.18 gnu/packages/linux.scm:2240 2c7b9c0>)>> #<<service> type: #<service-type special-files 1af9dc0> value: (("/bin/sh" #<file-append #<package bash@4.4.19 gnu/packages/bash.scm:119 294a6c0> "/bin/sh">))>)


[-- Attachment #2: Type: text/html, Size: 46278 bytes --]

Re: hydra.gnu.org off-line for maintenance

[Alex Vong]

[-- Attachment #1: Type: text/plain, Size: 892 bytes --]

Tobias Geerinckx-Rice <me@tobias.gr> writes:

> Alex,
>
> Alex Vong wrote:
>> For myself, I use the following option:
>>
>>   --substitute-urls='https://berlin.guixsd.org
>> https://mirror.guixsd.org https://mirror.hydra.gnu.org
>> https://hydra.gnu.org'
>
> I suggest keeping only one of mirror.guixsd.org and
> mirror.hydra.gnu.org.
>
> I don't know the story, or which one's preferable (I forgot m.g.o
> existed), but both point to the exact same server. Hitting (and
> caching?) the same box twice is probably bad news for both of you.
>
Thanks for the catch! 'mirror.guixsd.org' was mentioned in one of the
threads. (of course, I forget which thread it was...) I don't know the 2
urls resolve same server.

>> I choose 'berlin.guixsd.org' to be the default because it seems to
>> build
>> substitutes faster than 'hydra.gnu.org'.
>
> I share that impression.
>
> Kind regards,
>
> T G-R

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 227 bytes --]

Re: hydra.gnu.org off-line for maintenance

[Ricardo Wurmus]

Hi,

znavko@tutanota.com writes:

> (define %my-services
>  (modify-services %base-services
>  (guix-service-type config =>
>  (guix-configuration
>  (inherit config)
>  (substitute-urls (list "https://mirror.hydra.gnu.org <https://mirror.hydra.gnu.org>";
>  "https://hydra.gnu.org <https://hydra.gnu.org>";
>  "https://berlin.guixsd.org <https://berlin.guixsd.org>";
>  ))))))

Okay, %my-services is a list of services.  Let’s remember this.

>  (services (cons* ;;(tor-service)
>  (xfce-desktop-service)
>  (bluetooth-service)
>  (modify-services %desktop-services …)
>  %my-services
>  ));;end of services

Here you’re using cons* on four arguments: a service, another service, a
list of services, and yet another list of services.

This is why you get the error, because you’re creating a nested list of
services and lists of services.  When you pay attention to the types you
could come up with an alternative, such as this:

(services (cons* (xfce-desktop-service)
                 (bluetooth-service)
                 (append (modify-services %desktop-services …)
                         %my-services)))

Or you could change %my-services to work on %desktop-services and thus
remove the second “modify-services”.

--
Ricardo

PS: closing parentheses get lonely when they are on a line all by
themselves ;)

Re: hydra.gnu.org off-line for maintenance

[znavko]

[-- Attachment #1: Type: text/plain, Size: 2269 bytes --]

Thank you, Ricardo! Your answer is very important.
This command is working now: 'guix system reconfigure /etc/config.scm --substitute-urls=https://mirror.guixsd.org <https://mirror.guixsd.org>', nevertheless I have 504 errors, but some packages are compiling now.
After that I'll try your advise. It's a pity I have not enough time for GuixSD and Guile, but this is very best I've tried from opensource. Here are very  responsive people. When I found how to use IRC through tor or vpn I'll join. 
But may be tox group chat?

31. Oct 2018 20:04 by rekado@elephly.net <mailto:rekado@elephly.net>:


> Hi,
>
> znavko@tutanota.com <mailto:znavko@tutanota.com>>  writes:
>
>> (define %my-services
>>  (modify-services %base-services
>>  (guix-service-type config =>
>>  (guix-configuration
>>  (inherit config)
>>  (substitute-urls (list ">> https://mirror.hydra.gnu.org <https://mirror.hydra.gnu.org>>>  <>> https://mirror.hydra.gnu.org <https://mirror.hydra.gnu.org>>> >";
>>  ">> https://hydra.gnu.org <https://hydra.gnu.org>>>  <>> https://hydra.gnu.org <https://hydra.gnu.org>>> >";
>>  ">> https://berlin.guixsd.org <https://berlin.guixsd.org>>>  <>> https://berlin.guixsd.org <https://berlin.guixsd.org>>> >";
>>  ))))))
>
> Okay, %my-services is a list of services.  Let’s remember this.
>
>>  (services (cons* ;;(tor-service)
>>  (xfce-desktop-service)
>>  (bluetooth-service)
>>  (modify-services %desktop-services …)
>>  %my-services
>>  ));;end of services
>
> Here you’re using cons* on four arguments: a service, another service, a
> list of services, and yet another list of services.
>
> This is why you get the error, because you’re creating a nested list of
> services and lists of services.  When you pay attention to the types you
> could come up with an alternative, such as this:
>
> (services (cons* (xfce-desktop-service)
>                  (bluetooth-service)
>                  (append (modify-services %desktop-services …)
>                          %my-services)))
>
> Or you could change %my-services to work on %desktop-services and thus
> remove the second “modify-services”.
>
> --
> Ricardo
>
> PS: closing parentheses get lonely when they are on a line all by
> themselves ;)

[-- Attachment #2: Type: text/html, Size: 3168 bytes --]

Re: hydra.gnu.org off-line for maintenance

[Ludovic Courtès]

[-- Attachment #1: Type: text/plain, Size: 963 bytes --]

Hello Guix!

ludo@gnu.org (Ludovic Courtès) skribis:

> The hydra.gnu.org build farm has been off-line since yesterday ~4PM UTC
> and will remain off-line roughly until the end of the week.  The FSF
> sysadmins (it’s hosted at the FSF’s data center) are performing a major
> storage upgrade that happens to need more time than expected.
>
> In the meantime, if you use mirror.hydra.gnu.org, you’ll still get
> substitutes, though not the latest one.
>
> If you use berlin.guixsd.org, everything is fine; if you don’t, now is
> the time to add it to your substitute URLs!  See
> <https://gnu.org/software/guix/manual/en/html_node/Substitutes.html>.

For the record, the maintenance of hydra.gnu.org is still on-going.
From what the FSF sysadmin told us, it could last until Tuesday,
Nov. 6th.

I strongly recommend switching to berlin.guixsd.org as your primary
source of substitutes.

Apologies for the inconvenience!

Ludo’.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]

Re: hydra.gnu.org off-line for maintenance

[Pjotr Prins]

On Thu, Nov 01, 2018 at 04:07:56PM +0100, Ludovic Courtès wrote:
> For the record, the maintenance of hydra.gnu.org is still on-going.
> From what the FSF sysadmin told us, it could last until Tuesday,
> Nov. 6th.
> 
> I strongly recommend switching to berlin.guixsd.org as your primary
> source of substitutes.

Can't we build a standard fallback into the default install?

Pj.

Re: hydra.gnu.org off-line for maintenance

[Giovanni Biscuolo]

[-- Attachment #1: Type: text/plain, Size: 4243 bytes --]

Ciao,

I'm having troubles with substitutes in my test installation

ludo@gnu.org (Ludovic Courtès) writes:

[...]

> I strongly recommend switching to berlin.guixsd.org as your primary
> source of substitutes.

I was able to start a VM (via libvirt/KVM) booting the latest iso
install image

I need a way to download a git repo where I store a simple script i use
to automate the "partitioning" [1] process and a custom config.scm
including a standard set of (base) packages, users and related ssh keys

I authorized berlin.guixsd.org using the key I found in the store:

  guix archive --authorize < /gnu/store/cw55zvxzi3d9cjmhfvxsryz31jxb1y6k-guix-0.15.0-1.4876bc8/share/guix/berlin.guixsd.org.pub

then I tried to install git via

  guix package -i git --substitute-urls="https://berlin.guixsd.org https://mirror.hydra.gnu.org"

but got the following errors:

...............

     root@gnu ~# guix package -i git --substitute-urls="https://berlin.guixsd.org https://mirror.hydra.gnu.org"
   guix package: warning: Consider running 'guix pull' followed by
   'guix package -u' to get up-to-date packages and security updates.
   
   The following package will be installed:
      git  2.18.0  /gnu/store/w9qwlwpfmhkyj6rqk3rvkk1a89vmymqf-git-2.18.0
   
   substitute: updating substitutes from 'https://berlin.guixsd.org'... 100.0%
   substitute: guix substitute: warning: while fetching 'https://mirror.hydra.gnu.org/nix-cache-info': 504 ("Gateway Time-out")
   substitute: guix substitute: warning: ignoring substitute server at '"https://mirror.hydra.gnu.org"'
   The following derivations will be built:
      /gnu/store/zjh794hi22frbmxmjcgn0q7iibgpdfk6-profile.drv
      /gnu/store/rydjini7v7k3k5gb6dsnkv21cdg3v5a7-ca-certificate-bundle.drv
      /gnu/store/k5rp1y9iw8gwyz013g8wzhlpv12fwig4-info-dir.drv
      /gnu/store/735c19sp407c11bpcpszj4nq5pia2l96-fonts-dir.drv
      /gnu/store/8jdivkklxp5l4zkrrgrxm09rh4ibkld4-manual-database.drv
   32.9 MB will be downloaded:
      /gnu/store/w9qwlwpfmhkyj6rqk3rvkk1a89vmymqf-git-2.18.0
      /gnu/store/47x07izc2v1gpkpai1jkym7m13mxhqir-perl-cgi-4.38
      /gnu/store/70825hjil6070g7cs3mmdnfwmhxgga36-expat-2.2.5
      /gnu/store/7vr3ngwyxs5a50xfqaklp0ds24bcrwqm-curl-7.60.0
      /gnu/store/qqmra1pkcijn2psad965r5fi2m05wxdj-perl-html-parser-3.72
      /gnu/store/w3jgj8466q0ji27h3848yhjm0vm5aa9b-python2-2.7.14
   substitute: guix substitute: warning: while fetching 'https://mirror.hydra.gnu.org/nix-cache-info': 504 ("Gateway Time-out")
   substitute: guix substitute: warning: ignoring substitute server at '"https://mirror.hydra.gnu.org"'
   Downloading https://berlin.guixsd.org/nar/gzip/47x07izc2v1gpkpai1jkym7m13mxhqir-perl-cgi-4.38...
    perl-cgi-4.38  162KiB                                                                                                                                 2.1MiB/s 00:00 [##################] 100.0%
   
   Downloading https://berlin.guixsd.org/nar/gzip/70825hjil6070g7cs3mmdnfwmhxgga36-expat-2.2.5...
   Backtrace:
              3 (apply-smob/1 #<catch-closure 17a9520>)
   In ice-9/boot-9.scm:
       705:2  2 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
   In ice-9/eval.scm:
       619:8  1 (_ #(#(#<directory (guile-user) 18d2140>)))
   In guix/ui.scm:
     1578:12  0 (run-guix-command _ . _)
   
   guix/ui.scm:1578:12: In procedure run-guix-command:
   Bad Read-Header-Line header: #<eof>
   
   killing process 749
   guix package: error: build failed: some substitutes for the outputs of derivation `/gnu/store/wsxi6f3k180i0kpwrkams8zflvg4b7cr-git-2.18.0.drv' failed (usually happens due to networking issues); try `--fallback' to build derivation from source

.......................


I'm still not able to understand the backtrace, but trying to install
"screen" succeeded, while trying to install "wget" failed in a similar
way


is berlin.guixsd.org missing the "git" and "wget" packages or am I doing
something wrong?

thank you for your support

ciao
Giovanni


[1] https://www.gnu.org/software/guix/manual/en/html_node/Preparing-for-Installation.html#Disk-Partitioning

-- 
Giovanni Biscuolo

Xelera IT Infrastructures

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]

Re: hydra.gnu.org off-line for maintenance

[swedebugia]

Hi

On 2018-11-01 17:37, Giovanni Biscuolo wrote:
> Bad Read-Header-Line header: #<eof>

The server was out of space and stopped responding.

Does it work now?

-- 
Cheers
Swedebugia

Re: hydra.gnu.org off-line for maintenance

[Ludovic Courtès]

[-- Attachment #1: Type: text/plain, Size: 573 bytes --]

Hello,

I’m happy to announce that hydra.gnu.org is now back up, thanks to
Mark H Weaver who made sure all the services were up and running
yesterday.

For the record, the outage was initiated by the FSF sysadmins to change
disks in the machine’s disk array (hydra.gnu.org is hosted by the FSF).
They initially thought this would take much less time.

Apologies for the inconvenience!

From there on we must see on our side what we can do to improve the
resilience of our main substitute servers, should the head node of the
build farm fail.

Ludo’.

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]

Re: hydra.gnu.org off-line for maintenance

[Giovanni Biscuolo]

[-- Attachment #1: Type: text/plain, Size: 661 bytes --]

Hi,

sorry but I managed to retry installation just yesterday evening

swedebugia <swedebugia@riseup.net> writes:

> Hi
>
> On 2018-11-01 17:37, Giovanni Biscuolo wrote:
>> Bad Read-Header-Line header: #<eof>
>
> The server was out of space and stopped responding.
>
> Does it work now?

yes! (I had non doubt)

I used the default substitute server (hydra.gnu.org), on my next test
installation I'll try berlin.guixsd.org too

I really **love** the totally CLI installation:

  guix system init /mnt/etc/config.scm /mnt

thanks GuixSD Team for this great OS! :-)

ciao
Giovanni

-- 
Giovanni Biscuolo

Xelera IT Infrastructures

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 832 bytes --]