module System.FSNotify.Devel
( treeExtAny, treeExtExists,
doAllEvents,
allEvents, existsEvents
) where
import Data.Text
import Prelude hiding (FilePath)
import System.FSNotify
import System.FSNotify.Path (hasThisExtension)
import System.FilePath
treeExtExists :: WatchManager
-> FilePath
-> Text
-> (FilePath -> IO ())
-> IO StopListening
treeExtExists :: WatchManager
-> FilePath -> Text -> (FilePath -> IO ()) -> IO (IO ())
treeExtExists WatchManager
man FilePath
dir Text
ext FilePath -> IO ()
action =
WatchManager -> FilePath -> ActionPredicate -> Action -> IO (IO ())
watchTree WatchManager
man FilePath
dir ((FilePath -> Bool) -> ActionPredicate
existsEvents ((FilePath -> Bool) -> ActionPredicate)
-> (FilePath -> Bool) -> ActionPredicate
forall a b. (a -> b) -> a -> b
$ (FilePath -> Text -> Bool) -> Text -> FilePath -> Bool
forall a b c. (a -> b -> c) -> b -> a -> c
flip FilePath -> Text -> Bool
hasThisExtension Text
ext) ((FilePath -> IO ()) -> Action
forall (m :: * -> *).
Monad m =>
(FilePath -> m ()) -> Event -> m ()
doAllEvents FilePath -> IO ()
action)
treeExtAny :: WatchManager
-> FilePath
-> Text
-> (FilePath -> IO ())
-> IO StopListening
treeExtAny :: WatchManager
-> FilePath -> Text -> (FilePath -> IO ()) -> IO (IO ())
treeExtAny WatchManager
man FilePath
dir Text
ext FilePath -> IO ()
action =
WatchManager -> FilePath -> ActionPredicate -> Action -> IO (IO ())
watchTree WatchManager
man FilePath
dir ((FilePath -> Bool) -> ActionPredicate
allEvents ((FilePath -> Bool) -> ActionPredicate)
-> (FilePath -> Bool) -> ActionPredicate
forall a b. (a -> b) -> a -> b
$ (FilePath -> Text -> Bool) -> Text -> FilePath -> Bool
forall a b c. (a -> b -> c) -> b -> a -> c
flip FilePath -> Text -> Bool
hasThisExtension Text
ext) ((FilePath -> IO ()) -> Action
forall (m :: * -> *).
Monad m =>
(FilePath -> m ()) -> Event -> m ()
doAllEvents FilePath -> IO ()
action)
doAllEvents :: Monad m => (FilePath -> m ()) -> Event -> m ()
doAllEvents :: (FilePath -> m ()) -> Event -> m ()
doAllEvents FilePath -> m ()
action Event
event =
case Event
event of
Added FilePath
f UTCTime
_ Bool
_ -> FilePath -> m ()
action FilePath
f
Modified FilePath
f UTCTime
_ Bool
_ -> FilePath -> m ()
action FilePath
f
Removed FilePath
f UTCTime
_ Bool
_ -> FilePath -> m ()
action FilePath
f
Unknown FilePath
f UTCTime
_ FilePath
_ -> FilePath -> m ()
action FilePath
f
existsEvents :: (FilePath -> Bool) -> (Event -> Bool)
existsEvents :: (FilePath -> Bool) -> ActionPredicate
existsEvents FilePath -> Bool
filt Event
event =
case Event
event of
Added FilePath
f UTCTime
_ Bool
_ -> FilePath -> Bool
filt FilePath
f
Modified FilePath
f UTCTime
_ Bool
_ -> FilePath -> Bool
filt FilePath
f
Removed FilePath
_ UTCTime
_ Bool
_ -> Bool
False
Unknown FilePath
_ UTCTime
_ FilePath
_ -> Bool
False
allEvents :: (FilePath -> Bool) -> (Event -> Bool)
allEvents :: (FilePath -> Bool) -> ActionPredicate
allEvents FilePath -> Bool
filt Event
event =
case Event
event of
Added FilePath
f UTCTime
_ Bool
_ -> FilePath -> Bool
filt FilePath
f
Modified FilePath
f UTCTime
_ Bool
_ -> FilePath -> Bool
filt FilePath
f
Removed FilePath
f UTCTime
_ Bool
_ -> FilePath -> Bool
filt FilePath
f
Unknown FilePath
f UTCTime
_ FilePath
_ -> FilePath -> Bool
filt FilePath
f