diff options
author | Doug Coleman <doug.coleman@gmail.com> | 2024-04-15 13:43:10 -0500 |
---|---|---|
committer | Doug Coleman <doug.coleman@gmail.com> | 2024-04-15 13:43:54 -0500 |
commit | 4bdd5390cf69189d190f9ff8f1fc2ae399d203ad (patch) | |
tree | 348551626734d227a007431383be1dad8e351ba6 | |
parent | 9388dfb951833aae22dcf7133f41fe33cc066dcd (diff) |
http.download: download to cwd like the docs say not "resource:"
-rw-r--r-- | basis/http/download/download.factor | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/basis/http/download/download.factor b/basis/http/download/download.factor index 0ac7f7e42d..ee464b9afc 100644 --- a/basis/http/download/download.factor +++ b/basis/http/download/download.factor @@ -3,8 +3,8 @@ USING: accessors calendar checksums combinators.short-circuit http.client io io.directories io.encodings.binary io.files io.files.info io.files.unique io.pathnames kernel math -math.order math.parser present sequences shuffle splitting ; - +math.order math.parser namespaces present sequences shuffle +splitting ; IN: http.download : file-too-old-or-not-exists? ( path duration -- ? ) @@ -104,7 +104,7 @@ PRIVATE> : download-once-into ( url directory -- path ) to-directory download-once-as ; -: download-once ( url -- path ) "resource:" download-once-into ; +: download-once ( url -- path ) current-directory get download-once-into ; : download-outdated-as ( url path duration -- path' ) 2dup delete-when-old [ drop download-as ] [ drop nip ] if ; @@ -113,4 +113,4 @@ PRIVATE> [ to-directory ] dip download-outdated-as ; : download-outdated ( url duration -- path ) - [ dup download-name "resource:" to-directory nip ] dip download-outdated-as ; + [ dup download-name current-directory get to-directory nip ] dip download-outdated-as ; |