diff options
author | Peter Bex <peter@more-magic.net> | 2022-02-23 08:31:58 +0100 |
---|---|---|
committer | Peter Bex <peter@more-magic.net> | 2022-02-23 08:31:58 +0100 |
commit | cd301f3a86e15de48d122b112c1f16fa5b316e3f (patch) | |
tree | ca1e98e507e470c9c58da585200cdb3674de6790 | |
parent | ba310f212a77df2056dc718fba3be2479d892ef9 (diff) | |
download | http-client-cd301f3a86e15de48d122b112c1f16fa5b316e3f.tar.gz |
Drop redundant stripping of directory name when sending files
As pointed out by Siiky, intarweb already strips the directory name,
so we don't have to do it here. Allows us to drop an import, which
is always nice for clarity.
Also update the copyright year.
-rw-r--r-- | http-client.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/http-client.scm b/http-client.scm index 5d33835..1eef99d 100644 --- a/http-client.scm +++ b/http-client.scm @@ -1,7 +1,7 @@ ;;; ;;; Convenient HTTP client library ;;; -;; Copyright (c) 2008-2021, Peter Bex +;; Copyright (c) 2008-2022, Peter Bex ;; Parts copyright (c) 2000-2004, Felix L. Winkelmann ;; All rights reserved. ;; @@ -52,7 +52,6 @@ (chicken sort) (chicken io) (chicken file posix) (chicken format) (chicken process-context) (chicken process-context posix) (chicken port) (chicken file) (chicken tcp) (chicken condition) - (chicken pathname) intarweb uri-common simple-md5 sendfile) ;; Major TODOs: @@ -720,8 +719,6 @@ (filename (or (kv-ref keys filename:) (and (port? file) (port-name file)) (and (string? file) file))) - (filename (and filename - (pathname-strip-directory filename))) (h (headers `((content-disposition #(form-data ((name . ,(car entry)) (filename . ,filename)))) |