build-query-object ( query -- selector )

Vocabulary

mongodb.operations.private

Inputs

query

an object

Outputs

selector

an object

Definition

USING: accessors assocs combinators kernel ;

IN: mongodb.operations.private

:: build-query-object ( query -- selector )
    H{ } clone :> selector query {
        [ orderby>> [ "$orderby" selector set-at ] when* ]
        [ explain>> [ "$explain" selector set-at ] when* ]
        [ hint>> [ "$hint" selector set-at ] when* ]
        [ query>> "query" selector set-at ]
    } cleave selector ; inline