Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-gridtables for openSUSE:Factory 
checked in at 2026-11-06 19:48:54
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-gridtables (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-gridtables.new.3759290 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-gridtables"

Fri Nov  6 19:48:54 2026 rev:5 rq:1395533 version:0.1.1.1

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-gridtables/ghc-gridtables.changes    
2025-09-30 17:44:00.757369696 +0200
+++ 
/work/SRC/openSUSE:Factory/.ghc-gridtables.new.3759290/ghc-gridtables.changes   
    2026-11-06 19:55:26.294805033 +0100
@@ -1,0 +2,25 @@
+Sun Oct 25 18:06:37 UTC 2026 - Peter Simons <[email protected]>
+
+- Update gridtables to version 0.1.1.1.
+  ## gridtables-0.1.1.1
+
+  -   Fix a bug in computing table alignments with colspans (#3).
+      If a header cell with colspans has an alignment, that
+      alignment is given to all the columns spanned instead of
+      just the first.
+
+  -   Bump version bound for doclayout.
+
+  -   Remove call to partial function `tail`.
+
+  -   Allow containers 0.8.
+
+  -   Fix list of tested GHC versions in cabal file.
+
+-------------------------------------------------------------------
+Sun Sep 27 16:29:16 UTC 2026 - Peter Simons <[email protected]>
+
+- Update gridtables to version 0.1.1.0 revision 1.
+  Upstream has revised the Cabal build instructions on Hackage.
+
+-------------------------------------------------------------------

Old:
----
  gridtables-0.1.1.0.tar.gz

New:
----
  gridtables-0.1.1.1.tar.gz

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

Other differences:
------------------
++++++ ghc-gridtables.spec ++++++
--- /var/tmp/diff_new_pack.ygBPEk/_old  2026-11-06 19:55:27.187842425 +0100
+++ /var/tmp/diff_new_pack.ygBPEk/_new  2026-11-06 19:55:27.190842550 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package ghc-gridtables
 #
-# Copyright (c) 2025 SUSE LLC
+# Copyright (c) 2026 SUSE LLC
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -20,7 +20,7 @@
 %global pkgver %{pkg_name}-%{version}
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.1.1.0
+Version:        0.1.1.1
 Release:        0
 Summary:        Parser for reStructuredText-style grid tables
 License:        MIT

++++++ gridtables-0.1.1.0.tar.gz -> gridtables-0.1.1.1.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/gridtables-0.1.1.0/CHANGELOG.md 
new/gridtables-0.1.1.1/CHANGELOG.md
--- old/gridtables-0.1.1.0/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200
+++ new/gridtables-0.1.1.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200
@@ -2,6 +2,21 @@
 
 `gridtables` uses [PVP Versioning][].
 
+## gridtables-0.1.1.1
+
+-   Fix a bug in computing table alignments with colspans (#3).
+    If a header cell with colspans has an alignment, that
+    alignment is given to all the columns spanned instead of
+    just the first.
+
+-   Bump version bound for doclayout.
+
+-   Remove call to partial function `tail`.
+
+-   Allow containers 0.8.
+
+-   Fix list of tested GHC versions in cabal file.
+
 ## gridtables-0.1.1.0
 
 Released 2025-09-22.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/gridtables-0.1.1.0/gridtables.cabal 
new/gridtables-0.1.1.1/gridtables.cabal
--- old/gridtables-0.1.1.0/gridtables.cabal     2001-09-09 03:46:40.000000000 
+0200
+++ new/gridtables-0.1.1.1/gridtables.cabal     2001-09-09 03:46:40.000000000 
+0200
@@ -1,6 +1,6 @@
 cabal-version:       2.4
 name:                gridtables
-version:             0.1.1.0
+version:             0.1.1.1
 synopsis:            Parser for reStructuredText-style grid tables.
 description:         Provides a parser for plain-text representations of
                      tables. This package supports table headers, cells
@@ -12,15 +12,19 @@
 license-file:        LICENSE
 author:              Albert Krewinkel
 maintainer:          Albert Krewinkel <[email protected]>
-copyright:           © 2022-2023 Posit Software, PBC
+copyright:           © 2022-2026 Posit Software, PBC
 category:            Text
 extra-doc-files:     README.md
                    , CHANGELOG.md
-tested-with:         GHC == 8.6.5
-                     GHC == 8.8.4
-                     GHC == 8.10.7
-                     GHC == 9.0.2
-                     GHC == 9.2.2
+tested-with:         GHC == 8.10.7
+                   , GHC == 9.0
+                   , GHC == 9.2
+                   , GHC == 9.4
+                   , GHC == 9.6
+                   , GHC == 9.8
+                   , GHC == 9.10
+                   , GHC == 9.12
+                   , GHC == 9.14
 
 source-repository head
   type:                git
@@ -56,8 +60,8 @@
 library
   import:              common-options
   hs-source-dirs:      src
-  build-depends:       containers            >= 0.6      && < 0.8
-                     , doclayout             >= 0.4      && < 0.6
+  build-depends:       containers            >= 0.6      && < 0.9
+                     , doclayout             >= 0.4      && < 0.7
   exposed-modules:     Text.GridTable
                      , Text.GridTable.ArrayTable
                      , Text.GridTable.Parse
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/gridtables-0.1.1.0/src/Text/GridTable/Trace.hs 
new/gridtables-0.1.1.1/src/Text/GridTable/Trace.hs
--- old/gridtables-0.1.1.0/src/Text/GridTable/Trace.hs  2001-09-09 
03:46:40.000000000 +0200
+++ new/gridtables-0.1.1.1/src/Text/GridTable/Trace.hs  2001-09-09 
03:46:40.000000000 +0200
@@ -27,7 +27,7 @@
 import Data.Array.ST
 import Data.Function (on)
 import Data.List (foldl')
-import Data.Maybe (fromMaybe)
+import Data.Maybe (fromMaybe, listToMaybe)
 import Data.Set (Set)
 import Data.Text (Text)
 import Text.DocLayout (charWidth, realLength)
@@ -411,14 +411,19 @@
       colseps = Set.toAscList $ gridColSeps traceInfo
       rowindex = Map.fromList $ zip rowseps [1..]
       colindex = Map.fromList $ zip colseps [1..]
-      colwidths = [ b - a - 1 | (b, a) <- zip (tail colseps) colseps ]
+      colwidths = [ b - a - 1 | (b, a) <- zip (drop 1 colseps) colseps ]
+      alignSpecs = case partSeps of
+                     partSep:_ -> partSepColSpec partSep
+                     []        -> fromMaybe [] colSpecsFirstLine
+      -- A segment of the alignment line may span multiple columns;
+      -- each column gets the alignment of the segment containing it.
+      alignFor (left, right) = fromMaybe AlignDefault $ listToMaybe
+        [ colAlign cs | cs <- alignSpecs
+                      , colStart cs - 1 <= left
+                      , right <= colEnd cs ]
       colSpecs = zip
-                 (map colAlign
-                   (case partSeps of
-                       partSep:_ -> partSepColSpec partSep
-                       []        -> fromMaybe [] colSpecsFirstLine)
-                   ++ repeat AlignDefault)
-                 (map fromCharCol colwidths)
+                  (map alignFor (zip colseps (drop 1 colseps)))
+                  (map fromCharCol colwidths)
       lastCol = ColIndex (length colwidths)
       mlastLine = Set.lookupMax (gridRowSeps traceInfo)
       tableHead = case partSeps of
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/gridtables-0.1.1.0/test/test-gridtables.hs 
new/gridtables-0.1.1.1/test/test-gridtables.hs
--- old/gridtables-0.1.1.0/test/test-gridtables.hs      2001-09-09 
03:46:40.000000000 +0200
+++ new/gridtables-0.1.1.1/test/test-gridtables.hs      2001-09-09 
03:46:40.000000000 +0200
@@ -528,6 +528,42 @@
                      , [Cell "3" 1 1]
                      ]
     ]
+  , testGroup "markers spanning multiple columns"
+    [ testCase "marker in first line" $
+      let gt = T.unlines
+               [ "+:------------:+---------------:+"
+               , "| Heading 1    | Heading 2      |"
+               , "+---+----+-----+----+------+----+"
+               , "| A | B  | C   | D  |  E   | F  |"
+               , "+---+----+-----+----+------+----+"
+               ]
+      in arrayTableColSpecs <$> parse' gridTable gt @?=
+         Right (listArray (1, 6)
+                [ (AlignCenter, 3)
+                , (AlignCenter, 4)
+                , (AlignCenter, 5)
+                , (AlignRight, 4)
+                , (AlignRight, 6)
+                , (AlignRight, 4)
+                ])
+
+    , testCase "marker in part separator" $
+      let gt = T.unlines
+               [ "+-------------+-------+"
+               , "| head        | c     |"
+               , "+:===========:+======:+"
+               , "| ab          | c     |"
+               , "+------+------+-------+"
+               , "| a    | b    | c     |"
+               , "+------+------+-------+"
+               ]
+      in arrayTableColSpecs <$> parse' gridTable gt @?=
+         Right (listArray (1, 3)
+                [ (AlignCenter, 6)
+                , (AlignCenter, 6)
+                , (AlignRight, 7)
+                ])
+    ]
   ]
 
 defaultAlign :: [Int] -> Array ColIndex (Alignment, Int)

Reply via email to