Hello community, here is the log from the commit of package ghc-atom-conduit for openSUSE:Factory checked in at 2017-08-31 20:50:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-atom-conduit (Old) and /work/SRC/openSUSE:Factory/.ghc-atom-conduit.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-atom-conduit" Thu Aug 31 20:50:09 2017 rev:2 rq:513204 version:0.4.0.3 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-atom-conduit/ghc-atom-conduit.changes 2017-05-17 10:50:20.664672358 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-atom-conduit.new/ghc-atom-conduit.changes 2017-08-31 20:50:10.888356645 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:06:00 UTC 2017 - psimons@suse.com + +- Update to version 0.4.0.3. + +------------------------------------------------------------------- Old: ---- atom-conduit-0.4.0.1.tar.gz New: ---- atom-conduit-0.4.0.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-atom-conduit.spec ++++++ --- /var/tmp/diff_new_pack.c3vmK4/_old 2017-08-31 20:50:11.756234821 +0200 +++ /var/tmp/diff_new_pack.c3vmK4/_new 2017-08-31 20:50:11.760234260 +0200 @@ -19,7 +19,7 @@ %global pkg_name atom-conduit %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.4.0.1 +Version: 0.4.0.3 Release: 0 Summary: Streaming parser/renderer for the Atom 1.0 standard (RFC 4287) License: WTFPL ++++++ atom-conduit-0.4.0.1.tar.gz -> atom-conduit-0.4.0.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/atom-conduit-0.4.0.1/Text/Atom/Conduit/Parse.hs new/atom-conduit-0.4.0.3/Text/Atom/Conduit/Parse.hs --- old/atom-conduit-0.4.0.1/Text/Atom/Conduit/Parse.hs 2016-09-25 21:04:05.000000000 +0200 +++ new/atom-conduit-0.4.0.3/Text/Atom/Conduit/Parse.hs 2017-06-15 12:22:21.000000000 +0200 @@ -87,7 +87,7 @@ -- | Like 'tagName' but ignores the namespace. tagName' :: MonadThrow m => Text -> AttrParser a -> (a -> ConduitM Event o m b) -> ConduitM Event o m (Maybe b) -tagName' t = tagPredicate (\n -> nameLocalName n == t && nameNamespace n == Just "http://www.w3.org/2005/Atom") +tagName' t = tag' (matching $ \n -> nameLocalName n == t && nameNamespace n == Just "http://www.w3.org/2005/Atom") -- | Tag which content is a date-time that follows RFC 3339 format. tagDate :: MonadThrow m => Text -> ConduitM Event o m (Maybe UTCTime) @@ -100,7 +100,7 @@ tagIgnoreAttrs' name handler = tagName' name ignoreAttrs $ const handler xhtmlContent :: MonadThrow m => ConduitM Event o m Text -xhtmlContent = fmap (decodeUtf8 . toByteString) $ takeAllTreesContent =$= Render.renderBuilder def =$= foldC +xhtmlContent = fmap (decodeUtf8 . toByteString) $ many_ takeAnyTreeContent =$= Render.renderBuilder def =$= foldC projectC :: Monad m => Fold a a' b b' -> Conduit a m b @@ -138,7 +138,7 @@ -- > <uri>http://example.com/~johndoe</uri> -- > </author> atomPerson :: MonadThrow m => Text -> ConduitM Event o m (Maybe AtomPerson) -atomPerson name = tagIgnoreAttrs' name $ (manyYield' (choose piece) =$= parser) <* many ignoreAllTreesContent where +atomPerson name = tagIgnoreAttrs' name $ (manyYield' (choose piece) =$= parser) <* many ignoreAnyTreeContent where parser = getZipConduit $ AtomPerson <$> ZipConduit (projectC _PersonName =$= headRequiredC "Missing or invalid <name> element") <*> ZipConduit (projectC _PersonEmail =$= headDefC "") diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/atom-conduit-0.4.0.1/Text/Atom/Conduit/Render.hs new/atom-conduit-0.4.0.3/Text/Atom/Conduit/Render.hs --- old/atom-conduit-0.4.0.1/Text/Atom/Conduit/Render.hs 2016-09-25 14:58:14.000000000 +0200 +++ new/atom-conduit-0.4.0.3/Text/Atom/Conduit/Render.hs 2017-06-15 12:22:21.000000000 +0200 @@ -1,4 +1,3 @@ -{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RankNTypes #-} -- | Streaming renderers for the Atom 1.0 standard. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/atom-conduit-0.4.0.1/Text/Atom/Lens.hs new/atom-conduit-0.4.0.3/Text/Atom/Lens.hs --- old/atom-conduit-0.4.0.1/Text/Atom/Lens.hs 2016-09-25 15:46:16.000000000 +0200 +++ new/atom-conduit-0.4.0.3/Text/Atom/Lens.hs 2017-06-15 12:22:21.000000000 +0200 @@ -1,6 +1,6 @@ {-# LANGUAGE RankNTypes #-} {-# LANGUAGE TemplateHaskell #-} -module Text.Atom.Lens where +module Text.Atom.Lens (module Text.Atom.Lens) where -- {{{ Imports import Lens.Simple @@ -70,7 +70,7 @@ ] ''AtomPerson --personUriL :: Traversal' AtomPerson (URIRef a) ---personUriL inj a@AtomPerson { personUri = u } = (\x -> a { personUri = x }) <$> sequenceA (fmap inj u) +--personUriL inj a@AtomPerson { personUri = u } = (\x -> a { personUri = x }) <$> traverse inj u makeLensesFor [ ("sourceAuthors", "sourceAuthorsL") diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/atom-conduit-0.4.0.1/Text/Atom/Types.hs new/atom-conduit-0.4.0.3/Text/Atom/Types.hs --- old/atom-conduit-0.4.0.1/Text/Atom/Types.hs 2016-09-25 14:57:39.000000000 +0200 +++ new/atom-conduit-0.4.0.3/Text/Atom/Types.hs 2017-06-15 12:22:21.000000000 +0200 @@ -28,7 +28,7 @@ -- > </entry> -- > -- > </feed> -module Text.Atom.Types where +module Text.Atom.Types (module Text.Atom.Types) where -- {{{ Imports import Data.NonNull diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/atom-conduit-0.4.0.1/atom-conduit.cabal new/atom-conduit-0.4.0.3/atom-conduit.cabal --- old/atom-conduit-0.4.0.1/atom-conduit.cabal 2016-09-25 21:06:33.000000000 +0200 +++ new/atom-conduit-0.4.0.3/atom-conduit.cabal 2017-06-15 12:22:21.000000000 +0200 @@ -1,5 +1,5 @@ name: atom-conduit -version: 0.4.0.1 +version: 0.4.0.3 synopsis: Streaming parser/renderer for the Atom 1.0 standard (RFC 4287). description: Please refer to README. license: PublicDomain @@ -35,7 +35,7 @@ , time >= 1.5 , timerep >= 2.0 , uri-bytestring >= 0.2 - , xml-conduit >= 1.4 + , xml-conduit >= 1.5 , xml-types default-language: Haskell2010