TakeV/guix
1
0
Fork 0
Code Issues Pull requests 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 @@ (define tlpdb
(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))