diff --git a/lens/private/compound/main.rkt b/lens/private/compound/main.rkt index af12e49..6a3c2a0 100644 --- a/lens/private/compound/main.rkt +++ b/lens/private/compound/main.rkt @@ -1,6 +1,6 @@ #lang reprovide "compose.rkt" "identity.rkt" -"join-string.rkt" +;"join-string.rkt" "join-vector.rkt" "thrush.rkt" diff --git a/lens/private/compound/main.scrbl b/lens/private/compound/main.scrbl index 1ef5319..c4bbb7a 100644 --- a/lens/private/compound/main.scrbl +++ b/lens/private/compound/main.scrbl @@ -7,4 +7,4 @@ @scribble-include/no-subsection["compose.scrbl"] @scribble-include/no-subsection["thrush.scrbl"] @scribble-include/no-subsection["join-vector.scrbl"] -@scribble-include/no-subsection["join-string.scrbl"] +@;scribble-include/no-subsection["join-string.scrbl"] diff --git a/lens/private/if.rkt b/lens/private/if.rkt index 7bd2090..dfe5496 100644 --- a/lens/private/if.rkt +++ b/lens/private/if.rkt @@ -11,7 +11,7 @@ syntax/parse )) (module+ test - (require rackunit lens/private/list/main lens/private/vector/main lens/private/string)) + (require rackunit lens/private/list/main lens/private/vector/main lens/private/string/main)) (define (lens-if pred lens1 lens2) (make-lens diff --git a/lens/private/main.rkt b/lens/private/main.rkt index fbe5328..3f42240 100644 --- a/lens/private/main.rkt +++ b/lens/private/main.rkt @@ -7,7 +7,7 @@ except-in "hash/main.rkt" "list/main.rkt" "stream.rkt" - "string.rkt" + "string/main.rkt" "struct/main.rkt" "vector/main.rkt" gen:lens diff --git a/lens/private/scribblings/reference.scrbl b/lens/private/scribblings/reference.scrbl index 1e32a44..0eacb49 100644 --- a/lens/private/scribblings/reference.scrbl +++ b/lens/private/scribblings/reference.scrbl @@ -10,7 +10,7 @@ @include-section["../hash/main.scrbl"] @include-section["../struct/main.scrbl"] @include-section["../vector/main.scrbl"] -@include-section["../string.scrbl"] +@include-section["../string/main.scrbl"] @include-section["../stream.scrbl"] @include-section["../dict.scrbl"] @include-section["../../applicable.scrbl"] diff --git a/lens/private/compound/join-string.rkt b/lens/private/string/join-string.rkt similarity index 97% rename from lens/private/compound/join-string.rkt rename to lens/private/string/join-string.rkt index fb823ed..85b4007 100644 --- a/lens/private/compound/join-string.rkt +++ b/lens/private/string/join-string.rkt @@ -5,7 +5,7 @@ require racket/contract "../base/main.rkt" "../util/immutable.rkt" "../util/rest-contract.rkt" - "compose.rkt" + "../compound/compose.rkt" "../list/join-list.rkt" module+ test diff --git a/lens/private/compound/join-string.scrbl b/lens/private/string/join-string.scrbl similarity index 100% rename from lens/private/compound/join-string.scrbl rename to lens/private/string/join-string.scrbl diff --git a/lens/private/string/main.rkt b/lens/private/string/main.rkt new file mode 100644 index 0000000..784321e --- /dev/null +++ b/lens/private/string/main.rkt @@ -0,0 +1,3 @@ +#lang reprovide +"string.rkt" +"join-string.rkt" diff --git a/lens/private/string/main.scrbl b/lens/private/string/main.scrbl new file mode 100644 index 0000000..f27f6fb --- /dev/null +++ b/lens/private/string/main.scrbl @@ -0,0 +1,6 @@ +#lang scribble/manual + +@title{String Lenses} + +@include-section["string.scrbl"] +@include-section["join-string.scrbl"] diff --git a/lens/private/string.rkt b/lens/private/string/string.rkt similarity index 85% rename from lens/private/string.rkt rename to lens/private/string/string.rkt index 1a203a8..84fc394 100644 --- a/lens/private/string.rkt +++ b/lens/private/string/string.rkt @@ -11,12 +11,13 @@ )) (require fancy-app - "base/main.rkt" - "util/immutable.rkt" - "compound/main.rkt") + "../base/main.rkt" + "../util/immutable.rkt" + "../string/join-string.rkt" + "../compound/main.rkt") (module+ test - (require rackunit "test-util/test-lens.rkt")) + (require rackunit "../test-util/test-lens.rkt")) (define (string-ref-lens i) diff --git a/lens/private/string.scrbl b/lens/private/string/string.scrbl similarity index 94% rename from lens/private/string.scrbl rename to lens/private/string/string.scrbl index bb33d85..c5ef421 100644 --- a/lens/private/string.scrbl +++ b/lens/private/string/string.scrbl @@ -1,6 +1,6 @@ #lang scribble/manual -@(require "doc-util/main.rkt") +@(require "../doc-util/main.rkt") @title[#:tag "strings-reference"]{String Lenses}