From 2518ce23b4175da8f3a9d96a180fcffbfe8fcc58 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 18 Mar 2016 18:45:00 -0700 Subject: [PATCH] webapps.mason.version.source: delete unique temp directory after upload. --- .../mason/version/source/source.factor | 20 ++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/extra/webapps/mason/version/source/source.factor b/extra/webapps/mason/version/source/source.factor index 5292ded4f4..c98121ed28 100644 --- a/extra/webapps/mason/version/source/source.factor +++ b/extra/webapps/mason/version/source/source.factor @@ -29,23 +29,25 @@ IN: webapps.mason.version.source download-images ] with-directory ; -: (make-source-release) ( version -- path ) +: zip-source ( version -- path ) [ { "zip" "-qr9" } ] dip source-release-name file-name [ suffix "factor" suffix try-process ] keep ; : make-source-release ( version git-id -- path ) - "Creating source release..." print flush [ - [ - clone-factor prepare-source (make-source-release) - "Package created: " write absolute-path dup print - ] with-unique-directory drop - ] with-temp-directory ; + "Creating source release..." print flush + clone-factor prepare-source zip-source + "Package created: " write absolute-path dup print ; -: upload-source-release ( package version -- ) +: upload-source-release ( path version -- ) "Uploading source release..." print flush [ package-username get package-host get ] dip remote-source-release-name upload-safely ; : do-source-release ( version git-id -- ) - [ make-source-release ] [ drop upload-source-release ] 2bi ; + [ + [ + [ make-source-release ] + [ drop upload-source-release ] 2bi + ] cleanup-unique-directory + ] with-temp-directory ;