alpmestan/taggy
1
1
Fork 0
mirror of https://github.com/alpmestan/taggy.git synced 2024-08-16 10:20:30 +03:00
Code Issues Projects Releases Wiki Activity

(Combinators.//) filters on trees, rather than subtrees.

Browse Source
This commit is contained in:
vi 2014-06-24 15:04:42 +08:00
parent e7487d337c
commit 4f9300ba12
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Text/Taggy/Combinators.hs
View File

@ -23,7 +23,7 @@ innerText = mconcat . map getContent . eltChildren
where getContent = \case { NodeElement e -> innerText e; NodeContent x -> x }
(//) :: Element -> (Element -> Bool) -> [Element]
(//) = flip filter . subtrees
(//) = flip filter . trees
(/&) :: Element -> [(Element -> Bool)] -> [Element]
(/&) element [] = [element]