From 56c54995ea4ae34d204c5315bdf04b16761f7af1 Mon Sep 17 00:00:00 2001
From: Jan Vornberger <jan.vornberger@informatik.uni-oldenburg.de>
Date: Wed, 26 Aug 2009 01:38:28 +0200
Subject: Actually execute the correct command when giving user-defined
 commands to ServerMode

Ignore-this: 571e4d3ec5bcae56987c6e3b85b800b6

darcs-hash:20090825233828-594c5-6d445f87083d4c7d6ffcf99a467880a0730bac00.gz
---
 XMonad/Hooks/ServerMode.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs
index 4b216e6..db70c6b 100644
--- a/XMonad/Hooks/ServerMode.hs
+++ b/XMonad/Hooks/ServerMode.hs
@@ -100,7 +100,7 @@ serverModeEventHook' cmdAction (ClientMessageEvent {ev_message_type = mt, ev_dat
              cl <- cmdAction
              let listOfCommands = map (uncurry (++)) . zip (map show ([1..] :: [Int])) . map ((++) " - " . fst)
              case lookup (fromIntegral (head dt) :: Int) (zip [1..] cl) of
-                  Just (c,_) -> runCommand' c
-                  Nothing    -> mapM_ (io . hPutStrLn stderr) . listOfCommands $ cl
+                  Just (_,action) -> action
+                  Nothing         -> mapM_ (io . hPutStrLn stderr) . listOfCommands $ cl
         return (All True)
 serverModeEventHook' _ _ = return (All True)
-- 
cgit v1.2.3