From f59213412f3b92dfa12498432fc368aa801a3f83 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Mon, 16 Jul 2007 18:40:17 +0200
Subject: fixes Commands.hs

darcs-hash:20070716164017-32816-35e69017f9a4cfdb0294576c8f4c21d723874662.gz
---
 Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Commands.hs')

diff --git a/Commands.hs b/Commands.hs
index 03aec49..921cb1b 100644
--- a/Commands.hs
+++ b/Commands.hs
@@ -66,7 +66,7 @@ workspaceCommands = [((m ++ show i), f (fromIntegral i))
                     ]
 
 screenCommands :: [(String, X ())]
-screenCommands = [((m ++ show sc), screenWorkspace (fromIntegral sc) >>= f)
+screenCommands = [((m ++ show sc), screenWorkspace (fromIntegral sc) >>= flip whenJust f)
                       | sc <- [0, 1]::[Int] -- TODO: adapt to screen changes
                       , (f, m) <- [(view, "screen"), (shift, "screen-to-")]
                  ]
-- 
cgit v1.2.3