use noopDebouncer when testing

haskell · Dec 11, 2021 · f2b69de · f2b69de
1 parent a8179ce
commit f2b69de
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/ghcide/src/Development/IDE/Core/Debouncer.hs b/ghcide/src/Development/IDE/Core/Debouncer.hs
@@ -40,9 +40,7 @@ asyncRegisterEvent d delay k fire = join $ atomicallyNamed "debouncer - register
     prev <- STM.lookup k d
     case prev of
         Just v -> writeTVar v (delay, fire) >> return (pure ())
-        Nothing
-          | delay == 0 -> return fire
-          | otherwise  -> do
+        Nothing -> do
             var <- newTVar (delay, fire)
             STM.insert var k d
             return $ void $ async $
@@ -52,6 +50,6 @@ asyncRegisterEvent d delay k fire = join $ atomicallyNamed "debouncer - register
                     STM.delete k d
                     return act
 
--- | Debouncer used in the DAML CLI compiler that emits events immediately.
+-- | Debouncer that emits events immediately.
 noopDebouncer :: Debouncer k
 noopDebouncer = Debouncer $ \_ _ a -> a
diff --git a/ghcide/src/Development/IDE/Main.hs b/ghcide/src/Development/IDE/Main.hs
@@ -11,7 +11,8 @@ module Development.IDE.Main
 ,testing) where
 import           Control.Concurrent.Extra              (newLock, withLock,
                                                         withNumCapabilities)
-import           Control.Concurrent.STM.Stats          (atomically, dumpSTMStats)
+import           Control.Concurrent.STM.Stats          (atomically,
+                                                        dumpSTMStats)
 import           Control.Exception.Safe                (Exception (displayException),
                                                         catchAny)
 import           Control.Monad.Extra                   (concatMapM, unless,
@@ -34,7 +35,8 @@ import           Development.IDE                       (Action, GhcVersion (..),
                                                         ghcVersion,
                                                         hDuplicateTo')
 import           Development.IDE.Core.Debouncer        (Debouncer,
-                                                        newAsyncDebouncer)
+                                                        newAsyncDebouncer,
+                                                        noopDebouncer)
 import           Development.IDE.Core.FileStore        (isWatchSupported,
                                                         makeVFSHandle)
 import           Development.IDE.Core.IdeConfiguration (IdeConfiguration (..),
@@ -225,6 +227,7 @@ testing = (defaultArguments Debug) {
     argsHlsPlugins = pluginDescToIdePlugins $
         idePluginsToPluginDesc (argsHlsPlugins def)
         ++ [Test.blockCommandDescriptor "block-command", Test.plugin],
+    argsDebouncer = pure noopDebouncer,
     argsIdeOptions = \config sessionLoader ->
             let defOptions = argsIdeOptions def config sessionLoader
             in defOptions {