notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

content lengths specified.

Browse Source
This commit is contained in:
Bryce Covert
2022-07-12 06:34:52 -07:00
parent bb6592bd71
commit ab51d77384
7 changed files with 25 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/clj/auto_ap/graphql/checks.clj
View File

@@ -181,17 +181,19 @@
(defn make-pdfs [checks]
(loop [[check & checks] checks]
(when check
(s3/put-object :bucket-name (:data-bucket env)
:key (:payment/s3-key check)
:input-stream (-> check
:payment/pdf-data
(edn/read-string)
(let [check-bytes (-> check
:payment/pdf-data
(edn/read-string)
make-check-pdf
(io/make-input-stream {}))
:metadata {:content-type "application/pdf"})
make-check-pdf
)]
(s3/put-object :bucket-name (:data-bucket env)
:key (:payment/s3-key check)
:input-stream (io/make-input-stream check-bytes {})
:metadata {:content-type "application/pdf"
:content-length (count check-bytes)}))
(recur checks))))
(defn merge-pdfs [keys]