Expose and contract

This commit is contained in:
Jack Firth 2015-07-10 14:43:40 -07:00
parent f8d324863c
commit 7e4721bb12

View File

@ -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)