[((m .|. myModMask, k), windows $ f i)
| (i, k) <- zip myWorkspaces ([xK_1 .. xK_9] ++ [xK_0] -- 1..9,0
++ [xK_F1 .. xK_F10]) -- f1..f10
[((m .|. myModMask, k), windows $ f i)
| (i, k) <- zip myWorkspaces ([xK_1 .. xK_9] ++ [xK_0] -- 1..9,0
++ [xK_F1 .. xK_F10]) -- f1..f10