Revert List.concat_map change in vendor/ppx_easy_deriving/pat_exp.ml

Agent-Logs-Url: https://github.com/goblint/analyzer/sessions/ad9206be-ceef-4040-9820-00b29c798cba

Co-authored-by: michael-schwarz <13812333+michael-schwarz@users.noreply.github.com>

Author: Copilot

src/vendor/ppx_easy_deriving/pat_exp.ml

@@ -26,9 +26,9 @@ let rec to_pat ~loc = function
     ppat_var ~loc (Located.mk ~loc s)
 let rec to_exps ~loc = function
   | Record xs ->
-    List.concat_map (fun (_, x) -> to_exps ~loc x) xs
+    List.flatten (List.map (fun (_, x) -> to_exps ~loc x) xs)
   | Tuple xs ->
-    List.concat_map (to_exps ~loc) xs
+    List.flatten (List.map (to_exps ~loc) xs)
   | Unit ->
     []
   | Base s ->