futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import: texlive: Remove leftover 'pk'.

Browse Source 
* guix/import/texlive.scm (files->directories): Remove leftover 'pk'
call.
This commit is contained in:
Ludovic Courtès 2021-11-17 15:41:05 +01:00
parent 21357224bc
commit 71b24abeb2
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
guix/import/texlive.scm
View File

@ -197,12 +197,11 @@
(loop all current #false)))))))))))) (loop all current #false))))))))))))
(define (files->directories files) (define (files->directories files)
(pk 'f->d (map (cut string-join <> "/" 'suffix)
(map (cut string-join <> "/" 'suffix) (delete-duplicates (map (lambda (file)
(delete-duplicates (map (lambda (file) (drop-right (string-split file #\/) 1))
(drop-right (string-split file #\/) 1)) files)
files) equal?)))
equal?))))
(define (tlpdb->package name) (define (tlpdb->package name)
(and-let* ((data (assoc-ref (tlpdb) name)) (and-let* ((data (assoc-ref (tlpdb) name))