Paste number 325893: rottlog-etc-service

Paste number 325893: rottlog-etc-service
Pasted by: janneke
When:6 years, 1 week ago
Share:Tweet this! | http://paste.lisp.org/+6ZGL
Channel:None
Paste contents:
Raw Source | XML | Display As
ERROR: In procedure scm_lreadr: /gnu/store/vivk7qgifdrw04f2p7hj53szryxkbvav-rottlog-builder:1:195: Unknown # object: #\<

contents of *-rottlog-builder:
(begin (use-modules (ice-9 match)) (mkdir ((@ (guile) getenv) "out")) (for-each (match-lambda ((name file) (symlink file (string-append ((@ (guile) getenv) "out") "/" name)))) (quote (("rc" . #<<file-append> base: #<package rottlog@0.72.2 gnu/packages/admin.scm:715 41eab40> suffix: ("/etc/rc")>) ("weekly" . #<<file-append> base: #<package rottlog@0.72.2 gnu/packages/admin.scm:715 41eab40> suffix: ("/etc/weekly")>) ("daily" . #<<file-append> base: #<package rottlog@0.72.2 gnu/packages/admin.scm:715 41eab40> suffix: ("/etc/weekly")>)))))


code:
(define (files-alist->directory files)
  (define builder
    #~(begin
        (use-modules (ice-9 match))
        (mkdir #$output)

        (for-each (match-lambda
                    ((name file)
                     (symlink file (string-append #$output "/" name))))
         '#$files)))

  (computed-file "rottlog" builder))

(define (rottlog-etc config)
  `(("rottlog" ,(files-alist->directory
                 (cons `("rc" . ,(rottlog-rc-file config))
                       (rottlog-periods config))))))

This paste has no annotations.

Colorize as:
Show Line Numbers

Lisppaste pastes can be made by anyone at any time. Imagine a fearsomely comprehensive disclaimer of liability. Now fear, comprehensively.