From 804156556be3bb29b589fb925fb6f6e5db6a6389 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Mon, 20 Aug 2007 02:09:25 +0200
Subject: remove redundant fromIntegral from Commands.

darcs-hash:20070820000925-72aca-210c660c1c9362bbe69cc647537faef9c6d6ba6b.gz
---
 Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Commands.hs')

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")]
                     ]
-- 
cgit v1.2.3