Expose Text.Taggy.Combinators.

This commit is contained in:
vi 2014-06-23 17:20:02 +08:00
parent a4e6b9466a
commit 6a59eb9b36
2 changed files with 4 additions and 1 deletions

View File

@ -12,16 +12,18 @@ module Text.Taggy
, module Text.Taggy.Types , module Text.Taggy.Types
, module Text.Taggy.Parser , module Text.Taggy.Parser
, module Text.Taggy.DOM , module Text.Taggy.DOM
, module Text.Taggy.Combinators
) where ) where
import Data.Text (Text) import Data.Text (Text)
import Text.Taggy.Types import Text.Taggy.Types
import Text.Taggy.Parser import Text.Taggy.Parser
import Text.Taggy.DOM import Text.Taggy.DOM
import Text.Taggy.Combinators
linksIn :: [Tag] -> [Text] linksIn :: [Tag] -> [Text]
linksIn = map attrValue linksIn = map attrValue
. filter ((=="href") . attrKey) . filter ((=="href") . attrKey)
. concat . concat
. map attrs . map attrs
. tagsNamed "a" . tagsNamed "a"

View File

@ -15,6 +15,7 @@ cabal-version: >=1.10
library library
exposed-modules: Text.Taggy, exposed-modules: Text.Taggy,
Text.Taggy.Combinators,
Text.Taggy.DOM, Text.Taggy.DOM,
Text.Taggy.Entities, Text.Taggy.Entities,
Text.Taggy.Parser, Text.Taggy.Parser,