build-collection-map ( -- assoc )

Vocabulary

mongodb.driver.private

Inputs

None

Outputs

assoc

an object

Definition

USING: accessors assocs kernel mongodb.driver sequences
splitting ;

IN: mongodb.driver.private

: build-collection-map ( -- assoc )
    H{ } clone load-collection-list
    [ [ "name" ] dip at "." split second <mdb-collection> ] map
    over [ [ [ ] [ name>> ] bi ] ] dip [ set-at ] curry compose
    each ;