Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-commonmark for openSUSE:Factory 
checked in at 2023-11-08 22:17:40
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-commonmark (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-commonmark.new.17445 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-commonmark"

Wed Nov  8 22:17:40 2023 rev:14 rq:1124057 version:0.2.4

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-commonmark/ghc-commonmark.changes    
2023-07-04 15:22:48.814361987 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-commonmark.new.17445/ghc-commonmark.changes 
2023-11-08 22:17:57.191669767 +0100
@@ -1,0 +2,16 @@
+Fri Oct 27 17:00:53 UTC 2023 - Peter Simons <psim...@suse.com>
+
+- Update commonmark to version 0.2.4.
+  ## 0.2.4
+
+    * Do not parse hard line breaks in fenced codeblock info (#116,
+      Michael Howell). This change makes commonmark-hs conform to the spec
+      and behave like other implementations when an info string in a code
+      block ends with a backslash.
+
+    * [API change] Commonmark.Inlines now exports `pEscapedSymbol`
+      (#116, Michael Howell).
+
+    * Tokenize combining marks as WordChars not Symbol (#114).
+
+-------------------------------------------------------------------

Old:
----
  commonmark-0.2.3.tar.gz

New:
----
  commonmark-0.2.4.tar.gz

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

Other differences:
------------------
++++++ ghc-commonmark.spec ++++++
--- /var/tmp/diff_new_pack.deZeWz/_old  2023-11-08 22:17:57.999699452 +0100
+++ /var/tmp/diff_new_pack.deZeWz/_new  2023-11-08 22:17:57.999699452 +0100
@@ -20,7 +20,7 @@
 %global pkgver %{pkg_name}-%{version}
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.2.3
+Version:        0.2.4
 Release:        0
 Summary:        Pure Haskell commonmark parser
 License:        BSD-3-Clause

++++++ commonmark-0.2.3.tar.gz -> commonmark-0.2.4.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.2.3/changelog.md 
new/commonmark-0.2.4/changelog.md
--- old/commonmark-0.2.3/changelog.md   2001-09-09 03:46:40.000000000 +0200
+++ new/commonmark-0.2.4/changelog.md   2001-09-09 03:46:40.000000000 +0200
@@ -1,5 +1,17 @@
 # Changelog for commonmark
 
+## 0.2.4
+
+  * Do not parse hard line breaks in fenced codeblock info (#116,
+    Michael Howell). This change makes commonmark-hs conform to the spec
+    and behave like other implementations when an info string in a code
+    block ends with a backslash.
+
+  * [API change] Commonmark.Inlines now exports `pEscapedSymbol`
+    (#116, Michael Howell).
+
+  * Tokenize combining marks as WordChars not Symbol (#114).
+
 ## 0.2.3
 
   * Re-export Text.Parsec.Pos from Commonmark.Types (Fraser
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.2.3/commonmark.cabal 
new/commonmark-0.2.4/commonmark.cabal
--- old/commonmark-0.2.3/commonmark.cabal       2001-09-09 03:46:40.000000000 
+0200
+++ new/commonmark-0.2.4/commonmark.cabal       2001-09-09 03:46:40.000000000 
+0200
@@ -1,6 +1,6 @@
 cabal-version:  2.2
 name:           commonmark
-version:        0.2.3
+version:        0.2.4
 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.2.3/src/Commonmark/Blocks.hs 
new/commonmark-0.2.4/src/Commonmark/Blocks.hs
--- old/commonmark-0.2.3/src/Commonmark/Blocks.hs       2001-09-09 
03:46:40.000000000 +0200
+++ new/commonmark-0.2.4/src/Commonmark/Blocks.hs       2001-09-09 
03:46:40.000000000 +0200
@@ -52,7 +52,7 @@
 import           Commonmark.Tag
 import           Commonmark.TokParsers
 import           Commonmark.ReferenceMap
-import           Commonmark.Inlines        (pEscaped, pLinkDestination,
+import           Commonmark.Inlines        (pEscapedSymbol, pLinkDestination,
                                             pLinkLabel, pLinkTitle)
 import           Commonmark.Entity         (unEntity)
 import           Commonmark.Tokens
@@ -1042,7 +1042,7 @@
              guard $ fencelength >= 3
              skipWhile (hasType Spaces)
              let infoTok = noneOfToks (LineEnd : [Symbol '`' | c == '`'])
-             info <- T.strip . unEntity <$> many (pEscaped <|> infoTok)
+             info <- T.strip . unEntity <$> many (pEscapedSymbol <|> infoTok)
              lookAhead $ void lineEnd <|> eof
 
              let infotoks = tokenize "info string" info
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.2.3/src/Commonmark/Inlines.hs 
new/commonmark-0.2.4/src/Commonmark/Inlines.hs
--- old/commonmark-0.2.3/src/Commonmark/Inlines.hs      2001-09-09 
03:46:40.000000000 +0200
+++ new/commonmark-0.2.4/src/Commonmark/Inlines.hs      2001-09-09 
03:46:40.000000000 +0200
@@ -24,6 +24,7 @@
   , pLinkDestination
   , pLinkTitle
   , pEscaped
+  , pEscapedSymbol
   , processEmphasis
   , processBrackets
   , pBacktickSpan
@@ -937,6 +938,12 @@
   bs <- symbol '\\'
   option bs $ satisfyTok asciiSymbol <|> lineEnd
 
+-- parses backslash + punctuation, but not backslashed newline
+pEscapedSymbol :: Monad m => ParsecT [Tok] s m Tok
+pEscapedSymbol = do
+  bs <- symbol '\\'
+  option bs $ satisfyTok asciiSymbol
+
 asciiSymbol :: Tok -> Bool
 asciiSymbol (Tok (Symbol c) _ _) = isAscii c
 asciiSymbol _                    = False
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.2.3/src/Commonmark/Tokens.hs 
new/commonmark-0.2.4/src/Commonmark/Tokens.hs
--- old/commonmark-0.2.3/src/Commonmark/Tokens.hs       2001-09-09 
03:46:40.000000000 +0200
+++ new/commonmark-0.2.4/src/Commonmark/Tokens.hs       2001-09-09 
03:46:40.000000000 +0200
@@ -10,7 +10,7 @@
   , untokenize
   ) where
 
-import           Unicode.Char    (isAlphaNum)
+import           Unicode.Char    (isAlphaNum, isMark)
 import           Unicode.Char.General.Compat  (isSpace)
 import           Data.Text       (Text)
 import qualified Data.Text       as T
@@ -42,7 +42,9 @@
     -- everything else gets in a token by itself.
     f '\r' '\n' = True
     f ' ' ' '   = True
-    f x   y     = isAlphaNum x && isAlphaNum y
+    f x   y     = isWordChar x && isWordChar y
+
+    isWordChar c  = isAlphaNum c || isMark c
 
     go !_pos [] = []
     go !pos (!t:ts) = -- note that t:ts are guaranteed to be nonempty
@@ -57,7 +59,7 @@
          '\n' -> Tok LineEnd pos t :
                  go (incSourceLine (setSourceColumn pos 1) 1) ts
          thead
-           | isAlphaNum thead ->
+           | isWordChar thead ->
                  Tok WordChars pos t :
                  go (incSourceColumn pos (T.length t)) ts
            | isSpace thead ->
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/commonmark-0.2.3/test/regression.md 
new/commonmark-0.2.4/test/regression.md
--- old/commonmark-0.2.3/test/regression.md     2001-09-09 03:46:40.000000000 
+0200
+++ new/commonmark-0.2.4/test/regression.md     2001-09-09 03:46:40.000000000 
+0200
@@ -203,3 +203,19 @@
 <p><a href="http://www.example.com/";>test </a>
 <a href="http://www.example.com/";> test</a></p>
 ````````````````````````````````
+
+Issue #114.
+```````````````````````````````` example
+*.*̀.
+.
+<p>*.*̀.</p>
+````````````````````````````````
+
+Issue #115.
+```````````````````````````````` example
+~~~\
+x
+.
+<pre><code class="language-\">x
+</code></pre>
+````````````````````````````````

Reply via email to