diff --git a/lens/dict.scrbl b/lens/dict.scrbl index b39a28c..7bfc244 100644 --- a/lens/dict.scrbl +++ b/lens/dict.scrbl @@ -3,19 +3,15 @@ @(require scribble/eval "lenses-examples.rkt" (for-label lens - lens/dict racket/base racket/contract)) @title{Dict lenses} -@defmodule[lens/dict] - @defproc[(dict-ref-lens [key any/c]) lens?]{ Returns a lens for viewing the value mapped to @racket[key] in a dict. @lenses-examples[ - (require lens/dict) (define dict '((a . 1) (b . 2) (c . 3))) (lens-view (dict-ref-lens 'a) dict) (lens-set (dict-ref-lens 'a) dict 100) diff --git a/lens/main.rkt b/lens/main.rkt index d2d058b..a7f3ae4 100644 --- a/lens/main.rkt +++ b/lens/main.rkt @@ -2,13 +2,19 @@ (require "base/main.rkt" - "list/main.rkt") + "list/main.rkt" + "struct.rkt" + "dict.rkt" + ) (provide (except-out (all-from-out "base/main.rkt" - "list/main.rkt") + "list/main.rkt" + "struct.rkt" + "dict.rkt" + ) focus-lens drop-lens list-ref-nested-lens diff --git a/lens/struct.rkt b/lens/struct.rkt index 2f25724..dc2260a 100644 --- a/lens/struct.rkt +++ b/lens/struct.rkt @@ -5,13 +5,13 @@ (require racket/local syntax/parse/define alexis/util/struct - "main.rkt" + "base/main.rkt" (for-syntax racket/base syntax/parse racket/syntax )) (module+ test - (require rackunit fancy-app (only-in lens/base/main lens-transform*))) + (require rackunit fancy-app)) (define-simple-macro (struct-lens s:id fld:id) #:with s-fld (format-id #'s "~a-~a" #'s #'fld #:source #'fld) diff --git a/lens/struct.scrbl b/lens/struct.scrbl index 1152ee7..afc18d7 100644 --- a/lens/struct.scrbl +++ b/lens/struct.scrbl @@ -3,20 +3,16 @@ @(require scribble/eval "lenses-examples.rkt" (for-label lens - lens/struct racket/base racket/contract)) @title{Struct lenses} -@defmodule[lens/struct] - @defform[(struct-lens struct-id field-id)]{ Returns a lens for viewing the @racket[field-id] field of a @racket[struct-id] instance. @lenses-examples[ - (require lens/struct) (struct foo (a b c) #:transparent) (lens-view (struct-lens foo a) (foo 1 2 3)) (lens-set (struct-lens foo a) (foo 1 2 3) 100)