From f8b2cab6d3b9bbef969ea8a5180bd683197dd05b Mon Sep 17 00:00:00 2001 From: Sascha Matzke Date: Thu, 20 Aug 2009 19:14:40 +0200 Subject: [PATCH] added pprint* method for mdb-error --- extra/mongodb/driver/driver.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 ;