Commit 4af3147e authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix Range header when requesting the tail of a file

Was off by one. Turns out most web servers don't care, but hunchentoot does!
parent 22879d0f
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -86,7 +86,7 @@
        (when (= offset (parse-integer size))
          (return-from open-object-stream (make-concatenated-stream)))
        ;; Server supports range requests!
        (push (cons :range (format nil "bytes=~D-~D" offset size)) headers)))
        (push (cons :range (format nil "bytes=~D-~D" offset (1- size))) headers)))
    (multiple-value-bind (s code)
        (http-client-request (http-object-store-http-client object-store) uri
                             :additional-headers headers