factor: fix some spacing

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

diff --git a/extra/mongodb/operations/operations.factor b/extra/mongodb/operations/operations.factor
index 8e5fe548e4d72866e9270bd0502ded3394d79a86..3c499b0fd9e2729004f765942ecc78c69f09395f 100644 (file)
--- a/extra/mongodb/operations/operations.factor
+++ b/extra/mongodb/operations/operations.factor
@@ -112,9 +112,9 @@ PRIVATE>
 
 : write-insert-message ( message -- )
     [
-       [ flags>> write-int32 ]
-       [ collection>> write-cstring ]
-       [ objects>> [ assoc>stream ] each ] tri
+        [ flags>> write-int32 ]
+        [ collection>> write-cstring ]
+        [ objects>> [ assoc>stream ] each ] tri
     ] (write-message) ; inline
 
 : write-update-message ( message -- )
@@ -150,9 +150,9 @@ PRIVATE>
 
 : write-killcursors-message ( message -- )
     [
-       [ flags>> write-int32 ]
-       [ cursors#>> write-int32 ]
-       [ cursors>> [ write-longlong ] each ] tri
+        [ flags>> write-int32 ]
+        [ cursors#>> write-int32 ]
+        [ cursors>> [ write-longlong ] each ] tri
     ] (write-message) ; inline
 
 PRIVATE>