siteSearchSpider :: SpiderDefinition PageType Match
siteSearchSpider = let
  Just crawlHostURI = URI.parseURI "http://local.lasvegassun.com"
  in defaultSpider (ScrapedPage 0 mempty)
        & name .~ "wfind-spider"
        & startUrl .~ (ScrapedPage 1 "START", "http://local.lasvegassun.com")
        & extract .~ parse 0 [] crawlHostURI
siteSearchSpider :: SpiderDefinition PageType Match
siteSearchSpider = let
  Just crawlHostURI = URI.parseURI "http://local.lasvegassun.com"
  in defaultSpider (ScrapedPage 0 mempty)
        & name .~ "wfind-spider"
        & startUrl .~ (ScrapedPage 1 "START", "http://local.lasvegassun.com")
        & extract .~ parse 0 [] crawlHostURI
siteSearchSpider = let
  Just crawlHostURI = URI.parseURI "http://local.lasvegassun.com"
  in defaultSpider (ScrapedPage 0 mempty)
        & name .~ "wfind-spider"
        & startUrl .~ (ScrapedPage 1 "START", "http://local.lasvegassun.com")
        & extract .~ parse 0 [] crawlHostURI