Script 'mail_helper' called by obssrc
Hello community,

here is the log from the commit of package ghc-HsYAML for openSUSE:Factory 
checked in at 2023-10-18 21:25:47
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-HsYAML (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-HsYAML.new.31755 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-HsYAML"

Wed Oct 18 21:25:47 2023 rev:23 rq:1118465 version:0.2.1.3

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-HsYAML/ghc-HsYAML.changes    2023-10-08 
12:21:45.629582775 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-HsYAML.new.31755/ghc-HsYAML.changes 
2023-10-18 21:26:00.149336792 +0200
@@ -1,0 +2,11 @@
+Sat Oct 14 11:01:30 UTC 2023 - Peter Simons <psim...@suse.com>
+
+- Update HsYAML to version 0.2.1.3.
+  ### 0.2.1.3
+
+  _2023-10-14_
+
+  * Pacify `x-partial` warning of GHC 9.8
+  * Tested with GHC 7.10 - 9.8.1
+
+-------------------------------------------------------------------

Old:
----
  HsYAML-0.2.1.2.tar.gz

New:
----
  HsYAML-0.2.1.3.tar.gz

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

Other differences:
------------------
++++++ ghc-HsYAML.spec ++++++
--- /var/tmp/diff_new_pack.lAny0a/_old  2023-10-18 21:26:00.921364758 +0200
+++ /var/tmp/diff_new_pack.lAny0a/_new  2023-10-18 21:26:00.925364903 +0200
@@ -20,7 +20,7 @@
 %global pkgver %{pkg_name}-%{version}
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.2.1.2
+Version:        0.2.1.3
 Release:        0
 Summary:        Pure Haskell YAML 1.2 processor
 License:        GPL-2.0-or-later

++++++ HsYAML-0.2.1.2.tar.gz -> HsYAML-0.2.1.3.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/HsYAML-0.2.1.2/ChangeLog.md 
new/HsYAML-0.2.1.3/ChangeLog.md
--- old/HsYAML-0.2.1.2/ChangeLog.md     2001-09-09 03:46:40.000000000 +0200
+++ new/HsYAML-0.2.1.3/ChangeLog.md     2001-09-09 03:46:40.000000000 +0200
@@ -1,5 +1,12 @@
 See also http://pvp.haskell.org/faq
 
+### 0.2.1.3
+
+_2023-10-14_
+
+* Pacify `x-partial` warning of GHC 9.8
+* Tested with GHC 7.10 - 9.8.1
+
 ### 0.2.1.2
 
 _2023-09-29_
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/HsYAML-0.2.1.2/HsYAML.cabal 
new/HsYAML-0.2.1.3/HsYAML.cabal
--- old/HsYAML-0.2.1.2/HsYAML.cabal     2001-09-09 03:46:40.000000000 +0200
+++ new/HsYAML-0.2.1.3/HsYAML.cabal     2001-09-09 03:46:40.000000000 +0200
@@ -1,6 +1,6 @@
 cabal-version:       1.14
 name:                HsYAML
-version:             0.2.1.2
+version:             0.2.1.3
 
 synopsis:            Pure Haskell YAML 1.2 processor
 homepage:            https://github.com/haskell-hvr/HsYAML
@@ -15,7 +15,7 @@
 category:            Text
 build-type:          Simple
 tested-with:
-  GHC == 9.8.0
+  GHC == 9.8.1
   GHC == 9.6.3
   GHC == 9.4.7
   GHC == 9.2.8
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/HsYAML-0.2.1.2/src/Data/YAML/Event.hs 
new/HsYAML-0.2.1.3/src/Data/YAML/Event.hs
--- old/HsYAML-0.2.1.2/src/Data/YAML/Event.hs   2001-09-09 03:46:40.000000000 
+0200
+++ new/HsYAML-0.2.1.3/src/Data/YAML/Event.hs   2001-09-09 03:46:40.000000000 
+0200
@@ -174,13 +174,19 @@
 
     -- consume {Begin,End}Directives and emit DocumentStart event
     goDirs :: DInfo -> Tok2EvStream
-    goDirs m (Y.Token { Y.tCode = Y.BeginDirective } : rest) = goDir1 m rest
-    goDirs m toks0@(Y.Token { Y.tCode = Y.BeginComment} : _) = goComment toks0 
(goDirs m)
+    goDirs m (Y.Token { Y.tCode = Y.BeginDirective } : rest) =
+      goDir1 m rest
+    goDirs m toks0@(Y.Token { Y.tCode = Y.BeginComment} : _) =
+      goComment toks0 (goDirs m)
     goDirs m (tok@Y.Token { Y.tCode = Y.DirectivesEnd } : rest)
       | Just (1,mi) <- diVer m = Right (getEvPos (DocumentStart 
(DirEndMarkerVersion mi)) tok) : go1 m rest
       | otherwise              = Right (getEvPos (DocumentStart 
DirEndMarkerNoVersion) tok) : go1 m rest
-    goDirs _ xs@(Y.Token { Y.tCode = Y.BeginDocument } : _) = err xs
-    goDirs m xs = Right ( getEvPos (DocumentStart NoDirEndMarker) (head xs) ): 
go1 m xs
+    goDirs _ xs@(Y.Token { Y.tCode = Y.BeginDocument } : _) =
+      err xs
+    goDirs m xs@(tok : _) =
+      Right (getEvPos (DocumentStart NoDirEndMarker) tok) : go1 m xs
+    goDirs _ xs =
+      err xs
 
     -- single directive
     goDir1 :: DInfo -> [Y.Token] -> EvStream
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/HsYAML-0.2.1.2/src-test/Main.hs 
new/HsYAML-0.2.1.3/src-test/Main.hs
--- old/HsYAML-0.2.1.2/src-test/Main.hs 2001-09-09 03:46:40.000000000 +0200
+++ new/HsYAML-0.2.1.3/src-test/Main.hs 2001-09-09 03:46:40.000000000 +0200
@@ -146,7 +146,7 @@
     forM_  lgrp $ \YT.Token{..} -> do
       let tText' | null tText = ""
                  | any (== ' ') tText = replicate tLineChar ' ' ++ show tText
-                 | otherwise  = replicate (tLineChar+1) ' ' ++ tail (init 
(show tText))
+                 | otherwise  = replicate (tLineChar+1) ' ' ++ drop 1 (init 
(show tText))
       hPutStrLn stdout $ printf "<stdin>:%d:%d: %-15s| %s" tLine tLineChar 
(show tCode) tText'
     hPutStrLn stdout ""
   hFlush stdout

Reply via email to