Re: Problem with Sheperd after `guix home reconfigure`

2023-08-22 Thread Hilton Chain
Hi Andreas,

On Tue, 22 Aug 2023 21:23:56 +0800,
Andreas Enge wrote:
>
> Hello,
>
> Am Tue, Aug 22, 2023 at 08:40:57PM +0800 schrieb Hilton Chain:
> > This is caused by a missing module in mcron's service definition, and
> > now it should be fixed in 552d0703776c532f25498d5cb852c3c497cb9252.
> > Please run `guix pull', then reconfigure the home environment.
>
> Now someone on IRC reports the converse problem:
>
> Did a recent commit broke guix ? I juste did guix pull but can 
> reconfigure the system anymore. Seems sheperd-mcron fails to build.
> *cannot
> Altadil: This sounds like a bug just was just repaired in the most 
> recent commit. Can you try to pull once more?
> andreas-e: still no luck. I am on 552d070, acording to guix describe
> Altadil: Sorry to hear this, then I do not know.
> andreas-e: that’s fine, thanks for your help
> Altadil: maybe it's that very commit that broke it, you could try 
> pulling from a commit earlier
> jpoiret: going back to one commit before worked, thanks !
>
> Could you maybe have another look?

Thank you for notifying me!!  The issue should be addressed in
0c4fb8f43f8aba2dcabe1bc97a8f6d8d41057704 now.



Re: Problem with Sheperd after `guix home reconfigure`

2023-08-22 Thread Andreas Enge
Hello,

Am Tue, Aug 22, 2023 at 08:40:57PM +0800 schrieb Hilton Chain:
> This is caused by a missing module in mcron's service definition, and
> now it should be fixed in 552d0703776c532f25498d5cb852c3c497cb9252.
> Please run `guix pull', then reconfigure the home environment.

Now someone on IRC reports the converse problem:

Did a recent commit broke guix ? I juste did guix pull but can 
reconfigure the system anymore. Seems sheperd-mcron fails to build.
*cannot
Altadil: This sounds like a bug just was just repaired in the most 
recent commit. Can you try to pull once more?
andreas-e: still no luck. I am on 552d070, acording to guix describe
Altadil: Sorry to hear this, then I do not know.
andreas-e: that’s fine, thanks for your help
Altadil: maybe it's that very commit that broke it, you could try 
pulling from a commit earlier
jpoiret: going back to one commit before worked, thanks !

Could you maybe have another look?

Andreas




Re: Problem with Sheperd after `guix home reconfigure`

2023-08-22 Thread Hilton Chain
Hi Tanguy,

On Tue, 22 Aug 2023 18:33:05 +0800,
Tanguy LE CARROUR wrote:
>
> Hi Guix,
>
> This morning I `guix pull` and `guix system reconfigure` my system
> and everything seemed to be OK. But, when I `guix home reconfigure`,
> I got an error message:
>
> ```
> Loading /gnu/store/x103955zkwzkbmb9hji0dxc5fk7l8c3q-shepherd.conf.
> herd: error: exception caught while executing 'load' on service 'root':
> Unbound variable: %user-log-dir
> ```

Thank you for reporting the issue!

This is caused by a missing module in mcron's service definition, and
now it should be fixed in 552d0703776c532f25498d5cb852c3c497cb9252.

