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

make identity-lens an isomorphism-lens

Browse Source
This commit is contained in:
AlexKnauth 2015-08-19 22:28:18 -04:00
parent 8c40c843af
commit b885bf36aa
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lens/base/identity.rkt
View File

@ -1,6 +1,10 @@
#lang racket/base #lang racket/base
(require racket/function racket/contract/base "base.rkt") (require racket/function
racket/contract/base
"base.rkt"
unstable/lens/isomorphism/base
)
(module+ test (module+ test
(require rackunit (require rackunit
@ -9,11 +13,8 @@
(provide (provide
(contract-out [identity-lens lens?])) (contract-out [identity-lens lens?]))
(define (second-value _ v) v)
(define identity-lens (define identity-lens
(make-lens identity second-value)) (isomorphism-lens identity identity))
(module+ test (module+ test

2
unstable/lens/isomorphism/base.rkt
View File

@ -13,7 +13,7 @@
)) ))
(require racket/match (require racket/match
lens/base/main lens/base/gen-lens
) )
(module+ test (module+ test
(require rackunit (submod ".." data))) (require rackunit (submod ".." data)))