Haskell で外部コマンドを実行.そのあと強制終了.

久しぶりの Haskell エントリ。いつのまにか"最近言及したキーワード"のとこで Python が大きな文字になっててびつくり。
やりたいのは、 runCommand で起動した外部のコマンドを無理矢理止めること。
昔 terminateProcess でやろうとしてうまくいかなかった…。
だめもとでこんなんをやってみましたが、やっぱりだめでした。

do thid <- forkIO $ runCommand "sleep 10" >>= waitForProcess >> return ()
   killThread thid

さてどうしようかな…。 kill コマンドを呼ぶとか?