diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-20 02:09:25 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-20 02:09:25 +0200 |
| commit | 804156556be3bb29b589fb925fb6f6e5db6a6389 (patch) | |
| tree | dd95f6dd3914241c792b2d28d0cb00fe68e918d9 /Commands.hs | |
| parent | 3047bafe6b9607244631e8949b0b510c0136a75e (diff) | |
| download | XMonadContrib-804156556be3bb29b589fb925fb6f6e5db6a6389.tar.gz XMonadContrib-804156556be3bb29b589fb925fb6f6e5db6a6389.tar.xz XMonadContrib-804156556be3bb29b589fb925fb6f6e5db6a6389.zip | |
remove redundant fromIntegral from Commands.
darcs-hash:20070820000925-72aca-210c660c1c9362bbe69cc647537faef9c6d6ba6b.gz
Diffstat (limited to '')
| -rw-r--r-- | Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Commands.hs b/Commands.hs index f5dd8f0..216f1b2 100644 --- a/Commands.hs +++ b/Commands.hs @@ -58,7 +58,7 @@ commandMap :: [(String, X ())] -> M.Map String (X ()) commandMap c = M.fromList c workspaceCommands :: [(String, X ())] -workspaceCommands = [((m ++ show i), f (fromIntegral i)) +workspaceCommands = [((m ++ show i), f i) | i <- workspaces , (f, m) <- [(view, "view"), (shift, "shift")] ] |