diff options
Diffstat (limited to 'src/guix/system.scm')
| -rw-r--r-- | src/guix/system.scm | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/src/guix/system.scm b/src/guix/system.scm index c27f602..3f767bf 100644 --- a/src/guix/system.scm +++ b/src/guix/system.scm @@ -23,20 +23,6 @@ -(define (cat name s) - (string-trim-right - (pkg:slurp - (string-append "src/versions/" name "/" s)))) - -(define (latest pkg) - (let* ((name (package-name pkg)) - (version (cat name "version")) - (trans-fn (options->transformation - `((with-commit . ,(pkg:fmt "~a=~a" name version)))))) - (trans-fn pkg))) - - - (define +working-dir+ ;; src/guix/system.scm + ../../../ = ./ (dirname (dirname (dirname (current-filename))))) @@ -60,6 +46,15 @@ +(define (latest pkg) + (let* ((name (package-name pkg)) + (version (file (pkg:fmt "src/versions/~a.txt" name))) + (trans-fn (options->transformation + `((with-commit . ,(pkg:fmt "~a=~a" name version)))))) + (trans-fn pkg))) + + + (define package-symbols '()) |