diff options
| author | Neil Mitchell http://www.cs.york.ac.uk/~ndm/ <gentoo-haskell@vcs.intern> | 2007-05-08 14:49:49 +0200 |
|---|---|---|
| committer | Neil Mitchell http://www.cs.york.ac.uk/~ndm/ <gentoo-haskell@vcs.intern> | 2007-05-08 14:49:49 +0200 |
| commit | 7634d8d503952130be26a1be3d4090dc923b212a (patch) | |
| tree | 9c65b094ca185022f3bdc41b5190c613ed459c57 /StackSet.hs | |
| parent | 3cbf9325cd86088fcb1d9a90215ca9f184dd0385 (diff) | |
| download | xmonad-7634d8d503952130be26a1be3d4090dc923b212a.tar.gz xmonad-7634d8d503952130be26a1be3d4090dc923b212a.tar.xz xmonad-7634d8d503952130be26a1be3d4090dc923b212a.zip | |
Work around the fact that Yhc gets defaulting a bit wrong
darcs-hash:20070508124949-fbc8d-1d778c43323434b6f286af1505b2c0489eb09ac2.gz
Diffstat (limited to 'StackSet.hs')
| -rw-r--r-- | StackSet.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index e0210f1..b7419f1 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -62,7 +62,9 @@ empty n m = StackSet { current = 0 , focus = M.empty , cache = M.empty } - where (scrs,wrks) = unzip $ map (\x -> (fromIntegral x, fromIntegral x)) [0..m-1] + where scrs_wrks = unzip $ map (\x -> (fromIntegral x, fromIntegral x)) [0..m-1] + scrs = fst scrs_wrks + wrks = snd scrs_wrks wsScrs2Works = M.fromList (zip scrs wrks) wsWorks2Scrs = M.fromList (zip wrks scrs) |