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