mirror of
https://github.com/alpmestan/taggy.git
synced 2024-09-11 15:05:40 +03:00
Expose Text.Taggy.Combinators.
This commit is contained in:
parent
a4e6b9466a
commit
6a59eb9b36
@ -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"
|
||||||
|
@ -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,
|
||||||
|
Loading…
Reference in New Issue
Block a user