Fix compilation errors
- Remove nonexistent confDebounce field from WatchConfig (fsnotify 0.4.4.0) - Remove unused Generic deriving and GHC.Generics import - Replace .!= with fromMaybe (not re-exported by Data.Yaml) - Add missing Data.Text import in Main.hs - Use git -C flag in runGitIn to run in the correct repo directory - Clean up unused imports
This commit is contained in:
@@ -0,0 +1,35 @@
|
||||
{-# LANGUAGE NumericUnderscores #-}
|
||||
{-# LANGUAGE QuasiQuotes #-}
|
||||
|
||||
module Main where
|
||||
|
||||
import Control.Concurrent
|
||||
import Data.String.Interpolate
|
||||
import System.FSNotify
|
||||
import System.FilePath
|
||||
import UnliftIO.Temporary
|
||||
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
withSystemTempDirectory "fsnotify-foo" $ \dir -> do
|
||||
putStrLn [i|Starting watch on dir: #{dir}|]
|
||||
|
||||
let conf = defaultConfig
|
||||
|
||||
withManagerConf conf $ \mgr -> do
|
||||
stop <- watchDir mgr dir (const True) $ \ev -> do
|
||||
putStrLn [i|Got event: #{ev}|]
|
||||
threadDelay 3_000_000
|
||||
|
||||
putStrLn [i|Writing to #{dir </> "bar"}|]
|
||||
writeFile (dir </> "bar") "asdf"
|
||||
threadDelay 3_000_000
|
||||
|
||||
putStrLn [i|Stopping|]
|
||||
stop
|
||||
putStrLn [i|Stopped|]
|
||||
threadDelay 3_000_000
|
||||
|
||||
putStrLn [i|Exited withManagerConf|]
|
||||
threadDelay 3_000_000
|
||||
Reference in New Issue
Block a user