1 files changed, 1 insertions, 1 deletions

diff --git a/accounts/gkleen@sif/xmonad/xmonad.hs b/accounts/gkleen@sif/xmonad/xmonad.hs
index 853fc47a..a7ecf759 100644
--- a/accounts/gkleen@sif/xmonad/xmonad.hs
+++ b/accounts/gkleen@sif/xmonad/xmonad.hs
@@ -572,7 +572,7 @@ main = do
             "sif" -> withUrgencyHookC urgencyHook' $ urgencyConfig { suppressWhen = U.Never, remindWhen = Every 2 }
             _ -> id
           urgencyHook' window = do
-            let blinkLight = (lightHigh >> threadDelay 1e6) `finally` lightLow
+            let blinkLight = (lightHigh >> threadDelay 0.5e6) `finally` lightLow
                   where
                     lightHigh =
                       writeFile "/sys/class/leds/input0::capslock/brightness" =<< readFile "/sys/class/leds/input0::capslock/max_brightness"