From d72221f2d6b9937431e5c1340e62c19290034d5c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 21 May 2007 18:51:23 +0200
Subject: Remove redundant fromIntegrals

darcs-hash:20070521165123-a5988-02f5d32547cfd814fa615ae86c93b824e58b3a12.gz
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index c438528..c633292 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -101,7 +101,7 @@ windows f = modify (\s -> s { windowset = f (windowset s) }) >> refresh
 hide :: Window -> X ()
 hide w = withDisplay $ \d -> do
     (sw,sh) <- gets dimensions
-    io $ moveWindow d w (2*fromIntegral sw) (2*fromIntegral sh)
+    io $ moveWindow d w (2*sw) (2*sh)
 
 -- | refresh. Render the currently visible workspaces, as determined by
 -- the StackSet. Also, set focus to the focused window.
-- 
cgit v1.2.3