@@ -57,8 +57,9 @@ main = do
57 -- The watch root create event always seems to come even though the
57 -- The watch root create event always seems to come even though the
58 -- root is created before the watch is started. That may be because
58 -- root is created before the watch is started. That may be because
59 -- of batching?
59 -- of batching?
60− -- XXX Need to create watch root after adding the watch
60+ -- XXX Need to create watch root after adding the watch, otherwise
61+ -- it fails intermittently.
61− : dirCreate "" (\dir -> [(dir, dirEvent Event.isCreated)])
62+ -- : dirCreate "" (\dir -> [(dir, dirEvent Event.isCreated)])
62 : rootDirMove "moved" (\src ->
63 : rootDirMove "moved" (\src ->
63 [ (src, Event.isRootPathEvent)
64 [ (src, Event.isRootPathEvent)
64 , (src, Event.isMoved)
65 , (src, Event.isMoved)