add contracts for lens-zoom and lens-zoom*
This commit is contained in:
parent
96c501dca4
commit
da77504a76
|
@ -1,11 +1,15 @@
|
||||||
#lang sweet-exp racket/base
|
#lang sweet-exp racket/base
|
||||||
|
|
||||||
provide lens-zoom
|
require racket/contract/base
|
||||||
lens-zoom*
|
provide
|
||||||
|
contract-out
|
||||||
|
lens-zoom (-> lens? lens? lens?)
|
||||||
|
lens-zoom* (->* [] #:rest (listof2 lens? lens?) lens?)
|
||||||
|
|
||||||
require fancy-app
|
require fancy-app
|
||||||
lens/private/base/main
|
lens/private/base/main
|
||||||
lens/private/compound/thrush
|
lens/private/compound/thrush
|
||||||
|
lens/private/util/list-pair-contract
|
||||||
racket/match
|
racket/match
|
||||||
unstable/sequence
|
unstable/sequence
|
||||||
"isomorphism/base.rkt"
|
"isomorphism/base.rkt"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user