Haskell异常:在MVar操作中无限期阻塞线程 getPage::MVar字符串->IO字符串 getPage m=do url
我知道你想做什么,但代码实际上并没有达到你想要的效果。特别是,这是一条线Haskell异常:在MVar操作中无限期阻塞线程 getPage::MVar字符串->IO字符串 getPage m=do url,haskell,Haskell,我知道你想做什么,但代码实际上并没有达到你想要的效果。特别是,这是一条线 pages我知道你想做什么,但代码并没有真正做到你想要的。特别是,这是一条线 我看到的页面。我已经把代码sequence.[putMVar m(“url”++show I)|我明白了。我已经把代码sequence.[putMVar m(“url”++show I)| I getPage :: MVar String -> IO String getPage m = do url <- takeMVar m
pages我知道你想做什么,但代码并没有真正做到你想要的。特别是,这是一条线
我看到的页面。我已经把代码sequence.[putMVar m(“url”++show I)|我明白了。我已经把代码sequence.[putMVar m(“url”++show I)| I
getPage :: MVar String -> IO String
getPage m = do
url <- takeMVar m
putStrLn $ url ++ " is downloaded!"
return url
testDownload :: IO ()
testDownload = do
m <- newMVar "url1"
pages <- replicateConcurrently 10 (getPage m)
sequence_ [putMVar m ("url" ++ show i) | i <- [2..11]]