@@ -153,7 +153,7 @@ entire :: Traversal' Element Element
153entire f e@(Element _ _ ns) = com <$> f e <*> traverse (_Element (entire f)) ns where
153entire f e@(Element _ _ ns) = com <$> f e <*> traverse (_Element (entire f)) ns where
154 com (Element n a _) = Element n a
154 com (Element n a _) = Element n a
156−-- | Traverse elements which has the specified *local* name.
156+-- | Traverse elements which has the specified *local* name.
157named :: Text -> Traversal' Element Element
157named :: Text -> Traversal' Element Element
158named n f s
158named n f s
159 | nameLocalName (elementName s) == n = f s
159 | nameLocalName (elementName s) == n = f s
@@ -186,10 +186,10 @@ instance Plated Element where
186 plate = nodes . traverse . _Element
186 plate = nodes . traverse . _Element
188-- | Combine two 'Traversal's just like XPath's slash.
188-- | Combine two 'Traversal's just like XPath's slash.
191-- l ./ m ≡ l . 'plate' . m
191-- l ./ m ≡ l . 'plate' . m
193−(./) :: Plated a => Traversal s t a a -> Traversal a a u v -> Traversal s t u v
193+(./) :: (Applicative f, Plated c) => LensLike f s t c c -> Over p f c c a b -> Over p f s t a b
194−l ./ m = l . plate . m
194+(./) = (...)
195−{-# INLINE (./) #-}
195+{-# INLINE (./) #-}