From a33ac8a09a9b41b78dde4f9d12e22d0beb92e744 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 9 Apr 2007 09:38:36 +0200
Subject: Remove redundant parens

darcs-hash:20070409073836-a5988-5ab0dc0ff9723b13fe2216b937e05bc6e784008a.gz
---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 1b7dc92..05cb69d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -43,7 +43,7 @@ main = do
     let st = XState
             { display       = dpy
             , xineScreens   = xinesc
-            , wsOnScreen    = M.fromList $ map (\n -> (n,n)) [0..((length xinesc)-1)]
+            , wsOnScreen    = M.fromList $ map (\n -> (n,n)) [0.. length xinesc - 1]
             , theRoot       = rootw
             , wmdelete      = wmdelt
             , wmprotocols   = wmprot
-- 
cgit v1.2.3