Please run `guix pull', then reconfigure the home environment.

Thanks



Problem with Sheperd after `guix home reconfigure`

2023-08-22 Thread Tanguy LE CARROUR
Hi Guix,

This morning I `guix pull` and `guix system reconfigure` my system
and everything seemed to be OK. But, when I `guix home reconfigure`,
I got an error message:

```
Loading /gnu/store/x103955zkwzkbmb9hji0dxc5fk7l8c3q-shepherd.conf.
herd: error: exception caught while executing 'load' on service 'root':
Unbound variable: %user-log-dir
```

The config contains the following:

```
$ cat /gnu/store/x103955zkwzkbmb9hji0dxc5fk7l8c3q-shepherd.conf
(begin (use-modules (srfi srfi-34) (system repl error-handling)) (apply 
register-services (map (lambda (file) (load file)) (quote 
("/gnu/store/xz6amxpc572hirdysivd4gmvivfibzkh-shepherd-transmission.scm" 
"/gnu/store/wwkmsgbi8jc0nysgflgg10sqmqmxs8dm-shepherd-tor.scm" 
"/gnu/store/kzlmpjlbzz7fmvb32f96qd7wnw0rx4nn-shepherd-mpd.scm" 
"/gnu/store/7qa23wxmmqf50iybpd86qyg64977mdzm-shepherd-mcron.scm" (action 
(quote root) (quote daemonize)) (format #t "Starting services...~%") (let 
((services-to-start (quote (mpd mcron (if (defined? (quote 
start-in-the-background)) (start-in-the-background services-to-start) (for-each 
start services-to-start)) (redirect-port (open-input-file "/dev/null") 
(current-input-port
```

The only mention to `%user-log-dir` seems to be in `...-shepherd-mcron.scm`:

```
$ cat /gnu/store/7qa23wxmmqf50iybpd86qyg64977mdzm-shepherd-mcron.scm
(eval-when (expand load eval) (let ((extensions (quote ())) (prepend (lambda 
(items lst) (let loop ((items items) (lst lst)) (if (null? items) lst (loop 
(cdr items) (cons (car items) (delete (car items) lst (set! %load-path 
(prepend (cons "/gnu/store/5bgqil67vfaymb4q3pxp2xb5lqvki81x-module-import" (map 
(lambda (extension) (string-append extension "/share/guile/site/" 
(effective-version))) extensions)) %load-path)) (set! %load-compiled-path 
(prepend (cons 
"/gnu/store/gknigc86qbb433gp83jg7nd1pzksswir-module-import-compiled" (map 
(lambda (extension) (string-append extension "/lib/guile/" (effective-version) 
"/site-ccache")) extensions)) %load-compiled-path(begin (use-modules (srfi 
srfi-1) (srfi srfi-26) (ice-9 popen) (ice-9 rdelim) (ice-9 match) (shepherd 
service) (oop goops) ((guix build utils) #:hide (delete)) (guix build 
syscalls)) (make  #:docstring (quote "[No documentation.]") #:provides 
(quote (mcron)) #:requires (quote ()) #:one-shot? (quote #f) #:respawn? (quote 
#t) #:start (make-forkexec-constructor (list 
"/gnu/store/mxjkd7644pzs00sq8x47s9k9kcmlr5ib-mcron-1.2.1-0.5fd0ccd/bin/mcron" 
"--log" "--log-format" "~1@*~a ~a: ~a~%" 
"/gnu/store/wynnrkgj67rc7s20mv122vlkzvkpm3gh-mcron-job" 
"/gnu/store/cgbn0dgfwx09hfpqjs5raz8gw99m0lbq-mcron-job") 
#:environment-variables (cons* "GUILE_AUTO_COMPILE=0" 
"PATH=/run/current-system/profile/bin" (remove (cut string-prefix? "PATH=" <>) 
(environ))) #:log-file (string-append %user-log-dir "/mcron.log")) #:stop 
(make-kill-destructor) #:actions (make-actions (schedule "Display jobs that are 
going to be scheduled." (lambda* (_ #:optional (n "5")) (setenv 
"GUILE_AUTO_COMPILE" "0") (let ((pipe (open-pipe* OPEN_READ 
"/gnu/store/mxjkd7644pzs00sq8x47s9k9kcmlr5ib-mcron-1.2.1-0.5fd0ccd/bin/mcron" 
(string-append "--schedule=" n) 
"/gnu/store/wynnrkgj67rc7s20mv122vlkzvkpm3gh-mcron-job" 
"/gnu/store/cgbn0dgfwx09hfpqjs5raz8gw99m0lbq-mcron-job"))) (let loop () (match 
(read-line pipe (quote concat)) ((? eof-object?) (catch (quote system-error) 
(lambda () (zero? (close-pipe pipe))) (lambda args (or (= ECHILD 
(system-error-errno args)) (apply throw args) (line (display line) 
(loop))
```

Any idea what might be going wrong?!

Regards,

-- 
Tanguy