The operator -= isn't working properly (should be easy to reproduce). On lens.ml, line 173:
let (-=) l v = _modify ((-) v) l
(This probably affects line 183 as well.)
The value being subtracted (v) is being used on the left position on the subtraction, giving an incorrect result. Could be changed to, e.g., ((+) (-v)) or (fun x -> x - v).
The operator
-=
isn't working properly (should be easy to reproduce). Onlens.ml
, line 173:(This probably affects line 183 as well.)
The value being subtracted (
v
) is being used on the left position on the subtraction, giving an incorrect result. Could be changed to, e.g.,((+) (-v))
or(fun x -> x - v)
.