ParseLgl.hs

main = do
  html <- getUrl "http://asd.com"
  getThreadLinks html

getUrl url = snd <$> curlGetString url curlOpts

getThreadLinks s = do
  xs <- runX $ (parseHtml s) >>> css "a" >>> getAttrValue "href"
  return $ map ((++) ourUrl2) . extractEvery 3 $ filter (\y -> isInfixOf "threads/" y && isInfixOf "page" y && (not . isInfixOf "http") y) xs                   

extractEvery m = map snd . filter (\(x,y) -> mod x m == 0) . zip [1..]