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: don't enable the ViewPatterns extension; use Kliesli composition in (/&).

Browse Source
This commit is contained in:
vi 2014-06-23 19:32:43 +08:00
parent a9c6224541
commit 349f7b7d50
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,4 @@
{-# LANGUAGE LambdaCase, ViewPatterns #-}
{-# LANGUAGE LambdaCase #-}
module Text.Taggy.Combinators (hasName, hasAttr, getAttr, innerText, (//), (/&), subtrees) where
@ -27,7 +27,7 @@ innerText = mconcat . map getContent . eltChildren
(/&) :: Element -> [(Element -> Bool)] -> [Element]
(/&) element [] = [element]
(/&) element (x:xs) = (=<<) (/& xs) . filter x . catElements $ eltChildren element
(/&) element (x:xs) = (/& xs) <=< filter x . catElements $ eltChildren element
subtrees :: Element -> [Element]
subtrees = ap (:) subtrees <=< catElements . eltChildren