summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)