Haskell循环，直到按下某个键

Question

我想每n秒运行一个程序，刷新屏幕(某些行)，直到我按下q键。如何做到这一点？

我已经检查了ansi-terminal包，以刷新屏幕的某些部分。我猜我应该使用haskeline来获得循环和用户按键。我说的对吗？

如果是，我在haskeline中找不到该函数。

Answer 1

你可以很简单地做到这一点，只需使用Control.Concurrent的IO Monad和threadDelay即可。

import Control.Concurrent

refreshInterval :: Int
refreshInterval = 10000 -- in microseconds

refreshAction :: IO ()
refreshAction = undefined

main :: IO ()
main = do refreshAction
          threadDelay refreshInterval
          main

有了这种结构，您现在可以通过任何提供键盘输入的库来合并键盘退出。例如，使用haskeline，您可以使用getInputChar读取输入，将其与您的退出字符进行比较，并在必要时退出。但是直接这样做会让你在线程使用threadDelay休眠时无法读取输入。如果您的输入库缓冲区读取，这可能是可以的--当程序开始检查输入时，就会发生quit/break操作。如果你需要更多的东西，你可以按照评论中的建议通过forkIO推出你自己的解决方案，或者转移到一个更好地处理这类事情的库中。

有趣的是，在我的OpenCV库中，使用包装OpenCV的HighGUI功能的库中的部分就可以很容易地解决这个问题。我不建议只为这个功能引入依赖，但它确实从技术上解决了您的问题。如果任何人感兴趣，我会将其添加到此答案中。