Haskellの子スレッドからエラーをどのように出力しますか？次のコードを考える

Question

：コンソールに出力

"You can't see me" 
"Finished!" 

：

module Main where 

import Control.Concurrent 

main :: IO() 
main = forkIO errorPrinter >> threadDelay 1000000 >> print "Finished" 

errorPrinter = error "You can't see me!" 

を、私はこのコードを実行している時に、私はこれを見るだろうと、期待します。しかし、「あなたは私を見ることができない」という言葉は決して印刷されません。

プロダクションコードではエラーを使用するのは良い考えではありませんが、私はそれを開発に使用していますが、コンソールにはエラーは表示されません。

この問題には簡単な解決策があると確信しています。私はこの問題を抱える最初の人になることはできませんが、どこでも答えは見つけられません。

ご協力いただければ幸いです。

Answer 1

問題を再現できません。私にとって、それは印刷を「あなたは私を見ることができない！」ん：

% runhaskell test.hs 
test.hs: You can't see me! 
CallStack (from HasCallStack): 
    error, called at test.hs:8:16 in main:Main 
"Finished" 

私は限りバックGHC 7.6（私が転がってきた最古のGHC）と同様の動作を参照してください。私は、この行動が過去20年ほどで大きく変化したことを知るために、少し驚くだろう。

とにかく、私はあなたが印刷するメッセージを印刷するに切り替えることをお勧めします：

import System.IO 
errorPrinter = hPutStrLn stderr "You can't see me!" 

はあなたが何を意味するかと言うと、すべてのこと。