Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ocaml-bisect_ppx for 
openSUSE:Factory checked in at 2023-05-23 14:53:39
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ocaml-bisect_ppx (Old)
 and      /work/SRC/openSUSE:Factory/.ocaml-bisect_ppx.new.1533 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ocaml-bisect_ppx"

Tue May 23 14:53:39 2023 rev:6 rq:1086688 version:2.8.2

Changes:
--------
--- /work/SRC/openSUSE:Factory/ocaml-bisect_ppx/ocaml-bisect_ppx.changes        
2023-01-05 15:01:07.485106265 +0100
+++ 
/work/SRC/openSUSE:Factory/.ocaml-bisect_ppx.new.1533/ocaml-bisect_ppx.changes  
    2023-05-23 14:53:54.658258622 +0200
@@ -1,0 +2,7 @@
+Fri May  5 05:05:05 UTC 2023 - oher...@suse.de
+
+- Update to version 2.8.2
+  see included CHANGES for details
+- refresh ocaml-bisect_ppx.patch
+
+-------------------------------------------------------------------

Old:
----
  ocaml-bisect_ppx-2.8.1.tar.xz

New:
----
  ocaml-bisect_ppx-2.8.2.tar.xz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ocaml-bisect_ppx.spec ++++++
--- /var/tmp/diff_new_pack.eXggWH/_old  2023-05-23 14:53:55.194261794 +0200
+++ /var/tmp/diff_new_pack.eXggWH/_new  2023-05-23 14:53:55.202261841 +0200
@@ -29,7 +29,7 @@
 
 %define     pkg ocaml-bisect_ppx
 Name:           %pkg%nsuffix
-Version:        2.8.1
+Version:        2.8.2
 Release:        0
 %{?ocaml_preserve_bytecode}
 Summary:        Code coverage for OCaml and Reason

++++++ _service ++++++
--- /var/tmp/diff_new_pack.eXggWH/_old  2023-05-23 14:53:55.270262243 +0200
+++ /var/tmp/diff_new_pack.eXggWH/_new  2023-05-23 14:53:55.274262266 +0200
@@ -1,7 +1,7 @@
 <services>
   <service name="tar_scm" mode="disabled">
     <param name="filename">ocaml-bisect_ppx</param>
-    <param name="revision">816def34eacfa0d12a6fd53347f230d9a997a4cc</param>
+    <param name="revision">60b409bbf9cd4a4b41d58d842550c9c7366e5c3c</param>
     <param name="scm">git</param>
     <param name="submodules">disable</param>
     <param name="url">https://github.com/aantron/bisect_ppx.git</param>

++++++ ocaml-bisect_ppx-2.8.1.tar.xz -> ocaml-bisect_ppx-2.8.2.tar.xz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/ocaml-bisect_ppx-2.8.1/bisect_ppx.opam 
new/ocaml-bisect_ppx-2.8.2/bisect_ppx.opam
--- old/ocaml-bisect_ppx-2.8.1/bisect_ppx.opam  2022-03-14 08:39:55.000000000 
+0100
+++ new/ocaml-bisect_ppx-2.8.2/bisect_ppx.opam  2023-04-13 13:16:20.000000000 
+0200
@@ -22,7 +22,7 @@
   "cmdliner" {>= "1.0.0"}
   "dune" {>= "2.7.0"}
   "ocaml" {>= "4.03.0"}
-  "ppxlib" {>= "0.21.0"}
+  "ppxlib" {>= "0.26.0" & < "0.28.0"}
 
   "ocamlformat" {with-test & = "0.16.0"}
 ]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/ocaml-bisect_ppx-2.8.1/doc/CHANGES 
