rss-conduit 0.3.1.0 → 0.3.1.1

raw patch · 3 files changed

+12/−12 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Text/RSS/Lens.hs +9/−9
• rss-conduit.cabal +1/−1
• test/Arbitrary.hs +2/−2

@@ -1,5 +1,5 @@ {-# LANGUAGE TemplateHaskell #-}-module Text.RSS.Lens where+module Text.RSS.Lens (module Text.RSS.Lens) where  -- {{{ Imports import           Lens.Simple@@ -16,33 +16,33 @@  $(makeLensesBy   (let f "itemCategories" = Nothing-       f "itemEnclosure" = Nothing-       f n = Just (n ++ "L")+       f "itemEnclosure"  = Nothing+       f n                = Just (n ++ "L")    in f)   ''RssItem)  itemCategoriesL :: Traversal' RssItem RssCategory-itemCategoriesL inj a@RssItem { itemCategories = c } = (\x -> a { itemCategories = c }) <$> sequenceA (map inj c)+itemCategoriesL inj a@RssItem { itemCategories = c } = (\x -> a { itemCategories = c }) <$> traverse inj c {-# INLINE itemCategoriesL #-}  itemEnclosureL :: Traversal' RssItem RssEnclosure-itemEnclosureL inj a@RssItem { itemEnclosure = e } = (\x -> a { itemEnclosure = e }) <$> sequenceA (map inj e)+itemEnclosureL inj a@RssItem { itemEnclosure = e } = (\x -> a { itemEnclosure = e }) <$> traverse inj e {-# INLINE itemEnclosureL #-}  $(makeLensesBy (\n -> Just (n ++ "L")) ''RssTextInput) $(makeLensesBy (\n -> Just (n ++ "L")) ''RssCloud) $(makeLensesBy (\n -> Just (n ++ "L")) ''RssImage) $(makeLensesBy-  (let f "channelItems" = Nothing+  (let f "channelItems"      = Nothing        f "channelCategories" = Nothing-       f n = Just (n ++ "L")+       f n                   = Just (n ++ "L")   in f)   ''RssDocument)  channelItemsL :: Traversal' RssDocument RssItem-channelItemsL inj a@RssDocument { channelItems = i } = (\x -> a { channelItems = i }) <$> sequenceA (map inj i)+channelItemsL inj a@RssDocument { channelItems = i } = (\x -> a { channelItems = i }) <$> traverse inj i {-# INLINE channelItemsL #-}  channelCategoriesL :: Traversal' RssDocument RssCategory-channelCategoriesL inj a@RssDocument { channelCategories = c } = (\x -> a { channelCategories = c }) <$> sequenceA (map inj c)+channelCategoriesL inj a@RssDocument { channelCategories = c } = (\x -> a { channelCategories = c }) <$> traverse inj c {-# INLINE channelCategoriesL #-}

@@ -1,5 +1,5 @@ name:                rss-conduit-version:             0.3.1.0+version:             0.3.1.1 synopsis:            Streaming parser/renderer for the RSS standard. description:         Cf README file. license:             PublicDomain

@@ -1,7 +1,7 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GADTs             #-} -- | 'Arbitrary' instances used by RSS types.-module Arbitrary where+module Arbitrary (module Arbitrary) where  -- {{{ Imports import           Data.ByteString           (ByteString)@@ -127,5 +127,5 @@  instance Arbitrary RssURI where   arbitrary = oneof [RssURI <$> (arbitrary :: Gen (URIRef Absolute)), RssURI <$> (arbitrary :: Gen (URIRef Relative))]-  shrink (RssURI a@URI{}) = RssURI <$> shrink a+  shrink (RssURI a@URI{})         = RssURI <$> shrink a   shrink (RssURI a@RelativeRef{}) = RssURI <$> shrink a