Source

ocaml-core / base / core / extended / lib / documented_match_statement.ml

Diff from to

File base/core/extended/lib/documented_match_statement.ml

 
 let match_ t x =
   match List.filter t.specific_cases
-    ~f:(fun { pattern = x' } -> List.exists x' ~f:(fun y -> x = y)) with
+    ~f:(fun { pattern = x'; _ } -> List.exists x' ~f:(fun y -> x = y)) with
   | case1::case2::_ -> failwithf "pattern appears twice in documented_match (%s,%s)"
     case1.documentation case2.documentation ()
   | [case] -> case.value ()