Commit 81befe06 authored by Steffen Michels's avatar Steffen Michels

fix value for tuples & arrays

parent 57bca4cc
Pipeline #12618 failed with stage
in 35 seconds
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment