rss-conduit 0.4.2.2 → 0.4.3.0

raw patch · 3 files changed

+8/−10 lines, 3 filesdep ~vinylPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: vinyl

API changes (from Hackage documentation)

Files

• rss-conduit.cabal +4/−4
• src/Text/RSS/Extensions.hs +0/−1
• src/Text/RSS/Lens.hs +4/−5

@@ -1,15 +1,15 @@ name: rss-conduit-version: 0.4.2.2+version: 0.4.3.0 cabal-version: >=1.10 build-type: Simple license: PublicDomain license-file: LICENSE-maintainer: koral att mailoo dott org+maintainer: chahine.moreau@gmail.com synopsis: Streaming parser/renderer for the RSS standard. description:     Cf README file. category: XML, Conduit-author: koral+author: chahine.moreau@gmail.com extra-source-files:     README.md @@ -53,7 +53,7 @@         time >=1.5,         timerep >=2.0,         uri-bytestring >=0.2,-        vinyl -any,+        vinyl >= 0.9,         xml-conduit >=1.5,         xml-types -any     default-language: Haskell2010

@@ -23,7 +23,6 @@ import           Data.Vinyl.Core import           Data.Vinyl.TypeLevel import           Data.XML.Types-import           Debug.Trace import           GHC.Generics import           Text.Atom.Conduit.Parse import           Text.Atom.Types

@@ -5,7 +5,6 @@ -- {{{ Imports import           Text.RSS.Types -import           Data.Singletons.Prelude import           Data.Vinyl.Lens import           Data.Vinyl.TypeLevel import           Lens.Simple@@ -32,8 +31,8 @@ itemEnclosureL inj a@RssItem { itemEnclosure = e } = (\x -> a { itemEnclosure = e }) <$> traverse inj e {-# INLINE itemEnclosureL #-} -itemExtensionL :: SingI a => RElem a e (RIndex a e) => Lens' (RssItem e) (RssItemExtension a)-itemExtensionL = itemExtensionsL . f . rlens sing where+itemExtensionL :: RElem a e (RIndex a e) => Lens' (RssItem e) (RssItemExtension a)+itemExtensionL = itemExtensionsL . f . rlens where   f inj (RssItemExtensions a) = RssItemExtensions <$> inj a {-# INLINE itemExtensionL #-} @@ -55,7 +54,7 @@ channelCategoriesL inj a@RssDocument { channelCategories = c } = (\x -> a { channelCategories = c }) <$> traverse inj c {-# INLINE channelCategoriesL #-} -channelExtensionL :: SingI a => RElem a e (RIndex a e) => Lens' (RssDocument e) (RssChannelExtension a)-channelExtensionL = channelExtensionsL . f . rlens sing where+channelExtensionL :: RElem a e (RIndex a e) => Lens' (RssDocument e) (RssChannelExtension a)+channelExtensionL = channelExtensionsL . f . rlens where   f inj (RssChannelExtensions a) = RssChannelExtensions <$> inj a {-# INLINE channelExtensionL #-}