mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-14 09:32:22 +00:00
10 lines
235 B
Haskell
10 lines
235 B
Haskell
module Reanimate.FileWatch
|
|
( watchFile ) where
|
|
|
|
import System.INotify
|
|
|
|
watchFile :: FilePath -> IO () -> IO ()
|
|
watchFile path handler = do
|
|
notify <- initINotify
|
|
addWatch notify [Modify] path (const handler)
|
|
return ()
|