eval-ismaster-result ( node result -- )

Vocabulary

mongodb.connection.private

Inputs

node	an object
result	an object

Outputs

None

Definition

USING: accessors assocs io.sockets kernel math
mongodb.connection strings ;

IN: mongodb.connection.private

: eval-ismaster-result ( node result -- )
    [
        [ "ismaster" ] dip at dup string? [ >integer 1 = ] when
        >>master? drop
    ] [
        [ "remote" ] dip at
        [ split-host-str <inet> f <mdb-node> >>remote ] when*
        drop
    ] 2bi ;