From 6dd88a76c61b2926ad553e50182aa8758ecbb69d Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@gmail.com>
Date: Sat, 1 Sep 2012 21:37:46 +0200
Subject: Pass the timeout value unchanged to the toggle function

Since the timeout is passed on as hide or reveal signal, it must not be
changed or the multiplications will pile up.
---
 src/Xmobar.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index 6be0d0c..a74db7d 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -148,7 +148,7 @@ eventLoop tv xc@(XConf d _ w fs cfg) signal = do
 
          Hide   t -> hide   (t*100*1000)
          Reveal t -> reveal (t*100*1000)
-         Toggle t -> toggle (t*100*1000)
+         Toggle t -> toggle t
 
          TogglePersistent -> eventLoop
             tv xc { config = cfg { persistent = not $ persistent cfg } } signal
-- 
cgit v1.2.3