ensure-index ( index-spec -- )

Vocabulary

mongodb.driver

Inputs

index-spec

an index specification

Outputs

None

Word description

Ensures the existence of the given index. For more information on MongoDB indexes see: https://www.mongodb.org/display/DOCS/Indexes

Examples

USING: mongodb.driver ; "db" "127.0.0.1" 27017 <mdb> [ "mycollection" nameIdx [ "name" asc ] keyspec <index-spec> ensure-index ] with-db

USING: mongodb.driver ; "db" "127.0.0.1" 27017 <mdb> [ "mycollection" nameIdx [ "name" asc ] keyspec <index-spec> t >>unique? ensure-index ] with-db

Definition

USING: accessors assocs bson.constants combinators kernel
linked-assocs mongodb.connection ;

IN: mongodb.driver

: ensure-index ( index-spec -- )
    <linked-hash> [ [ <oid> "_id" ] dip set-at ] keep [
        {
            [ [ name>> "name" ] dip set-at ]
            [ [ ns>> index-ns "ns" ] dip set-at ]
            [ [ key>> "key" ] dip set-at ]
            [
                swap unique?>>
                [ swap [ "unique" ] dip set-at ] [ drop ] if*
            ]
        } 2cleave
    ] keep [ index-collection ] dip save ;