module Text.RSS.Lens where
import Lens.Simple
import Text.RSS.Types
import URI.ByteString
$(makeLensesBy (\n -> Just (n ++ "L")) ''RssCategory)
$(makeLensesBy (\n -> Just (n ++ "L")) ''RssEnclosure)
$(makeLensesBy (\n -> Just (n ++ "L")) ''RssSource)
$(makeLensesBy
(let f "itemCategories" = Nothing
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)
itemEnclosureL :: Traversal' RssItem RssEnclosure
itemEnclosureL inj a@RssItem { itemEnclosure = e } = (\x -> a { itemEnclosure = e }) <$> sequenceA (map inj e)
$(makeLensesBy (\n -> Just (n ++ "L")) ''RssTextInput)
$(makeLensesBy (\n -> Just (n ++ "L")) ''RssCloud)
$(makeLensesBy (\n -> Just (n ++ "L")) ''RssImage)
$(makeLensesBy
(let f "channelItems" = Nothing
f "channelCategories" = Nothing
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)
channelCategoriesL :: Traversal' RssDocument RssCategory
channelCategoriesL inj a@RssDocument { channelCategories = c } = (\x -> a { channelCategories = c }) <$> sequenceA (map inj c)