From 88aab05e8de72ac07dc7639f9254cf8e727176ae Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 28 Jun 2020 23:27:47 +0200 Subject: Add base64 utility functions. --- module/output/types.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'module/output/types.scm') diff --git a/module/output/types.scm b/module/output/types.scm index 08ac878a..22f3ca5b 100644 --- a/module/output/types.scm +++ b/module/output/types.scm @@ -4,13 +4,11 @@ :use-module (util exceptions) :use-module (util base64) :use-module (datetime) - :use-module (datetime util) - :use-module (rnrs io ports)) + :use-module (datetime util)) (define (write-binary _ value) - (bytevector->string (bytevector->base64 value) - (make-transcoder (latin-1-codec)))) + (bytevector->base64-string value)) (define (write-boolean _ value) (if value "TRUE" "FALSE")) -- cgit v1.2.3