Haskell:Euterpea PORMIDI警告：获取\u空闲\u输出\u缓冲区（）等待在1000毫秒后超时

嗨，我试着用Euterpea弹一首钢琴曲，但在弹了几秒钟后，它只给了我错误消息：

PortMidi warning: get_free_output_buffer() wait timed out after 1000ms. 

不断重复，直到我中断程序。我正在使用Windows，根据他们网站上的快速教程，我不需要安装任何附加程序来使用库。这段代码足以获取错误消息：

let caChord = chord [c 3 qn, a 2 qn]
    doubleCa = times 2 caChord
    lowerHand = line [f 2 qn, doubleCa]
in play $ chord [line [times 3 (line [e 5 en, f 5 en]),times 3 (line [d 5 en, f 5 en]),times 3 (line [c 5 en, f 5 en]),times 3 (line [bf 4 en, f 5 en])], times 4 lowerHand] 

---

看起来，考虑到我还没有找到任何关于它的帖子，但在没有尝试的情况下就遇到了这个错误，这应该是一个非常明显的问题。

PortMidi源代码可能会为您指出一个解决方案

根据源代码的注释，出现警告的一些可能原因可能是对PortMidi的调用未生成任何消息、MIDI驱动程序挂起或内存不足。在任何情况下，PortMidi的实现都会继续循环并生成警告，直到缓冲区中有消息为止

基于以下评论，PortMidi似乎不再被开发或更新以支持新的OS API：

我不再开发这个库了

令人遗憾的是，原来的C库也不再被开发，而且随着操作系统逐渐弃用旧的API，它肯定越来越过时。目前我没有任何高质量的替代品

---

此时的PortMidi源代码可能会为您指明解决方案

根据源代码的注释，出现警告的一些可能原因可能是对PortMidi的调用未生成任何消息、MIDI驱动程序挂起或内存不足。在任何情况下，PortMidi的实现都会继续循环并生成警告，直到缓冲区中有消息为止

基于以下评论，PortMidi似乎不再被开发或更新以支持新的OS API：

我不再开发这个库了

令人遗憾的是，原来的C库也不再被开发，而且随着操作系统逐渐弃用旧的API，它肯定越来越过时。目前我没有任何高质量的替代品