Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-megaparsec for openSUSE:Factory checked in at 2026-06-10 16:03:46 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-megaparsec (Old) and /work/SRC/openSUSE:Factory/.ghc-megaparsec.new.2375 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-megaparsec" Wed Jun 10 16:03:46 2026 rev:23 rq:1358407 version:9.7.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-megaparsec/ghc-megaparsec.changes 2025-07-31 17:46:30.724930922 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-megaparsec.new.2375/ghc-megaparsec.changes 2026-06-10 16:06:21.709559937 +0200 @@ -1,0 +2,15 @@ +Thu May 21 20:24:42 UTC 2026 - Peter Simons <[email protected]> + +- Update megaparsec to version 9.7.1. + ## Megaparsec 9.7.1 + + * Typo fixes and compatibility with `QuickCheck >= 2.17` for + `megaparsec-tests`. + +------------------------------------------------------------------- +Wed Dec 31 16:10:40 UTC 2025 - Peter Simons <[email protected]> + +- Update megaparsec to version 9.7.0 revision 1. + Upstream has revised the Cabal build instructions on Hackage. + +------------------------------------------------------------------- Old: ---- megaparsec-9.7.0.tar.gz New: ---- megaparsec-9.7.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-megaparsec.spec ++++++ --- /var/tmp/diff_new_pack.ONZ5af/_old 2026-06-10 16:06:24.165661719 +0200 +++ /var/tmp/diff_new_pack.ONZ5af/_new 2026-06-10 16:06:24.169661885 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-megaparsec # -# Copyright (c) 2024 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 @@ -19,7 +19,7 @@ %global pkg_name megaparsec %global pkgver %{pkg_name}-%{version} Name: ghc-%{pkg_name} -Version: 9.7.0 +Version: 9.7.1 Release: 0 Summary: Monadic parser combinators License: BSD-2-Clause ++++++ megaparsec-9.7.0.tar.gz -> megaparsec-9.7.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/CHANGELOG.md new/megaparsec-9.7.1/CHANGELOG.md --- old/megaparsec-9.7.0/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,10 @@ *Megaparsec follows [SemVer](https://semver.org/).* +## Megaparsec 9.7.1 + +* Typo fixes and compatibility with `QuickCheck >= 2.17` for + `megaparsec-tests`. + ## Megaparsec 9.7.0 * Implemented correct handling of wide Unicode characters in error messages. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/README.md new/megaparsec-9.7.1/README.md --- old/megaparsec-9.7.0/README.md 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/README.md 2001-09-09 03:46:40.000000000 +0200 @@ -4,7 +4,7 @@ [](https://hackage.haskell.org/package/megaparsec) [](http://stackage.org/nightly/package/megaparsec) [](http://stackage.org/lts/package/megaparsec) - +[](https://github.com/mrkkrp/megaparsec/actions/workflows/ci.yaml) * [Features](#features) * [Core features](#core-features) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/Text/Megaparsec/Class.hs new/megaparsec-9.7.1/Text/Megaparsec/Class.hs --- old/megaparsec-9.7.0/Text/Megaparsec/Class.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/Text/Megaparsec/Class.hs 2001-09-09 03:46:40.000000000 +0200 @@ -126,7 +126,7 @@ -- to the point where the next object starts. -- -- Note that if @r@ fails, the original error message is reported as if - -- without 'withRecovery'. In no way recovering parser @r@ can influence + -- without 'withRecovery'. In no way can the recovering parser @r@ influence -- error messages. -- -- @since 4.4.0 @@ -245,7 +245,7 @@ m (Tokens s) -- | Extract the specified number of tokens from the input stream and - -- return them packed as a chunk of stream. If there is not enough tokens + -- return them packed as a chunk of stream. If there are not enough tokens -- in the stream, a parse error will be signaled. It's guaranteed that if -- the parser succeeds, the requested number of tokens will be returned. -- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/Text/Megaparsec/Error/Builder.hs new/megaparsec-9.7.1/Text/Megaparsec/Error/Builder.hs --- old/megaparsec-9.7.0/Text/Megaparsec/Error/Builder.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/Text/Megaparsec/Error/Builder.hs 2001-09-09 03:46:40.000000000 +0200 @@ -47,7 +47,6 @@ import Data.Proxy import Data.Set (Set) import qualified Data.Set as E -import Data.Typeable (Typeable) import GHC.Generics import Text.Megaparsec.Error import Text.Megaparsec.Stream @@ -57,7 +56,7 @@ -- | Auxiliary type for construction of trivial parse errors. data ET s = ET (Maybe (ErrorItem (Token s))) (Set (ErrorItem (Token s))) - deriving (Typeable, Generic) + deriving (Generic) deriving instance (Eq (Token s)) => Eq (ET s) @@ -84,7 +83,7 @@ -- | Auxiliary type for construction of fancy parse errors. newtype EF e = EF (Set (ErrorFancy e)) - deriving (Eq, Ord, Data, Typeable, Generic) + deriving (Eq, Ord, Data, Generic) instance (Ord e) => Semigroup (EF e) where EF xs0 <> EF xs1 = EF (E.union xs0 xs1) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/Text/Megaparsec/Error.hs new/megaparsec-9.7.1/Text/Megaparsec/Error.hs --- old/megaparsec-9.7.0/Text/Megaparsec/Error.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/Text/Megaparsec/Error.hs 2001-09-09 03:46:40.000000000 +0200 @@ -83,7 +83,7 @@ Label (NonEmpty Char) | -- | End of input EndOfInput - deriving (Show, Read, Eq, Ord, Data, Typeable, Generic, Functor) + deriving (Show, Read, Eq, Ord, Data, Generic, Functor) instance (NFData t) => NFData (ErrorItem t) @@ -101,7 +101,7 @@ ErrorIndentation Ordering Pos Pos | -- | Custom error data ErrorCustom e - deriving (Show, Read, Eq, Ord, Data, Typeable, Generic, Functor) + deriving (Show, Read, Eq, Ord, Data, Generic, Functor) instance (NFData a) => NFData (ErrorFancy a) where rnf (ErrorFail str) = rnf str @@ -129,7 +129,7 @@ -- -- Type of the first argument was changed in the version /7.0.0/. FancyError Int (Set (ErrorFancy e)) - deriving (Typeable, Generic) + deriving (Generic) deriving instance ( Show (Token s), @@ -168,8 +168,7 @@ {-# INLINE mappend #-} instance - ( Show s, - Show (Token s), + ( Show (Token s), Show e, ShowErrorComponent e, VisualStream s, @@ -270,13 +269,6 @@ Eq (ParseErrorBundle s e) deriving instance - ( Typeable s, - Typeable (Token s), - Typeable e - ) => - Typeable (ParseErrorBundle s e) - -deriving instance ( Data s, Data (Token s), Ord (Token s), diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/Text/Megaparsec/Internal.hs new/megaparsec-9.7.1/Text/Megaparsec/Internal.hs --- old/megaparsec-9.7.0/Text/Megaparsec/Internal.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/Text/Megaparsec/Internal.hs 2001-09-09 03:46:40.000000000 +0200 @@ -440,10 +440,10 @@ pNotFollowedBy :: (Stream s) => ParsecT e s m a -> ParsecT e s m () pNotFollowedBy p = ParsecT $ \s@(State input o _ _) _ _ eok eerr -> let what = maybe EndOfInput (Tokens . nes . fst) (take1_ input) - unexpect u = TrivialError o (pure u) E.empty - cok' _ _ _ = eerr (unexpect what) s + unexpected u = TrivialError o (pure u) E.empty + cok' _ _ _ = eerr (unexpected what) s cerr' _ _ = eok () s mempty - eok' _ _ _ = eerr (unexpect what) s + eok' _ _ _ = eerr (unexpected what) s eerr' _ _ = eok () s mempty in unParser p s cok' cerr' eok' eerr' {-# INLINE pNotFollowedBy #-} @@ -521,14 +521,14 @@ ParsecT e s m (Tokens s) pTokens f tts = ParsecT $ \s@(State input o pst de) cok _ eok eerr -> let pxy = Proxy :: Proxy s - unexpect pos' u = + unexpected pos' u = let us = pure u ps = (E.singleton . Tokens . NE.fromList . chunkToTokens pxy) tts in TrivialError pos' us ps len = chunkLength pxy tts in case takeN_ len input of Nothing -> - eerr (unexpect o EndOfInput) s + eerr (unexpected o EndOfInput) s Just (tts', input') -> if f tts tts' then @@ -538,7 +538,7 @@ else cok tts' st mempty else let ps = (Tokens . NE.fromList . chunkToTokens pxy) tts' - in eerr (unexpect o ps) (State input o pst de) + in eerr (unexpected o ps) (State input o pst de) {-# INLINE pTokens #-} pTakeWhileP :: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/Text/Megaparsec/Pos.hs new/megaparsec-9.7.1/Text/Megaparsec/Pos.hs --- old/megaparsec-9.7.0/Text/Megaparsec/Pos.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/Text/Megaparsec/Pos.hs 2001-09-09 03:46:40.000000000 +0200 @@ -36,7 +36,6 @@ import Control.DeepSeq import Control.Exception import Data.Data (Data) -import Data.Typeable (Typeable) import GHC.Generics ---------------------------------------------------------------------------- @@ -49,7 +48,7 @@ -- -- @since 5.0.0 newtype Pos = Pos Int - deriving (Show, Eq, Ord, Data, Generic, Typeable, NFData) + deriving (Show, Eq, Ord, Data, Generic, NFData) -- | Construction of 'Pos' from 'Int'. The function throws -- 'InvalidPosException' when given a non-positive argument. @@ -105,7 +104,7 @@ newtype InvalidPosException = -- | Contains the actual value that was passed to 'mkPos' InvalidPosException Int - deriving (Eq, Show, Data, Typeable, Generic) + deriving (Eq, Show, Data, Generic) instance Exception InvalidPosException @@ -126,7 +125,7 @@ -- | Column number sourceColumn :: !Pos } - deriving (Show, Read, Eq, Ord, Data, Typeable, Generic) + deriving (Show, Read, Eq, Ord, Data, Generic) instance NFData SourcePos diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/Text/Megaparsec/State.hs new/megaparsec-9.7.1/Text/Megaparsec/State.hs --- old/megaparsec-9.7.0/Text/Megaparsec/State.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/Text/Megaparsec/State.hs 2001-09-09 03:46:40.000000000 +0200 @@ -29,7 +29,6 @@ import Control.DeepSeq (NFData) import Data.Data (Data) -import Data.Typeable (Typeable) import GHC.Generics import {-# SOURCE #-} Text.Megaparsec.Error (ParseError) import Text.Megaparsec.Pos @@ -53,7 +52,7 @@ -- @since 8.0.0 stateParseErrors :: [ParseError s e] } - deriving (Typeable, Generic) + deriving (Generic) deriving instance ( Show (ParseError s e), @@ -110,7 +109,7 @@ -- | Prefix to prepend to offending line pstateLinePrefix :: String } - deriving (Show, Eq, Data, Typeable, Generic) + deriving (Show, Eq, Data, Generic) instance (NFData s) => NFData (PosState s) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/Text/Megaparsec.hs new/megaparsec-9.7.1/Text/Megaparsec.hs --- old/megaparsec-9.7.0/Text/Megaparsec.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/Text/Megaparsec.hs 2001-09-09 03:46:40.000000000 +0200 @@ -386,8 +386,8 @@ -- | Register a 'ParseError' for later reporting. This action does not end -- parsing and has no effect except for adding the given 'ParseError' to the -- collection of “delayed” 'ParseError's which will be taken into --- consideration at the end of parsing. Only if this collection is empty the --- parser will succeed. This is the main way to report several parse errors +-- consideration at the end of parsing. Only if this collection is empty will +-- the parser succeed. This is the main way to report several parse errors -- at once. -- -- @since 8.0.0 @@ -523,7 +523,7 @@ oneOf cs = satisfy (\x -> elem x cs) {-# INLINE oneOf #-} --- | As the dual of 'oneOf', @'noneOf' ts@ succeeds if the current token +-- | As the dual of 'oneOf', @'noneOf' ts@ succeeds if the current token is -- /not/ in the supplied list of tokens @ts@. Returns the parsed character. -- Note that this parser cannot automatically generate the “expected” -- component of error message, so usually you should label it manually with @@ -539,7 +539,7 @@ -- @since 7.0.0 noneOf :: (Foldable f, MonadParsec e s m) => - -- | Collection of taken we should not match + -- | Collection of tokens we should not match f (Token s) -> m (Token s) noneOf cs = satisfy (\x -> notElem x cs) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/megaparsec-9.7.0/megaparsec.cabal new/megaparsec-9.7.1/megaparsec.cabal --- old/megaparsec-9.7.0/megaparsec.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/megaparsec-9.7.1/megaparsec.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,6 +1,6 @@ cabal-version: 2.4 name: megaparsec -version: 9.7.0 +version: 9.7.1 license: BSD-2-Clause license-file: LICENSE.md maintainer: Mark Karpov <[email protected]> @@ -9,7 +9,7 @@ Paolo Martini <[email protected]>, Daan Leijen <[email protected]> -tested-with: ghc ==9.6.3 ghc ==9.8.2 ghc ==9.10.1 +tested-with: ghc ==9.10.3 ghc ==9.12.4 ghc ==9.14.1 homepage: https://github.com/mrkkrp/megaparsec bug-reports: https://github.com/mrkkrp/megaparsec/issues synopsis: Monadic parser combinators @@ -61,7 +61,7 @@ base >=4.15 && <5, bytestring >=0.2 && <0.13, case-insensitive >=1.2 && <1.3, - containers >=0.5 && <0.8, + containers >=0.5 && <0.9, deepseq >=1.3 && <1.6, mtl >=2.2.2 && <3, parser-combinators >=1.0 && <2, @@ -88,7 +88,7 @@ build-depends: base >=4.15 && <5, bytestring >=0.2 && <0.13, - containers >=0.5 && <0.8, + containers >=0.5 && <0.9, criterion >=0.6.2.1 && <1.7, deepseq >=1.3 && <1.6, megaparsec, @@ -110,7 +110,7 @@ build-depends: base >=4.15 && <5, bytestring >=0.2 && <0.13, - containers >=0.5 && <0.8, + containers >=0.5 && <0.9, deepseq >=1.3 && <1.6, megaparsec, text >=0.2 && <2.2,
