typo

yesodweb · Oct 29, 2024 · 5758340 · 5758340
1 parent 0c31f35
commit 5758340
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/auto-update/Control/Debounce/Internal.hs b/auto-update/Control/Debounce/Internal.hs
@@ -97,7 +97,7 @@ mkDebounceInternal baton delayFn (DebounceSettings freq action edge) = do
                 -- Empty the baton of any other activations during the interval
                 void $ tryTakeMVar baton
                 ignoreExc action
-    labelThread tid "Denounce"
+    labelThread tid "Debounce"
     return $ void $ tryPutMVar baton ()
 
 ignoreExc :: IO () -> IO ()