From 349f7b7d50a4b136d3dcc75bab11c03ec271ffeb Mon Sep 17 00:00:00 2001 From: vi Date: Mon, 23 Jun 2014 19:32:43 +0800 Subject: [PATCH] Combinators: don't enable the ViewPatterns extension; use Kliesli composition in (/&). --- src/Text/Taggy/Combinators.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Text/Taggy/Combinators.hs b/src/Text/Taggy/Combinators.hs index 2de72b8..9df054a 100644 --- a/src/Text/Taggy/Combinators.hs +++ b/src/Text/Taggy/Combinators.hs @@ -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