tentative chopped QR issue fix

2020-07-10 20:42:12 +01:00 · 2020-07-10 20:42:12 +01:00 · c9f27dc69a
parent 2e4e375196
commit c9f27dc69a
1 changed files with 1 additions and 0 deletions
--- a/stuff.lisp
+++ b/stuff.lisp
@ -183,6 +183,7 @@ MEDIA-TYPE is one of (:image :video :audio :document)."
                               :keep t) ; Needed because async
      (format *debug-io* "~&using path ~A~%" path)
      (cl-qrencode:encode-png-stream text stream)
+      (force-output stream) ; otherwise the QR codes get chopped off?
      (catcher
       (let ((content-length (file-length stream)))
         (attach