twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-08 16:11:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Work around the fact that Yhc gets defaulting a bit wrong

Browse Source
This commit is contained in:
Neil Mitchell
2007-05-08 12:49:49 +00:00
parent 4afb251f41
commit 97141b9a07
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
StackSet.hs
View File

@@ -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)