Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/user-interface/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Haskell异常:在MVar操作中无限期阻塞线程 getPage::MVar字符串->IO字符串 getPage m=do url_Haskell - Fatal编程技术网

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]]