@@ -153,7 +153,7 @@ entire :: Traversal' Element Element
153153entire f e@(Element _ _ ns) = com <$> f e <*> traverse (_Element (entire f)) ns where
154154 com (Element n a _) = Element n a
155155
156−-- | Traverse elements which has the specified *local* name.
156+-- | Traverse elements which has the specified *local* name.
157157named :: Text -> Traversal' Element Element
158158named n f s
159159 | nameLocalName (elementName s) == n = f s
@@ -186,10 +186,10 @@ instance Plated Element where
186186 plate = nodes . traverse . _Element
187187
188188-- | Combine two 'Traversal's just like XPath's slash.
189−--
190−-- @
189+--
190+-- @
191191-- l ./ m ≡ l . 'plate' . m
192192-- @
193−(./) :: Plated a => Traversal s t a a -> Traversal a a u v -> Traversal s t u v
194−l ./ m = l . plate . m
195−{-# INLINE (./) #-}
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+(./) = (...)
195+{-# INLINE (./) #-}