twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

remove redundant fromIntegral from Commands.

Browse Source
This commit is contained in:
David Roundy 2007-08-20 00:09:25 +00:00
parent 85b66b5919
commit c6cfe936b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands.hs
View File

@ -58,7 +58,7 @@ commandMap :: [(String, X ())] -> M.Map String (X ())
commandMap c = M.fromList c commandMap c = M.fromList c
workspaceCommands :: [(String, X ())] workspaceCommands :: [(String, X ())]
workspaceCommands = [((m ++ show i), f (fromIntegral i)) workspaceCommands = [((m ++ show i), f i)
| i <- workspaces | i <- workspaces
, (f, m) <- [(view, "view"), (shift, "shift")] , (f, m) <- [(view, "view"), (shift, "shift")]
] ]