write-message ( message -- )

Vocabulary

mongodb.operations

Inputs

message

an object

Outputs

None

Definition

USING: combinators kernel mongodb.msg mongodb.operations.private
;

IN: mongodb.operations

: write-message ( message -- )
    {
        { [ dup mdb-query-msg? ] [ write-query-message ] }
        { [ dup mdb-insert-msg? ] [ write-insert-message ] }
        { [ dup mdb-update-msg? ] [ write-update-message ] }
        { [ dup mdb-delete-msg? ] [ write-delete-message ] }
        { [ dup mdb-getmore-msg? ] [ write-getmore-message ] }
        {
            [ dup mdb-killcursors-msg? ]
            [ write-killcursors-message ]
        }
    } cond ;