new/ocaml-bisect_ppx-2.8.2/doc/CHANGES
--- old/ocaml-bisect_ppx-2.8.1/doc/CHANGES      2022-03-14 08:39:55.000000000 
+0100
+++ new/ocaml-bisect_ppx-2.8.2/doc/CHANGES      2023-04-13 13:16:20.000000000 
+0200
@@ -1,3 +1,14 @@
+Version 2.8.2 (2023-04-13):
+---------------------------
+
+  Additions
+
+  - ppxlib 0.26.0 and 0.27.0 compatibility (#400, Sonja Heinze).
+
+  Bugs fixed
+
+  - Collation of subdirectories in HTML report (#401, Luke Maurer).
+
 Version 2.8.1 (2022-03-14):
 ---------------------------
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/ocaml-bisect_ppx-2.8.1/package.json 
new/ocaml-bisect_ppx-2.8.2/package.json
--- old/ocaml-bisect_ppx-2.8.1/package.json     2022-03-14 08:39:55.000000000 
+0100
+++ new/ocaml-bisect_ppx-2.8.2/package.json     2023-04-13 13:16:20.000000000 
+0200
@@ -1,7 +1,7 @@
 {
   "name": "bisect_ppx",
   "description": "Code coverage for OCaml and Reason",
-  "version": "2.8.1",
+  "version": "2.8.2",
   "license": "MIT",
   "homepage": "https://github.com/aantron/bisect_ppx";,
   "bugs": {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/ocaml-bisect_ppx-2.8.1/src/ppx/instrument.ml 
new/ocaml-bisect_ppx-2.8.2/src/ppx/instrument.ml
--- old/ocaml-bisect_ppx-2.8.1/src/ppx/instrument.ml    2022-03-14 
08:39:55.000000000 +0100
+++ new/ocaml-bisect_ppx-2.8.2/src/ppx/instrument.ml    2023-04-13 
13:16:20.000000000 +0200
@@ -490,10 +490,11 @@
         |> List.map (fun (location_trace, p'') ->
           (location_trace, Pat.alias ~loc ~attrs p'' x))
 
-      | Ppat_construct (c, Some p') ->
+      | Ppat_construct (c, Some (ts, p')) ->
         recur ~enclosing_loc p'
         |> List.map (fun (location_trace, p'') ->
-          (location_trace, Pat.construct ~loc ~attrs c (Some p'')))
+          (location_trace,
+          Pat.mk ~loc ~attrs Pat.(Ppat_construct (c, Some (ts, p'')))))
 
       | Ppat_variant (c, Some p') ->
         recur ~enclosing_loc p'
@@ -708,7 +709,7 @@
       List.map (fun (_, p') -> bound_variables p') fields
       |> List.flatten
 
-    | Ppat_construct (_, Some p') | Ppat_variant (_, Some p')
+    | Ppat_construct (_, Some (_, p')) | Ppat_variant (_, Some p')
     | Ppat_constraint (p', _) | Ppat_lazy p' | Ppat_exception p'
     | Ppat_open (_, p') ->
       bound_variables p'
@@ -725,7 +726,7 @@
     | Ppat_type _ | Ppat_variant _ ->
       true
 
-    | Ppat_alias (p', _) | Ppat_construct (_, Some p')
+    | Ppat_alias (p', _) | Ppat_construct (_, Some (_, p'))
     | Ppat_constraint (p', _) | Ppat_lazy p' | Ppat_exception p'
     | Ppat_open (_, p') ->
       has_polymorphic_variant p'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/ocaml-bisect_ppx-2.8.1/src/report/html.ml 
new/ocaml-bisect_ppx-2.8.2/src/report/html.ml
--- old/ocaml-bisect_ppx-2.8.1/src/report/html.ml       2022-03-14 
08:39:55.000000000 +0100
+++ new/ocaml-bisect_ppx-2.8.2/src/report/html.ml       2023-04-13 
13:16:20.000000000 +0200
@@ -85,25 +85,25 @@
       let directory', _ = split_filename name in
       directory' = directory
     in
-    let rec aux sub_dirs =
+    let rec aux sub_dirs sub_files =
       function
-        [] -> (sub_dirs, [])
+        [] -> (List.rev sub_dirs, List.concat (List.rev sub_files))
       | (name, _, _) as file :: files ->
          match subdirectory_of ~directory name with
          | None ->
-            let (sub_files, _) =
+            let (sub_files_here, files') =
               Util.split
                 (fun (name, _, _) -> immediate_child_of ~directory name)
                 (file :: files)
             in
-            (sub_dirs, sub_files)
+            aux sub_dirs (sub_files_here :: sub_files) files'
          | Some root ->
             let sub_dir, files' =
               Util.split
                 (fun (name, _, _) -> subdirectory_of ~directory name = Some 
root)
                 (file :: files) in
-            aux ((root, sub_dir) :: sub_dirs) files'
-    in aux [] files
+            aux ((root, sub_dir) :: sub_dirs) sub_files files'
+    in aux [] [] files
   in
 
   let collate : index_file list -> index_element list * (int * int) =

++++++ ocaml-bisect_ppx.patch ++++++
--- /var/tmp/diff_new_pack.eXggWH/_old  2023-05-23 14:53:55.422263143 +0200
+++ /var/tmp/diff_new_pack.eXggWH/_new  2023-05-23 14:53:55.426263166 +0200
@@ -1,43 +1,3 @@
-From 1901191edf2ebd6a9161e4bf828a0d24c2124f3f Mon Sep 17 00:00:00 2001
-From: Patrick Ferris <patr...@sirref.org>
-Date: Fri, 26 Aug 2022 16:57:27 +0100
-Subject: Update to ppxlib 0.27.0
-
----
- src/ppx/instrument.ml | 6 +++---
- 1 file changed, 3 insertions(+), 3 deletions(-)
-
-diff --git a/src/ppx/instrument.ml b/src/ppx/instrument.ml
-index 59c3c01..6d67cf2 100644
---- a/src/ppx/instrument.ml
-+++ b/src/ppx/instrument.ml
-@@ -490,7 +490,7 @@ struct
-         |> List.map (fun (location_trace, p'') ->
-           (location_trace, Pat.alias ~loc ~attrs p'' x))
- 
--      | Ppat_construct (c, Some p') ->
-+      | Ppat_construct (c, Some (_, p')) ->
-         recur ~enclosing_loc p'
-         |> List.map (fun (location_trace, p'') ->
-           (location_trace, Pat.construct ~loc ~attrs c (Some p'')))
-@@ -708,7 +708,7 @@ struct
-       List.map (fun (_, p') -> bound_variables p') fields
-       |> List.flatten
- 
--    | Ppat_construct (_, Some p') | Ppat_variant (_, Some p')
-+    | Ppat_construct (_, Some (_, p')) | Ppat_variant (_, Some p')
-     | Ppat_constraint (p', _) | Ppat_lazy p' | Ppat_exception p'
-     | Ppat_open (_, p') ->
-       bound_variables p'
-@@ -725,7 +725,7 @@ struct
-     | Ppat_type _ | Ppat_variant _ ->
-       true
- 
--    | Ppat_alias (p', _) | Ppat_construct (_, Some p')
-+    | Ppat_alias (p', _) | Ppat_construct (_, Some (_, p'))
-     | Ppat_constraint (p', _) | Ppat_lazy p' | Ppat_exception p'
-     | Ppat_open (_, p') ->
-       has_polymorphic_variant p'
 From cc442a08e3a2e0e18deb48f3a696076ac0986728 Mon Sep 17 00:00:00 2001
 From: Antonio Nuno Monteiro <anmonte...@gmail.com>
 Date: Thu, 13 Oct 2022 10:24:57 -0700

Reply via email to