module Main (main) where
import System.Exit (exitFailure)
import Network.CrawlChain.CrawlAction
import Text.HTML.CrawlChain.HtmlFiltering
main :: IO ()
main = do
match extractLinks "text" ["link"]
match extractLinks "" ["link"]
match extractLinks "sdfsdf" ["link", "link2"]
match (extractLinksFilteringAll unevaluated unevaluated unevaluated) "textbla" ["link"]
match (extractLinksFilteringAll unevaluated unevaluated (any (=="bla"))) "textbla" ["link"]
match (extractLinksFilteringAll unevaluated unevaluated (not . any (=="bla"))) "textbla" []
match extractLinks "" ["link"]
match extractLinks "