From 8e35eaecbb2baaf9a4043263fc5e054f21aa24c6 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 5 Apr 2021 01:56:54 +0200
Subject: server: fix binary file output

(previously, it tried to use ascii encoding and would fail)
---
 server/server.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'server')

diff --git a/server/server.scm b/server/server.scm
index 5159314..751ef01 100644
--- a/server/server.scm
+++ b/server/server.scm
@@ -7,7 +7,8 @@
 (use-modules (ice-9 format)
              (ice-9 textual-ports)
              (ice-9 iconv)
-             (ice-9 match))
+             (ice-9 match)
+             (ice-9 binary-ports))
 
 
 (define (get-path request)
@@ -76,7 +77,7 @@
                        (number->string (hash body 10000000000)) ".age")
                     (lambda (port)
                       (display "(encrypted)\n")
-                      (display (bytevector->string body "ascii") port))))
+                      (put-bytevector port body))))
       ((text/plain) (call-with-append-file
                      (string-append survey ".survey")
                      (lambda (port)
-- 
cgit v1.2.3