From 57583401652267da4f93e334ea3e3f5ca03c494b Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 25 Oct 2024 18:07:38 +0900
Subject: [PATCH] typo

---
 auto-update/Control/Debounce/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/auto-update/Control/Debounce/Internal.hs b/auto-update/Control/Debounce/Internal.hs
index a502efe24..2abe73668 100644
--- 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 ()