Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
29 lines (22 sloc) 616 Bytes
module Main where
import Control.Monad
import System.INotify as INotify
import Utils
write :: String -> IO ()
write path = do
writeFile (path ++ "/hello") ""
-- actually writing any contents gives me two Modified
main :: IO ()
main =
inTestEnviron [AllEvents] write $ \ events -> do
when (expected ~= events)
testSuccess
putStrLn $ explainFailure expected events
testFailure
expected :: [Event]
expected =
[ Created False "hello"
, Opened False (Just "hello")
, Modified False (Just "hello")
, Closed False (Just "hello") True
]
Jump to Line
Something went wrong with that request. Please try again.