wip: clear out status commmnd.

1 files changed, 0 insertions, 28 deletions

diff --git a/vcx b/vcx
index c062fc8..8c68681 100644
--- a/vcx
+++ b/vcx
@@ -427,31 +427,3 @@ sub stream_index {
 	};
 }
 
-sub compare_streams {
-	my (@paths, $func) = @_;
-
-	my $ixs = stream_index();
-	my $wss = stream_tree($paths); 
-	
-	$old = $ixs->();
-	$new = $wss->();
-
-	# TODO: fix compare logic
-	while (defined $old || defined $new) {
-		if (defined $new && 
-		    (!defined $old || $new->{path} lt $old->{path})) {
-			$func->($new, 'N');
-			$new = $wss->();
-		} elsif (defined $old && 
-		     (!defined $new || $old->{path} lt $new->{path})) {
-			$func->($old, 'D');
-			$old = $ixs->();
-		} else {
-			if ($new->{mtime} != $old->{mtime} || $new->{size} != $old->{size}) {
-				$func->($new, 'M');
-			}
-			$old = $ixs->();
-			$new = $wss->();
-		}
-	}
-}