Haskell: Monitoruj plik bez odpytywania (à la inotify in linux)

Question

Czy istnieje funkcja biblioteki haskell do monitorowania pliku bez odpytywania?

Z odpytywania chciałbym zrobić cos takiego:

monitor file mtime handler = do 
    threadDelay n -- sleep `n` ns 
    t <- getModificationTime file 
    if t > mtime 
     then handler >> monitor file t handler 
     else monitor file mtime handler 

Co chcę jest coś takiego jak blokowanie getModificationTime który zostanie obudzony przez system. Czy jest coś dostępnego?

byłbym w pełni szczęśliwy, jeśli jest on dostępny wyłącznie dla systemów POSIX, ale bardziej przenośne, tym lepiej :-)

Edit: wiem hinotify, ale jestem na Mac (to dlaczego wspominam o POSIX).

Answer 1

Pakiet KQUEUE powinien to zrobić: http://hackage.haskell.org/package/kqueue

Answer 2

Pakiet sugerowane przez Sjoerd Visscher działa jak czar (używając GHC 7.0.3 i KQUEUE 0.1.2.4, Mac OS X 10.6 Snow Leopard).

Skompilowałem szybki próbkę używając go (ponieważ nie mogłem znaleźć dokumentacji API, ale istnieje kilka przykładów się na github):

import Control.Concurrent.MVar 
import System.KQueue.HighLevel (watchFile, EventType, Watcher) 
import System.Environment (getArgs) 

watch :: MVar EventType -> FilePath -> IO Watcher 
watch chan file = 
    let handler ev = putMVar chan ev 
    in watchFile file handler 

listen :: MVar EventType -> IO() 
listen chan = takeMVar chan >>= print >> listen chan 

main :: IO() 
main = do 
     args <- getArgs 
     chan <- newEmptyMVar 
     mapM (watch chan) args 
     listen chan 

To stworzy mały program, który można przekazać filepaths się jako argumenty i monitoruj te pliki. Zdarzenia są zwracane przez MVar i odczytywane przez główny wątek, który jest w zasadzie pętlą zaimplementowaną przez listen. Program musi zostać zabity przy użyciu ^C, ponieważ jest przeznaczony do uruchamiania na zawsze.

Answer 3

Był projekt GSoC, który zaowocował pakietem fsnotify, który używa bibliotek specyficznych dla systemu i wraca do odpytywania. Korzysta z hfsevents na Macu.