(write-message) ( message quot -- )

Vocabulary

mongodb.operations.private

Inputs

message	an object
quot	an object

Outputs

None

Definition

USING: bson.private io kernel mongodb.connection ;

IN: mongodb.operations.private

: (write-message) ( message quot -- )
    [ connection-buffer dup ] 2dip
    [ [ [ write-header ] ] curry ] dip [ bi ] curry compose
    [ with-length-prefix ] curry with-output-stream* write flush
    ; inline