factor: remove extra whitespace

[factor.git] / extra / mongodb / connection / connection.factor

diff --git a/extra/mongodb/connection/connection.factor b/extra/mongodb/connection/connection.factor
index f48a13139b431567feb23de762c737446d8b6086..57972b141f6c98a291d8f3a4e4b7d1744601eaca 100644 (file)
--- a/extra/mongodb/connection/connection.factor
+++ b/extra/mongodb/connection/connection.factor
@@ -90,7 +90,7 @@ CONSTRUCTOR: <mdb-connection> mdb-connection ( instance -- mdb-connection ) ;
     get-nonce [ "nonce" set-cmd-opt ] [ ] bi
     calculate-key-digest "key" set-cmd-opt ; inline
 
-: perform-authentication ( --  )
+: perform-authentication ( -- )
     authenticate-cmd make-cmd
     build-auth-cmd send-cmd
     check-ok [ drop ] [ throw ] if ; inline
@@ -121,7 +121,7 @@ CONSTRUCTOR: <mdb-connection> mdb-connection ( instance -- mdb-connection ) ;
         [ split-host-str <inet> f <mdb-node> >>remote ] when* drop
     ] 2bi ;
 
-: check-node ( mdb node --  )
+: check-node ( mdb node -- )
     [ <mdb-connection> &dispose ] dip
     [ [ open-connection ] [ 3drop f ] recover ] keep swap
     [ [ get-ismaster eval-ismaster-result ] with-connection ] [ drop ] if* ;