Haskellでファイルシステムを監視する

私はFSNotifyパッケージを使用してファイルシステムを監視してマークダウンファイルを変更していますので、Pandocで自動的に実行できます。しかし、私はマネージャがうまく抜け出すのに困っています。現状ではHaskellでファイルシステムを監視する

は、私のコードはYesod's use of the same packageに基づいています。

module Main where 

import System.FSNotify 
import Filesystem (getWorkingDirectory) 
import System.Exit 
import Control.Concurrent 

main = do 
    cwd <- getWorkingDirectory 
    putStrLn "Watching current directory, press RETURN to exit." 
    withManager $ \man -> do 
     _ <- forkIO $ do 
      watchTree man cwd (const True) $ \fp -> print fp 
     _ <- getLine 
     exitSuccess

は私がrunhaskell使用すると、プログラムは完璧に動作しますが、私は（ghc --makeを使用して）実行可能にしてコンパイルした場合、私は押したときに入力し、私の端末は応答しなくなります。私はこれをWindows 7 64ビットでコンパイルしています。

編集：Completed code。まあ、完全には完了していない - 私はこれでやりたいと思っていることはまだありますが、働いています。

出典

2013-05-16 Daniel Buckmaster