From c9f27dc69a2017e867528a8bb312b0525f0bf25f Mon Sep 17 00:00:00 2001
From: eta <eta@theta.eu.org>
Date: Fri, 10 Jul 2020 20:42:12 +0100
Subject: [PATCH] tentative chopped QR issue fix

---
 stuff.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/stuff.lisp b/stuff.lisp
index f9e0c0c..f562b76 100644
--- 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