diff options
Diffstat (limited to '.guix')
| -rw-r--r-- | .guix/modules/gn/packages/gn-auth.scm | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/.guix/modules/gn/packages/gn-auth.scm b/.guix/modules/gn/packages/gn-auth.scm index 0ee7405..cd07d76 100644 --- a/.guix/modules/gn/packages/gn-auth.scm +++ b/.guix/modules/gn/packages/gn-auth.scm @@ -54,22 +54,25 @@ (define (get-latest-version) "Get latest version tag from repository." - (let ((%repo #f) - (%tags (list)) - (%repo-head #f)) - (begin (libgit2-init!) - (set! %repo (repository-open %source-dir)) - (set! %repo-head (reference-target (repository-head %repo))) - (tag-foreach %repo - (lambda (tname tref) - (set! %tags (list (cons tname (tag-lookup %repo tref)))) - 0)) - (libgit2-shutdown!) - (if (zero? (length %tags)) - (string-append "v0.0.0-" (substring (oid->string %repo-head) 0 8)) - (process-version - %repo-head - (list-last (sort-list %tags (lambda (item) (error item))))))))) + (if (git-predicate %source-dir) + (let ((%repo #f) + (%tags (list)) + (%repo-head #f)) + (begin (libgit2-init!) + (set! %repo (repository-open %source-dir)) + (set! %repo-head (reference-target (repository-head %repo))) + (tag-foreach %repo + (lambda (tname tref) + (set! %tags (list (cons tname (tag-lookup %repo tref)))) + 0)) + (libgit2-shutdown!) + (if (zero? (length %tags)) + (string-append "v0.0.0-" (substring (oid->string %repo-head) 0 8)) + (process-version + %repo-head + (list-last (sort-list %tags (lambda (item) (error item)))))))) + ;; Figure out a way to get the version in the checkouts when building + "v0.0.0")) (define vcs-file? (or (git-predicate %source-dir) |