Commits

camlspotter committed c909b07

misused the structural equality

  • Participants
  • Parent commits 5beac40
  • Branches 4.01.0

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