Remove redundant parens

darcs-hash:20070409073836-a5988-5ab0dc0ff9723b13fe2216b937e05bc6e784008a

1 files changed, 1 insertions, 1 deletions

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