fix value for tuples & arrays

cleantest.icl

@@ -51,9 +51,13 @@ gDiff{|Expr|} x y = case (x,y) of
 			}]
 	where
 		argDiffs = flatten [gDiff{|*|} x y \\ x <-: a & y <-: b & n <- [0..] | n > 0]
-	(ExprTuple a,  ExprTuple b)  -> gDiff{|*|} a b
+	(ExprTuple a,  ExprTuple b)  -> [ {diff & value="_Tuple"}
+	                                \\ diff <- gDiff{|*->*|} gDiff{|*|} [x \\ x <-: a] [y \\ y <-: b]
+	                                ]
 	(ExprList a,   ExprList b)   -> gDiff{|*|} a b
-	(ExprArray a,  ExprArray b)  -> gDiff{|*|} a b
+	(ExprArray a,  ExprArray b)  -> [ {diff & value="_Array"}
+	                                \\ diff <- gDiff{|*->*|} gDiff{|*|} [x \\ x <- a] [y \\ y <- b]
+	                                ]
 	(ExprRecord r1 xs, ExprRecord r2 ys) | r1 == r2 -> [
 			{ status   = parentStatus field_diffs
 			, value    = fromMaybe "<unnamed record>" r1