Hello community,

here is the log from the commit of package ghc-commonmark for openSUSE:Factory 
checked in at 2020-08-18 12:24:38
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-commonmark (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-commonmark.new.3399 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-commonmark"

Tue Aug 18 12:24:38 2020 rev:2 rq:825796 version:0.1.0.2

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-commonmark/ghc-commonmark.changes    
2020-08-10 14:52:26.183824309 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-commonmark.new.3399/ghc-commonmark.changes  
2020-08-18 12:24:41.867813741 +0200
@@ -1,0 +2,8 @@
+Thu Aug  6 07:56:57 UTC 2020 - [email protected]
+
+- Update commonmark to version 0.1.0.2.
+  ## 0.1.0.2
+
+  * Fix tight/loose list detection with multiple blank lines at end (#56).
+
+-------------------------------------------------------------------

Old:
----
  commonmark-0.1.0.1.tar.gz

New:
----
  commonmark-0.1.0.2.tar.gz

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

Other differences:
------------------
++++++ ghc-commonmark.spec ++++++
--- /var/tmp/diff_new_pack.u2LMVo/_old  2020-08-18 12:24:42.835814145 +0200
+++ /var/tmp/diff_new_pack.u2LMVo/_new  2020-08-18 12:24:42.839814147 +0200
@@ -19,7 +19,7 @@
 %global pkg_name commonmark
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.1.0.1
+Version:        0.1.0.2
 Release:        0
 Summary:        Pure Haskell commonmark parser
 License:        BSD-3-Clause

++++++ commonmark-0.1.0.1.tar.gz -> commonmark-0.1.0.2.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.1.0.1/changelog.md 
new/commonmark-0.1.0.2/changelog.md
--- old/commonmark-0.1.0.1/changelog.md 2020-07-23 23:40:55.000000000 +0200
+++ new/commonmark-0.1.0.2/changelog.md 2020-08-05 21:34:49.000000000 +0200
@@ -1,5 +1,9 @@
 # Changelog for commonmark
 
+## 0.1.0.2
+
+* Fix tight/loose list detection with multiple blank lines at end (#56).
+
 ## 0.1.0.1
 
 * Set source position when we add a token in gobbleSpaces (#54).
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.1.0.1/commonmark.cabal 
new/commonmark-0.1.0.2/commonmark.cabal
--- old/commonmark-0.1.0.1/commonmark.cabal     2020-07-23 21:39:20.000000000 
+0200
+++ new/commonmark-0.1.0.2/commonmark.cabal     2020-08-05 21:34:15.000000000 
+0200
@@ -1,6 +1,6 @@
 cabal-version:  2.2
 name:           commonmark
-version:        0.1.0.1
+version:        0.1.0.2
 synopsis:       Pure Haskell commonmark parser.
 description:
    This library provides the core data types and functions
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.1.0.1/src/Commonmark/Blocks.hs 
new/commonmark-0.1.0.2/src/Commonmark/Blocks.hs
--- old/commonmark-0.1.0.1/src/Commonmark/Blocks.hs     2020-07-24 
00:01:34.000000000 +0200
+++ new/commonmark-0.1.0.2/src/Commonmark/Blocks.hs     2020-08-05 
21:31:00.000000000 +0200
@@ -65,7 +65,6 @@
 #endif
 import           Data.Char                 (isAsciiUpper, isDigit, isSpace)
 import           Data.Dynamic
-import           Data.List                 (sort)
 import           Data.Text                 (Text)
 import qualified Data.Map.Strict           as M
 import qualified Data.Text                 as T
@@ -835,16 +834,15 @@
           let lidata = fromDyn (blockData cdata)
                                  (ListItemData (BulletList '*')
                                    0 False False)
-          let blanks = removeConsecutive $ sort $
-                         concat $ blockBlanks cdata :
+          let allblanks = concat $ blockBlanks cdata :
                                   map (blockBlanks . rootLabel)
                                   (filter ((== "List") . blockType .
                                    blockSpec . rootLabel) children)
           curline <- sourceLine <$> getPosition
-          let blanksAtEnd = case blanks of
+          let blanksAtEnd = case allblanks of
                                    (l:_) -> l >= curline - 1
                                    _     -> False
-          let blanksInside = case length blanks of
+          let blanksInside = case length (removeConsecutive allblanks) of
                                 n | n > 1     -> True
                                   | n == 1    -> not blanksAtEnd
                                   | otherwise -> False
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.1.0.1/test/regression.md 
new/commonmark-0.1.0.2/test/regression.md
--- old/commonmark-0.1.0.1/test/regression.md   2020-07-23 21:36:53.000000000 
+0200
+++ new/commonmark-0.1.0.2/test/regression.md   2020-08-05 20:58:02.000000000 
+0200
@@ -172,3 +172,25 @@
 </li>
 </ol>
 ````````````````````````````````
+
+Issue #56.
+
+```````````````````````````````` example
+- a
+  - b
+  - c
+
+
+
+.
+<ul>
+<li>a
+<ul>
+<li>b
+</li>
+<li>c
+</li>
+</ul>
+</li>
+</ul>
+````````````````````````````````


Reply via email to