Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package cabal-plan for openSUSE:Factory 
checked in at 2025-08-03 13:37:38
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/cabal-plan (Old)
 and      /work/SRC/openSUSE:Factory/.cabal-plan.new.1085 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "cabal-plan"

Sun Aug  3 13:37:38 2025 rev:19 rq:1297146 version:0.7.6.1

Changes:
--------
--- /work/SRC/openSUSE:Factory/cabal-plan/cabal-plan.changes    2025-06-11 
16:28:31.233465632 +0200
+++ /work/SRC/openSUSE:Factory/.cabal-plan.new.1085/cabal-plan.changes  
2025-08-03 13:38:07.501228826 +0200
@@ -1,0 +2,7 @@
+Tue Jul 29 16:56:43 UTC 2025 - Peter Simons <[email protected]>
+
+- Update cabal-plan to version 0.7.6.1.
+  Upstream has not updated the file "ChangeLog.md" since the last
+  release.
+
+-------------------------------------------------------------------

Old:
----
  cabal-plan-0.7.6.0.tar.gz

New:
----
  cabal-plan-0.7.6.1.tar.gz

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

Other differences:
------------------
++++++ cabal-plan.spec ++++++
--- /var/tmp/diff_new_pack.IITr4B/_old  2025-08-03 13:38:09.253301498 +0200
+++ /var/tmp/diff_new_pack.IITr4B/_new  2025-08-03 13:38:09.265301995 +0200
@@ -19,7 +19,7 @@
 %global pkg_name cabal-plan
 %global pkgver %{pkg_name}-%{version}
 Name:           %{pkg_name}
-Version:        0.7.6.0
+Version:        0.7.6.1
 Release:        0
 Summary:        Library and utility for processing cabal's plan.json file
 License:        GPL-2.0-or-later

++++++ cabal-plan-0.7.6.0.tar.gz -> cabal-plan-0.7.6.1.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/cabal-plan-0.7.6.0/cabal-plan.cabal 
new/cabal-plan-0.7.6.1/cabal-plan.cabal
--- old/cabal-plan-0.7.6.0/cabal-plan.cabal     2001-09-09 03:46:40.000000000 
+0200
+++ new/cabal-plan-0.7.6.1/cabal-plan.cabal     2001-09-09 03:46:40.000000000 
+0200
@@ -1,6 +1,6 @@
 cabal-version:      2.2
 name:               cabal-plan
-version:            0.7.6.0
+version:            0.7.6.1
 synopsis:           Library and utility for processing cabal's plan.json file
 description:
   This package provides a library (see "Cabal.Plan") for decoding @plan.json@ 
files as
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/cabal-plan-0.7.6.0/src-exe/LicenseReport.hs 
new/cabal-plan-0.7.6.1/src-exe/LicenseReport.hs
--- old/cabal-plan-0.7.6.0/src-exe/LicenseReport.hs     2001-09-09 
03:46:40.000000000 +0200
+++ new/cabal-plan-0.7.6.1/src-exe/LicenseReport.hs     2001-09-09 
03:46:40.000000000 +0200
@@ -21,7 +21,6 @@
 import           Data.Map                               (Map)
 import           Data.List                              (nub)
 import qualified Data.Map                               as Map
-import           Data.Semigroup
 import           Data.Set                               (Set)
 import qualified Data.Set                               as Set
 import qualified Data.Text                              as T
@@ -29,7 +28,7 @@
 import qualified Data.Version                           as DV
 import           Distribution.PackageDescription
 import           Distribution.PackageDescription.Parsec
-import           Distribution.Utils.Path
+import           Distribution.Utils.Path                (getSymbolicPath)
 import           Distribution.Pretty
 import           System.Directory
 import           System.FilePath
@@ -117,7 +116,7 @@
         rootPkgUnitIds = Set.fromList (map uId rootPkgUnits)
 
         -- the component of interest
-        Just root@Unit { uPId = PkgId pn0 _ } = Map.lookup uid0 (pjUnits plan)
+        root@Unit { uPId = PkgId pn0 _ } = Map.findWithDefault (error $ 
"cannot find " ++ show uid0) uid0 (pjUnits plan)
 
         fwdDeps = planJsonIdGraph' plan
         revDeps = invertMap fwdDeps
@@ -131,7 +130,7 @@
 
     let printInfo :: UnitId -> IO ()
         printInfo uid = do
-          let Just u = Map.lookup uid (pjUnits plan)
+          let u = Map.findWithDefault (error $ "cannot find " ++ show uid) uid 
(pjUnits plan)
 
               PkgId (PkgName pn) pv = uPId u
               isB = uType u == UnitTypeBuiltin

Reply via email to