Merge pull request #1746 from digitallyinduced/fix-file-watcher

Fixed putMVar blocking file watcher
digitallyinduced · Jul 15, 2023 · 142c32c · 142c32c
2 parents 4e6df9a + 34134e5
commit 142c32c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/IHP/IDE/FileWatcher.hs b/IHP/IDE/FileWatcher.hs
@@ -42,15 +42,15 @@ startWatchingSubDirectory manager state path = do
         Just _ -> pure ()
         Nothing -> do
             stop <- FS.watchTree manager path shouldActOnFileChange handleFileChange
-            putMVar state $ Map.insert path stop watchedDirectories
+            modifyMVar_ state (\map -> pure (Map.insert path stop map))
 
 stopWatchingSubDirectory :: FileWatcherState -> FilePath -> IO ()
 stopWatchingSubDirectory state path = do
     watchedDirectories <- readMVar state
     case Map.lookup path watchedDirectories of
         Just stop -> do
             stop
-            putMVar state $ Map.delete path watchedDirectories
+            modifyMVar_ state (\map -> pure (Map.delete path map))
         Nothing -> pure ()
 
 listWatchableDirectories :: IO [String]