diff --git a/Text/RSS/Lens.hs b/Text/RSS/Lens.hs
--- a/Text/RSS/Lens.hs
+++ b/Text/RSS/Lens.hs
@@ -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 #-}
diff --git a/rss-conduit.cabal b/rss-conduit.cabal
--- a/rss-conduit.cabal
+++ b/rss-conduit.cabal
@@ -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
diff --git a/test/Arbitrary.hs b/test/Arbitrary.hs
--- a/test/Arbitrary.hs
+++ b/test/Arbitrary.hs
@@ -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