@@ -175,7 +175,7 @@ named n f s
176-- | Old name for 'named'
176-- | Old name for 'named'
177ell :: Text -> Traversal' Element Element
177ell :: Text -> Traversal' Element Element
178−ell = named . CI.mk
178+ell n = named $ CI.mk n
180-- | Traverse elements which has the specified name.
180-- | Traverse elements which has the specified name.
181el :: Name -> Traversal' Element Element
181el :: Name -> Traversal' Element Element
@@ -213,4 +213,4 @@ comment = nodes . traverse . _Comment
213-- | 'plate' traverses over its sub-elements.
213-- | 'plate' traverses over its sub-elements.
214instance Plated Element where
214instance Plated Element where
215 plate = nodes . traverse . _Element
215 plate = nodes . traverse . _Element
216− {-# INLINE plate #-}
216+ {-# INLINE plate #-}