From bc9a740640bf858654e67d22bbafda8abd05f7b9 Mon Sep 17 00:00:00 2001 From: Angus Lepper Date: Tue, 23 Dec 2014 19:31:29 +0000 Subject: [PATCH] Add type for base64-encode optional argument --- typed-racket-more/typed/net/base64.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/typed-racket-more/typed/net/base64.rkt b/typed-racket-more/typed/net/base64.rkt index 10f4392f..abe9949f 100644 --- a/typed-racket-more/typed/net/base64.rkt +++ b/typed-racket-more/typed/net/base64.rkt @@ -6,7 +6,7 @@ [base64-encode-stream (case-lambda (Input-Port Output-Port -> Void) (Input-Port Output-Port Bytes -> Void))] [base64-decode-stream (Input-Port Output-Port -> Void)] - [base64-encode (Bytes -> Bytes)] + [base64-encode (->* (Bytes) (Bytes) Bytes)] [base64-decode (Bytes -> Bytes)]) (provide base64-encode-stream base64-decode-stream base64-encode base64-decode)