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