diff --git a/src/Reflex/FSNotify.hs b/src/Reflex/FSNotify.hs
index 4fc7b52..7a35b3b 100644
--- a/src/Reflex/FSNotify.hs
+++ b/src/Reflex/FSNotify.hs
@@ -22,6 +22,6 @@ watchDirectory cfg path =
   performEventAsync $ ffor path $ \p cb -> liftIO $ void $ forkIO $
     FS.withManagerConf cfg $ \mgr -> do
       _ <- FS.watchTree mgr p (const True) cb
-      forever $ threadDelay 1000000
+      forever $ threadDelay maxBound