summaryrefslogtreecommitdiff
path: root/server/server.scm
diff options
context:
space:
mode:
authorstuebinm2021-04-05 01:56:54 +0200
committerstuebinm2021-04-05 01:56:54 +0200
commit8e35eaecbb2baaf9a4043263fc5e054f21aa24c6 (patch)
treea499094cdea2d1812421a51539913a11668b0581 /server/server.scm
parenteeb8b3199e846de2410d7493f6cff20150fd3672 (diff)
server: fix binary file output
(previously, it tried to use ascii encoding and would fail)
Diffstat (limited to '')
-rw-r--r--server/server.scm5
1 files changed, 3 insertions, 2 deletions
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)