More logging in search for cause of fsnotify failures on certain linux distros

supermario · supermario · commit 7bce9ba7cbc0 · 2023-09-28T15:18:10.000+01:00
diff --git a/.dockerignore b/.dockerignore
@@ -0,0 +1,2 @@
+.stack-work
+elm-stuff
diff --git a/ext-sentry/Ext/Filewatch.hs b/ext-sentry/Ext/Filewatch.hs
@@ -26,6 +26,7 @@ watch root action =
           , Debounce.alwaysResetTimer = True
           }
 
+    Ext.Common.debug $ "👀 file watch booting for " ++ show root
     -- start a watching job (in the background)
     _ <- watchTree
       mgr          -- manager
@@ -51,6 +52,7 @@ watch root action =
              && not (List.isInfixOf "data" filepath)
              && not (List.isInfixOf "elm-pkg-js-includes.min.js" filepath)
 
+        Ext.Common.debug $ "👀 file event " ++ show e ++ " with shouldRefresh:" ++ show shouldRefresh
         onlyWhen shouldRefresh $ Debounce.send trigger filepath
       )
 

Original file line number	Diff line number	Diff line change
`@@ -26,6 +26,7 @@ watch root action =`
`26`	`26`	`, Debounce.alwaysResetTimer = True`
`27`	`27`	`}`
`28`	`28`
	`29`	`+ Ext.Common.debug $ "👀 file watch booting for " ++ show root`
`29`	`30`	`-- start a watching job (in the background)`
`30`	`31`	`_ <- watchTree`
`31`	`32`	`mgr -- manager`
`@@ -51,6 +52,7 @@ watch root action =`
`51`	`52`	`&& not (List.isInfixOf "data" filepath)`
`52`	`53`	`&& not (List.isInfixOf "elm-pkg-js-includes.min.js" filepath)`
`53`	`54`
	`55`	`+ Ext.Common.debug $ "👀 file event " ++ show e ++ " with shouldRefresh:" ++ show shouldRefresh`
`54`	`56`	`onlyWhen shouldRefresh $ Debounce.send trigger filepath`
`55`	`57`	`)`
`56`	`58`