diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-07-16 18:40:17 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-07-16 18:40:17 +0200 |
| commit | f59213412f3b92dfa12498432fc368aa801a3f83 (patch) | |
| tree | 88cdc31a89509272e1ca58f6d17fe47aa5d4d799 | |
| parent | cabdde752842831d5fd717f6c347b12846e59e4a (diff) | |
| download | XMonadContrib-f59213412f3b92dfa12498432fc368aa801a3f83.tar.gz XMonadContrib-f59213412f3b92dfa12498432fc368aa801a3f83.tar.xz XMonadContrib-f59213412f3b92dfa12498432fc368aa801a3f83.zip | |
fixes Commands.hs
darcs-hash:20070716164017-32816-35e69017f9a4cfdb0294576c8f4c21d723874662.gz
| -rw-r--r-- | Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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-")] ] |