summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Main.hs1
-rw-r--r--Operations.hs12
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?