We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 322a023 commit f7fe707Copy full SHA for f7fe707
1 file changed
src/lambdaisland/deep_diff2/diff_impl.cljc
@@ -114,14 +114,12 @@
114
act-ks (set (keys act))]
115
(reduce
116
(fn [m k]
117
- (cond
118
- (and (contains? exp-ks k) (not (contains? act-ks k)))
+ (case [(contains? exp-ks k) (contains? act-ks k)]
+ [true false]
119
(assoc m (->Deletion k) (get exp k))
120
-
121
- (and (contains? act-ks k) (not (contains? exp-ks k)))
+ [false true]
122
(assoc m (->Insertion k) (get act k))
123
124
- (and (contains? act-ks k) (contains? exp-ks k))
+ [true true]
125
(assoc m k (diff (get exp k) (get act k)))))
126
{}
127
(set/union exp-ks act-ks))))
0 commit comments