Commits

camlspotter committed c909b07

misused the structural equality

Comments (0)

Files changed (1)

     | None -> (), None
     | (Some v as o) -> 
         let (), v' = f () v in
-        (), if v = v' then o else Some v'
+        (), if v == v' then o else Some v'
 
   method list f () xs = 
     let xs' = List.map (fun x -> snd (f () x)) xs in