diff --git a/extra/mongodb/driver/driver.factor b/extra/mongodb/driver/driver.factor index 92ad770e20..574724dfaf 100644 --- a/extra/mongodb/driver/driver.factor +++ b/extra/mongodb/driver/driver.factor @@ -1,7 +1,8 @@ USING: accessors arrays assocs bson.constants combinators combinators.smart constructors destructors formatting fry hashtables io io.pools io.sockets kernel linked-assocs math mongodb.connection -mongodb.msg parser prettyprint sequences sets splitting strings +mongodb.msg parser prettyprint prettyprint.custom prettyprint.sections +sequences sets splitting strings tools.continuations uuid memoize locals ; IN: mongodb.driver @@ -32,6 +33,9 @@ CONSTANT: PARTIAL? "partial?" ERROR: mdb-error msg ; +M: mdb-error pprint* ( obj -- ) + msg>> text ; + : >pwd-digest ( user password -- digest ) "mongo" swap 3array ":" join md5-checksum ;