@@ -159,6 +159,7 @@ named n f s
159 | nameLocalName (elementName s) == n = f s
159 | nameLocalName (elementName s) == n = f s
160 | otherwise = pure s
160 | otherwise = pure s
162+ell :: Text -> Traversal' Element Element
162ell = named
163ell = named
164-- | Traverse elements which has the specified name.
165-- | Traverse elements which has the specified name.