From d2427ab85bdffb280dcff6fda4061b4b66328c8a Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Mon, 16 Jul 2007 16:40:17 +0000 Subject: [PATCH] fixes Commands.hs --- Commands.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Commands.hs b/Commands.hs index 03aec49a..921cb1b5 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-")] ]