diff options
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 50c2445..b2f6f6c 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -280,10 +280,15 @@ (if (pair? compression) (car compression) compression)) + ;; TODO This logic should sit elsewhere (nar-destination (string-append publish-directory "/" - "nar/" (symbol->string target-compression) "/" + "nar/" + (if (eq? compression 'none) + "" + (string-append + (symbol->string target-compression) "/")) (basename output-filename))) (temporary-destination (string-append nar-destination ".tmp"))) @@ -336,9 +341,14 @@ (if (pair? compression-details) (car compression-details) compression-details)) + ;; TODO This logic should sit elsewhere (file (string-append publish-directory "/" - "nar/" (symbol->string compression) "/" + "nar/" + (if (eq? compression 'none) + "" + (string-append + (symbol->string compression) "/")) (basename output-filename)))) (list compression (stat:size (stat file #f))))) compressions) |