我有这个功能
let tid = forkIO $ sequence_ ioOps
let ioOps = take 200 $ cycle $ intersperse (threadDelay (1000000*60*20)) $ mapM putStrLn stoJeLuka我知道这不漂亮,但我只是在偷偷摸摸。
我正在尝试运行一个脚本,它在特定的时间段输出stoJeLuka :: [String]中提供的一个字符串。
我的问题是,我的mapM在我希望之前对putStrLn进行评估。如何只创建一个list :: [IO a]而不对这些putStrLn进行评估?
发布于 2015-01-11 12:18:49
mapM基本上是sequence . map,这意味着它将被评估并变成一个动作。
您只想简单地使用map putStrLn --这将创建一个类型为[IO ()]的列表,而不执行所需的操作。当您想要打印它时,只需对列表进行sequence,或者调用foldl (>>) (return ()),就像在mapM_中一样。
发布于 2015-01-11 12:17:38
您的问题有点不清楚,因为您还没有真正解释您希望代码做什么。但有些东西看起来很可疑。具体来说,mapM putStrLn stoJeLuka是一个生成列表的IO操作;它实际上不是一个列表。因此,对其调用intersperse将产生类型错误。您可能打算使用map或fmap而不是mapM。我猜您的代码实际上可能已经这样做了,并且您在抱怨当这些东西相对于其他一些您没有显示的代码被执行时。
https://stackoverflow.com/questions/27886602
复制相似问题