From ff5b876e6caab76a46c4b92a862b232fc0de2c0c Mon Sep 17 00:00:00 2001
From: Sridhar Ratnakumar <srid@srid.ca>
Date: Thu, 16 Jan 2020 12:18:44 -0500
Subject: [PATCH] Use maxBound for threadDelay

---
 src/Reflex/FSNotify.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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