parallel and concurrent haskellの14章を読んでいてtyped channelを用いた実装をやってみた際、なかなかデバッグできず苦労したのでメモ。まず私の環境では以下のようにmoduleを分けて実装していた。 Channel.hs module Channel where data Message = Ping …