今天要给大家带来的是一个使用Haskell语言和tagsoup库相结合的爬虫程序，主要是用来采集同花顺财经上的相关视频。前段时间一个粉丝跟我要了好久，由于太忙了，一直拖到现在。正好给大家分享一下，一起学习交流。
```haskell
import Network.HTTP
import Text.HTML.TagSoup
-- 定义一个函数，用于发送HTTP请求并获取HTML内容
getHTML :: String -> IO String
getHTML url = do
proxy <- createHTTPProxy "https://www.duoip.cn/get_proxy" 8000
response <- simpleHTTP { proxy = proxy } $ getRequest url
return $ responseBody response
-- 定义一个函数，用于解析HTML内容并获取视频链接
parseHTML :: String -> IO [String]
parseHTML html = do
soup <- parseTagsoup html
let videos = [a ! "href" | a <- findElementsByTagName "a" soup]
return videos
-- 主函数，用于启动整个爬虫程序
main :: IO ()
main = do
html <- getHTML "https://www.10jqka.com.cn/"
links <- parseHTML html
forM_ links $ print
```以上代码首先定义了一个函数getHTML，用于发送HTTP请求并获取HTML内容。这个函数使用了createHTTPProxy函数来创建一个HTTP代理，使用simpleHTTP函数发送请求并获取响应。然后定义了一个函数parseHTML，用于解析HTML内容并获取视频链接。这个函数使用parseTagsoup函数解析HTML内容，然后使用findElementsByTagName函数找到所有的"a"标签，使用"href"属性获取链接。
最后定义了一个主函数main，用于启动整个爬虫程序。这个函数调用getHTML函数获取HTML内容，然后调用parseHTML函数解析内容并获取链接，最后使用forM_函数遍历链接并打印出来。希望今天的内容大家能喜欢。