xml-lens 0.1.5 → 0.1.6

raw patch · 2 files changed

+11/−8 lines, 2 filesdep ~containersdep ~lensdep ~text

Dependency ranges changed: containers, lens, text, xml-conduit

Files

• Text/XML/Lens.hs +9/−6
• xml-lens.cabal +2/−2

@@ -20,6 +20,7 @@     , localName
     , el
     , ell
+    , named
     -- ** Attributes
     , attributeIs
     , attributeSatisfies
@@ -152,16 +153,18 @@ entire f e@(Element _ _ ns) = com <$> f e <*> traverse (_Element (entire f)) ns where
     com (Element n a _) = Element n a
 
+-- | Traverse elements which has the specified *local* name. 
+named :: Text -> Traversal' Element Element
+named n f s
+    | nameLocalName (elementName s) == n = f s
+    | otherwise = pure s
+
+ell = named
+
 -- | Traverse elements which has the specified name.
 el :: Name -> Traversal' Element Element
 el n f s
     | elementName s == n = f s
-    | otherwise = pure s
-
--- | Traverse elements which has the specified *local* name. 
-ell :: Text -> Traversal' Element Element
-ell n f s
-    | nameLocalName (elementName s) == n = f s
     | otherwise = pure s
 
 attributeSatisfies :: Name -> (Text -> Bool) -> Traversal' Element Element

@@ -1,5 +1,5 @@ name:                xml-lens
-version:             0.1.5
+version:             0.1.6
 synopsis:            Lenses, traversals, prisms for xml-conduit
 description:         Lens-based DOM selector
 homepage:            https://github.com/fumieval/xml-lens
@@ -20,4 +20,4 @@   default-language:   Haskell2010
   ghc-options: -Wall
   exposed-modules:     Text.XML.Lens
-  build-depends:       base ==4.*, lens >= 4.0 && < 4.2, containers >= 0.4.0 && < 0.6, text == 0.11.*, xml-conduit >= 1.1 && < 1.3+  build-depends:       base ==4.*, lens >= 4.0 && < 4.4, containers >= 0.4.0 && < 0.7, text >= 0.7 && <2, xml-conduit >= 1.1 && < 1.4