multithreading - Haskell线程不会死

Question

我正在使用光泽来显示某些内容，同时使用forkOS $ system "mpg123 foo.mp3" >> return ()在背景中播放一些音频。当我关闭光泽窗口时，程序退出，但音频继续播放。所有资源都显示这个线程应该死了，这是怎么回事？即使我用来killThread明确杀死它，它也不会死。