summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2022-02-23 08:31:58 +0100
committerPeter Bex <peter@more-magic.net>2022-02-23 08:31:58 +0100
commitcd301f3a86e15de48d122b112c1f16fa5b316e3f (patch)
treeca1e98e507e470c9c58da585200cdb3674de6790
parentba310f212a77df2056dc718fba3be2479d892ef9 (diff)
downloadhttp-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.scm5
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))))