me
/
guix
Archived
1
0
Fork 0
Code

import: texlive: Remove leftover 'pk'. 

* guix/import/texlive.scm (files->directories): Remove leftover 'pk'
call.
master
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))))))))))))
(define (files->directories files)
(pk 'f->d
(map (cut string-join <> "/" 'suffix)
(delete-duplicates (map (lambda (file)
(drop-right (string-split file #\/) 1))
files)
equal?))))
(map (cut string-join <> "/" 'suffix)
(delete-duplicates (map (lambda (file)
(drop-right (string-split file #\/) 1))
files)
equal?)))
(define (tlpdb->package name)
(and-let* ((data (assoc-ref (tlpdb) name))