From bf9b1c525033c36397d6289270af52ba7b1463e0 Mon Sep 17 00:00:00 2001
From: daniel <daniel@wagner-home.com>
Date: Mon, 26 Mar 2007 09:33:39 +0200
Subject: minor aesthetic changes

darcs-hash:20070326073339-c98ca-189e5a913582d8f6cf3ec6c7a01f39cf8718a222
---
 Main.hs       |  1 -
 Operations.hs | 12 ++++++------
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/Main.hs b/Main.hs
index e2f5296..b2c6ce4 100644
--- a/Main.hs
+++ b/Main.hs
@@ -182,4 +182,3 @@ handle e@(ConfigureRequestEvent {window = w}) = do
     io $ sync dpy False
 
 handle e = trace (eventName e) -- ignoring
-
diff --git a/Operations.hs b/Operations.hs
index b70f151..73d609c 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -24,12 +24,12 @@ import qualified StackSet as W
 -- screen and raises the window.
 refresh :: X ()
 refresh = do
-    ws <- gets workspace
-    ws2sc <- gets wsOnScreen
+    ws     <- gets workspace
+    ws2sc  <- gets wsOnScreen
     xinesc <- gets xineScreens
-    d <- gets display
-    l <- gets layout
-    ratio <- gets leftWidth
+    d      <- gets display
+    l      <- gets layout
+    ratio  <- gets leftWidth
     let move w a b c e = io $ moveResizeWindow d w a b c e
     flip mapM_ (M.assocs ws2sc) $ \(n, scn) -> do
         let sc = xinesc !! scn
@@ -165,7 +165,7 @@ tag o = do
 -- | view. Change the current workspace to workspce at offset 'n-1'.
 view :: Int -> X ()
 view o = do
-    ws <- gets workspace
+    ws    <- gets workspace
     ws2sc <- gets wsOnScreen
     let m = W.current ws
     -- is the workspace we want to switch to currently visible?
-- 
cgit v1.2.3