steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added pprint* method for mdb-error

db4
Sascha Matzke 2009-08-20 19:14:40 +02:00
parent 79cdc45339
commit f8b2cab6d3
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/mongodb/driver/driver.factor
View File

@ -1,7 +1,8 @@
USING: accessors arrays assocs bson.constants combinators USING: accessors arrays assocs bson.constants combinators
combinators.smart constructors destructors formatting fry hashtables combinators.smart constructors destructors formatting fry hashtables
io io.pools io.sockets kernel linked-assocs math mongodb.connection 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 ; tools.continuations uuid memoize locals ;
IN: mongodb.driver IN: mongodb.driver
@ -32,6 +33,9 @@ CONSTANT: PARTIAL? "partial?"
ERROR: mdb-error msg ; ERROR: mdb-error msg ;
M: mdb-error pprint* ( obj -- )
msg>> text ;
: >pwd-digest ( user password -- digest ) : >pwd-digest ( user password -- digest )
"mongo" swap 3array ":" join md5-checksum ; "mongo" swap 3array ":" join md5-checksum ;