bug#32522: qtwebkit-5.212.0-alpha2.drv

2018-08-24 Thread Andy Patterson
Hi,

On Fri, 24 Aug 2018 21:57:52 +0200
Gnu Röoty  wrote:

> Hi ! From 2 weeks I want install the service CUPS with drivers HP, but
> qtwebkit failed for build.
> 
> [...]
> 
> My service CUPS to config.scm :
> 
> (services (cons* (gnome-desktop-service)
> 
>;;Service Cups avec pilotes imprimante hp
> (service cups-service-type
> (cups-configuration
> (web-interface? #t)
> (extensions
> (list cups-filters hplip

You might want to try hplip-minimal here, since it's the one that
doesn't depend on qtwebkit.  I don't have any answers for why it's
failing to build for you though.

>(xfce-desktop-service)
>%desktop-services))

Hoping that helps,

--
Andy






bug#32524: guix system build bare-bones.scm fails with ahci shpchp

2018-08-24 Thread Eric Brown
I am attempting to guix system reconfigure a GuixSD 0.15 (updated)
Macintosh laptop where reconfigure recommends and requires:

  (initrd-modules (append (list "ahci" "shpchp")
  %base-initrd-modules))

However, the config file that I used at guix system init works
originally with this additional bit of lisp, but a reconfigure gives the
error below.

In an attempt to narrow down, inserting this into bare-bones.scm gives a
similar error. Thanks to samplet for help and confirmation on #guixsd.

>8- bare-bones.scm
;; This is an operating system configuration template
;; for a "bare bones" setup, with no X11 display server.

(use-modules (gnu) (gnu packages linux))
(use-service-modules networking ssh)
(use-package-modules screen ssh)

(operating-system
  (host-name "komputilo")
  (timezone "Europe/Berlin")
  (locale "en_US.utf8")
 
  (initrd-modules (append (list "ahci" "shpchp")
  %base-initrd-modules))

  ;; Boot in "legacy" BIOS mode, assuming /dev/sdX is the
  ;; target hard disk, and "my-root" is the label of the target
  ;; root file system.
  (bootloader (bootloader-configuration
(bootloader grub-bootloader)
(target "/dev/sdX")))
  (file-systems (cons (file-system
(device (file-system-label "my-root"))
(mount-point "/")
(type "ext4"))
  %base-file-systems))

  ;; This is where user accounts are specified.  The "root"
  ;; account is implicit, and is initially created with the
  ;; empty password.
  (users (cons (user-account
(name "alice")
(comment "Bob's sister")
(group "users")

;; Adding the account to the "wheel" group
;; makes it a sudoer.  Adding it to "audio"
;; and "video" allows the user to play sound
;; and access the webcam.
(supplementary-groups '("wheel"
"audio" "video"))
(home-directory "/home/alice"))
   %base-user-accounts))

  ;; Globally-installed packages.
  (packages (cons* screen openssh %base-packages))

  ;; Add services to the baseline: a DHCP client and
  ;; an SSH server.
  (services (cons* (dhcp-client-service)
   (service openssh-service-type
(openssh-configuration
  (port-number )))
   %base-services)))

>8- output


An example error:
>8- output
   /gnu/store/11hrmawlda4gr1xajwyxlh8miqvp49k0-activate.drv
   /gnu/store/8mm7lb5qal9qsfknl3f91g9sgqy8cxxm-boot.drv
   /gnu/store/vx2311zqjk1vjhpqqi9cmh1zw96mjiqk-etc.drv
   /gnu/store/hrrm5wls9ajpayi8wjf5w4qg7b4x45a8-raw-initrd.drv
   /gnu/store/yj9dw5f8lnbqfhjl811yvdx0h06pf0gw-grub-image.png.drv
[ 1/ 2] Compiling './gnu/build/bootloader.scm'...
[ 2/ 2] Compiling './guix/build/utils.scm'...
grafting '/gnu/store/lwgzzwgszv1x6g0bwzn7zkd6cqqp1l31-audit-2.8.4' -> 
'/gnu/store/kw94vfhdxbg66fd3yhf74fqq50jb3gng-audit-2.8.4'...
grafting '/gnu/store/gpv9sy0l1igpanpsn8mf6i96ahmc9pj8-gnupg-2.2.9' -> 
'/gnu/store/kx3lvw5ni7clg710wdrkvyl0qjgyl8gg-gnupg-2.2.9'...
grafting 
'/gnu/store/04dr9902qdijkqm41f7vnsggw9cad9vc-gobject-introspection-1.56.0' -> 
'/gnu/store/d0gs9bx52gsrcvfkrasgyjngrji2dgml-gobject-introspection-1.56.0'...
grafting '/gnu/store/1hlrfb4896hllzq699aqbc21pjczmvgd-libevent-2.0.22' -> 
'/gnu/store/i4nn1r614n6xkn5vn0qjaq6i4vymaz3i-libevent-2.0.22'...
grafting '/gnu/store/4jxh7rd5p1667hnagzrxw4q4a9mmvbwm-libevent-2.1.8' -> 
'/gnu/store/cd18iq8q54gg47pm75n3482mmxc8mjrn-libevent-2.1.8'...
grafting '/gnu/store/wdfnkpb396xq0arss8gzwf1f973zif0n-libosinfo-1.0.0' -> 
'/gnu/store/1rsn2kb48n7gz6dpabjapldc1a28945s-libosinfo-1.0.0'...
Backtrace:
   8 (primitive-load "/gnu/store/5q7mfn597l36jnylycfk1yfifri?")
In ice-9/eval.scm:
619:8  7 (_ #f)
   626:19  6 (_ #)
159:9  5 (_ _)
In gnu/build/linux-modules.scm:
   184:47  4 (recursive-module-dependencies _ #:lookup-module _)
98:14  3 (module-dependencies _)
85:18  2 (modinfo-section-contents _)
In ice-9/ports.scm:
   439:11  1 (call-with-input-file #f # ?)
In unknown file:
   0 (open-file #f "r" #:encoding #f #:guess-encoding #f)

ERROR: In procedure open-file:
Wrong type (expecting string): #f
builder for `/gnu/store/c0vahbyxh6qkxdrgjr2sjcr35hwc4np8-linux-modules.drv' 
failed with exit code 1
cannot build derivation `/gnu/store/rwbi4h4mdi8h7h15szxw1jc31vv9kg6p-init.drv': 
1 dependencies couldn't be built
cannot build derivation 
`/gnu/store/hrrm5wls9ajpayi8wjf5w4qg7b4x45a8-raw-initrd.drv': 1 dependencies 
couldn't be built
cannot build derivation 
`/gnu/store/4sryh7lwx7jjvlad2ivg29wv32gbida1-grub.cfg.drv': 1 dependencies 
couldn't be built
guix system: error: build failed: build of 
`/gnu/store/4sryh7lwx7jjvl

bug#32522: qtwebkit-5.212.0-alpha2.drv

2018-08-24 Thread Gnu Röoty
Hi ! From 2 weeks I want install the service CUPS with drivers HP, but
qtwebkit failed for build.

Message Error.

builder for
`/gnu/store/ch0bm49p7dmvdipcjbmndhc7gyyad8k8-qtwebkit-5.212.0-alpha2.drv'
failed with exit code 1
cannot build derivation
`/gnu/store/c42v51qrgj9nz949axqh61qinkil37fq-python-pyqt-5.11.2.drv': 1
dependencies couldn't be built
cannot build derivation
`/gnu/store/byidz2khaynrjb70xfivcdx7xrhzh9jn-hplip-3.18.6.drv': 1
dependencies couldn't be built
guix system: error: build failed: build of
`/gnu/store/byidz2khaynrjb70xfivcdx7xrhzh9jn-hplip-3.18.6.drv' failed


My herd status :
Démarrés :
 + avahi-daemon
 + console-font-tty1
 + console-font-tty2
 + console-font-tty3
 + console-font-tty4
 + console-font-tty5
 + console-font-tty6
 + dbus-system
 + elogind
 + file-system-/dev/pts
 + file-system-/dev/shm
 + file-system-/gnu/store
 + file-system-/run/systemd
 + file-system-/run/user
 + file-system-/sys/fs/cgroup
 + file-system-/sys/fs/cgroup/blkio
 + file-system-/sys/fs/cgroup/cpu
 + file-system-/sys/fs/cgroup/cpuacct
 + file-system-/sys/fs/cgroup/cpuset
 + file-system-/sys/fs/cgroup/devices
 + file-system-/sys/fs/cgroup/elogind
 + file-system-/sys/fs/cgroup/freezer
 + file-system-/sys/fs/cgroup/memory
 + file-system-/sys/fs/cgroup/perf_event
 + file-systems
 + guix-daemon
 + host-name
 + loopback
 + networking
 + nscd
 + ntpd
 + root
 + root-file-system
 + syslogd
 + term-tty1
 + term-tty2
 + term-tty3
 + term-tty4
 + term-tty5
 + term-tty6
 + udev
 + upower-daemon
 + urandom-seed
 + user-file-systems
 + user-processes
 + virtual-terminal
 + wpa-supplicant
 + xorg-server

My service CUPS to config.scm :

(services (cons* (gnome-desktop-service)

   ;;Service Cups avec pilotes imprimante hp
(service cups-service-type
(cups-configuration
(web-interface? #t)
(extensions
(list cups-filters hplip
   (xfce-desktop-service)
   %desktop-services))


bug#32514: mailutils Guile bindings are broken

2018-08-24 Thread Ricardo Wurmus


Hi!

>> Are the bindings not usable with Guile 2.2?
>
> No, but I have good news: those in Mailutils master are usable.  Here’s
> a recipe: […]
> Below is a simple example to get started.  The Mailutils API is not this
> complicated but it took me a while to figure it out, so you might find
> that module helpful.

Thank you!

I was hoping to use some procedures from Mailutils to simplify parsing
Debbugs emails, so that I don’t have to implement, say, a parser for
Quoted Printable string encodings.  I’ll play with this for a while.

I’m closing this bug now, because I guess this will all be fine with the
next release.

--
Ricardo






bug#19973: Grafts break debug outputs

2018-08-24 Thread Ludovic Courtès
Hello,

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

> The patches below address this by adding code to update the CRC in the
> ‘.gnu_debuglink’ section upon grafting.  It uses a simple hook
> mechanism, a simplified version of what Timothy proposed.
>
> The ‘.gnu_debuglink’ hook does nothing for packages that lack a “debug”
> output.  For packages that have a “debug” output, only ELF files from
> bin/, lib/, etc. are considered.  Overall the run-time cost should be
> low.

I went ahead and pushed these two patches as
93c333895a4e2dc9baabec8ade60d9d2ac0a91e2 and
e4297aa8b95cefa32e2595ce58886fc03b0561f7.

I modified tests/debug-link.scm compared to what I posted such that it
would skip tests that require %bootstrap-gcc when networking is lacking.

Thanks for your feedback,
Ludo’.





bug#32511: mariadb 10.1.35 fails to build on x86_64

2018-08-24 Thread Ludovic Courtès
Hi Mark,

Mark H Weaver  skribis:

> l...@gnu.org (Ludovic Courtès) writes:
>
>> On berlin, mariadb 10.1.35 has one test failure (this is
>> /gnu/store/a5jm2hyalyblgjnxx5x3ly4fwvfivq5m-mariadb-10.1.35.drv, as
>> found in Guix commit b0cb92b2d43a2c4d5fa9b3f8c04c5732c60061e7, for
>> instance):
>
> FWIW, after staging was merged, I also ran into a problem building
> mariadb on my x86_64 GuixSD system, where I build everything locally.
> It failed several times in a row, always with just 1 test failure.  The
> problem turned out to be that I didn't have enough free disk space.
> Buried in the mountains of output, which I found quite difficult to
> navigate (searching for "[ fail ]" helped), I eventually found a message
> about unsufficient space.  5 GB of free space wasn't enough, but ~12 GB
> was.

Indeed, I’ve built it on berlin itself with --no-build-hook (that way, I
was sure there was enough space available), and it passed.

The lesson here is that we might not be GC’ing enough on the build
machines behind berlin.  Any idea, Ricardo?

Also, I wonder if we should report it upstream so that they arrange to
skip the test when insufficient space is available.  Unfortunately we
don’t have many clues in the build log to provide them.  :-/

Thoughts?

Ludo’.





bug#32514: mailutils Guile bindings are broken

2018-08-24 Thread Ludovic Courtès
Hi!

Ricardo Wurmus  skribis:

> Are the bindings not usable with Guile 2.2?

No, but I have good news: those in Mailutils master are usable.  Here’s
a recipe:

--8<---cut here---start->8---
(define-public mailutils-next
  ;; This version of Mailutils supports Guile 2.2, unlike version <= 3.4.
  (let ((commit "62666075e3c7276d308dffef42c7c50dc526925b")
(revision "0"))
(package
  (inherit mailutils)
  (version (string-append (package-version mailutils)
  "-" revision "." (string-take commit 7)))
  (source (origin
(method git-fetch)
(uri (git-reference
  (url "https://git.savannah.gnu.org/git/mailutils.git";)
  (commit commit)
  (recursive? #t)))   ;for Gnulib & co.
(sha256
 (base32
  "1m4cbjn02hklp6li14ajfzfg29ibbk38n0c3g8vyfx71iy0pxpnb"))
(file-name (string-append "mailutils-" version "-checkout"
  (outputs '("out" "debug"))
  (inputs
   `(("guile" ,guile-2.2)
 ("gsasl" ,gsasl) ;for SMTP authentication
 ,@(alist-delete "guile" (package-inputs mailutils
  (native-inputs
   `(("autoconf" ,autoconf-wrapper)
 ("automake" ,automake)
 ("libtool" ,libtool)
 ("gettext" ,gnu-gettext)
 ,@(package-native-inputs mailutils)))
  (arguments
   (substitute-keyword-arguments (package-arguments mailutils)
 ((#:modules modules %gnu-build-system-modules)
  `((srfi srfi-1) ,@modules))
 ((#:configure-flags flags ''())
  `(cons* "--disable-radius"

  ;; Add "/2.2" to the installation directory.
  (string-append "--with-guile-site-dir="
 (assoc-ref %outputs "out")
 "/share/guile/site/2.2")
  ,flags))
 ((#:phases phases)
  `(modify-phases ,phases
 (replace 'bootstrap
   (lambda* (#:key inputs #:allow-other-keys)
 (for-each patch-shebang
   '("bootstrap" "gnulib/gnulib-tool"))
 (substitute* "bootstrap.conf"
   (("git submodule" all)
(string-append "#" all)))
 (for-each make-file-writable (find-files "gnulib"))
 (substitute* "configure.ac"
   (("AM_GNU_RADIUS") ""))
 (invoke "./bootstrap" "--no-git" "--skip-po"
 (string-append "--gnulib-srcdir=gnulib"))
 #t))
 (delete 'prepare-test-suite)))
 ((#:parallel-build? _ #f);due to parser.y
  #f)
 ((#:tests? _ #f) ;XXX
  #f))
--8<---cut here---end--->8---

Below is a simple example to get started.  The Mailutils API is not this
complicated but it took me a while to figure it out, so you might find
that module helpful.

Happy emailing!  :-)

Ludo’.

;;; This module is licensed under the same terms, those of the GNU GPL
;;; version 3 or (at your option) any later version.
;;;
;;; Copyright © 2018 Ludovic Courtès 

(define-module (email)
  #:use-module ((guix build utils) #:select (dump-port))
  #:use-module (guix base64)
  #:use-module (rnrs io ports)
  #:use-module (rnrs bytevectors)
  #:use-module (mailutils mailutils)
  #:export (compose-message
send-message))

;; This variable is looked up by 'mu-message-send', uh!
(define-public mu-debug 0)

(define* (insert-newlines str #:optional (line-length 76))
  "Insert newlines in STR every LINE-LENGTH characters."
  (let loop ((result '())
 (str str))
(if (string-null? str)
(string-concatenate-reverse result)
(let* ((length (min (string-length str) line-length))
   (prefix (string-take str length))
   (suffix (string-drop str length)))
  (loop (cons (string-append prefix "\n") result)
suffix)

(define* (compose-message from to
  #:key text subject file)
  "Compose a message, and return a message object."
  (let* ((mime(mu-mime-create))
 (message (mu-message-create))
 (body(mu-message-get-port message "w")))
(mu-message-set-header message
   "Content-Type"
   "text/plain; charset=utf-8")

(put-bytevector body (string->utf8 text))
(close-port body)
(mu-mime-add-part mime message)

(when file
  (let* ((attach (mu-message-create))
 (port   (mu-message-get-port attach "w")))
(display (insert-newlines
  (base64-encode (call-with-input-file file
   get-bytevector-all)))
 port)
(close-port port)
(

bug#32514: mailutils Guile bindings are broken

2018-08-24 Thread Ludovic Courtès
Hi!

Ricardo Wurmus  skribis:

> Are the bindings not usable with Guile 2.2?

No, but I have good news: those in Mailutils master are usable.  Here’s
a recipe:

--8<---cut here---start->8---
(define-public mailutils-next
  ;; This version of Mailutils supports Guile 2.2, unlike version <= 3.4.
  (let ((commit "62666075e3c7276d308dffef42c7c50dc526925b")
(revision "0"))
(package
  (inherit mailutils)
  (version (string-append (package-version mailutils)
  "-" revision "." (string-take commit 7)))
  (source (origin
(method git-fetch)
(uri (git-reference
  (url "https://git.savannah.gnu.org/git/mailutils.git";)
  (commit commit)
  (recursive? #t)))   ;for Gnulib & co.
(sha256
 (base32
  "1m4cbjn02hklp6li14ajfzfg29ibbk38n0c3g8vyfx71iy0pxpnb"))
(file-name (string-append "mailutils-" version "-checkout"
  (outputs '("out" "debug"))
  (inputs
   `(("guile" ,guile-2.2)
 ("gsasl" ,gsasl) ;for SMTP authentication
 ,@(alist-delete "guile" (package-inputs mailutils
  (native-inputs
   `(("autoconf" ,autoconf-wrapper)
 ("automake" ,automake)
 ("libtool" ,libtool)
 ("gettext" ,gnu-gettext)
 ,@(package-native-inputs mailutils)))
  (arguments
   (substitute-keyword-arguments (package-arguments mailutils)
 ((#:modules modules %gnu-build-system-modules)
  `((srfi srfi-1) ,@modules))
 ((#:configure-flags flags ''())
  `(cons* "--disable-radius"

  ;; Add "/2.2" to the installation directory.
  (string-append "--with-guile-site-dir="
 (assoc-ref %outputs "out")
 "/share/guile/site/2.2")
  ,flags))
 ((#:phases phases)
  `(modify-phases ,phases
 (replace 'bootstrap
   (lambda* (#:key inputs #:allow-other-keys)
 (for-each patch-shebang
   '("bootstrap" "gnulib/gnulib-tool"))
 (substitute* "bootstrap.conf"
   (("git submodule" all)
(string-append "#" all)))
 (for-each make-file-writable (find-files "gnulib"))
 (substitute* "configure.ac"
   (("AM_GNU_RADIUS") ""))
 (invoke "./bootstrap" "--no-git" "--skip-po"
 (string-append "--gnulib-srcdir=gnulib"))
 #t))
 (delete 'prepare-test-suite)))
 ((#:parallel-build? _ #f);due to parser.y
  #f)
 ((#:tests? _ #f) ;XXX
  #f))
--8<---cut here---end--->8---

Below is a simple example to get started.  The Mailutils API is not this
complicated but it took me a while to figure it out, so you might find
that module helpful.

Happy emailing!  :-)

Ludo’.

;;; This module is licensed under the same terms, those of the GNU GPL
;;; version 3 or (at your option) any later version.
;;;
;;; Copyright © 2018 Ludovic Courtès 

(define-module (email)
  #:use-module ((guix build utils) #:select (dump-port))
  #:use-module (guix base64)
  #:use-module (rnrs io ports)
  #:use-module (rnrs bytevectors)
  #:use-module (mailutils mailutils)
  #:export (compose-message
send-message))

;; This variable is looked up by 'mu-message-send', uh!
(define-public mu-debug 0)

(define* (insert-newlines str #:optional (line-length 76))
  "Insert newlines in STR every LINE-LENGTH characters."
  (let loop ((result '())
 (str str))
(if (string-null? str)
(string-concatenate-reverse result)
(let* ((length (min (string-length str) line-length))
   (prefix (string-take str length))
   (suffix (string-drop str length)))
  (loop (cons (string-append prefix "\n") result)
suffix)

(define* (compose-message from to
  #:key text subject file)
  "Compose a message, and return a message object."
  (let* ((mime(mu-mime-create))
 (message (mu-message-create))
 (body(mu-message-get-port message "w")))
(mu-message-set-header message
   "Content-Type"
   "text/plain; charset=utf-8")

(put-bytevector body (string->utf8 text))
(close-port body)
(mu-mime-add-part mime message)

(when file
  (let* ((attach (mu-message-create))
 (port   (mu-message-get-port attach "w")))
(display (insert-newlines
  (base64-encode (call-with-input-file file
   get-bytevector-all)))
 port)
(close-port port)
(