suzanne.soy/lens
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add view/set contracts

Browse Source
This commit is contained in:
Jack Firth 2015-07-08 01:37:57 -07:00
parent 32c580d849
commit 837606788a
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lens/base/view-set.rkt
View File

@ -6,10 +6,11 @@
(module+ test (module+ test
(require rackunit)) (require rackunit))
(provide lens-view (provide
lens-set lens-view*
lens-view* lens-set*
lens-set*) (contract-out [lens-view (-> lens? any/c any/c)]
[lens-set (-> lens? any/c any/c any/c)]))
(define (lens-view lens v) (define (lens-view lens v)