From 346f819b7662c15db70d8f3222df3be3afd93041 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.gz
---
 Operations.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'Operations.hs')

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