From 7e4721bb12594b1cc2841bbf84fb2c249b437ab0 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Fri, 10 Jul 2015 14:43:40 -0700 Subject: [PATCH] Expose and contract --- unstable/lens/compound.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/unstable/lens/compound.rkt b/unstable/lens/compound.rkt index 467d92a..cae2a16 100644 --- a/unstable/lens/compound.rkt +++ b/unstable/lens/compound.rkt @@ -2,6 +2,7 @@ (require fancy-app lens + lens/list-pair-contract unstable/sequence) (module+ test @@ -9,7 +10,8 @@ (provide (contract-out - [compound-list-lens (->* () #:rest (listof lens?) lens?)])) + [compound-list-lens (->* () #:rest (listof lens?) lens?)] + [compound-hash-lens (->* () #:rest (listof2 any/c lens?) lens?)])) (define (zip xs ys)