From c3f2e16048cc01ae34a4691e86346e21cb12c567 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 8 Dec 2007 01:05:47 +0100
Subject: Remove XMonad.Operations imports

darcs-hash:20071208000547-a5988-874ebc1bfa76ad6ec2191812240fa2303b2d531c.gz
---
 XMonad/Layout/Combo.hs            | 2 +-
 XMonad/Layout/DragPane.hs         | 1 -
 XMonad/Layout/HintedTile.hs       | 1 -
 XMonad/Layout/LayoutHints.hs      | 1 -
 XMonad/Layout/LayoutScreens.hs    | 3 +--
 XMonad/Layout/Mosaic.hs           | 1 -
 XMonad/Layout/Tabbed.hs           | 1 -
 XMonad/Layout/TwoPane.hs          | 2 +-
 XMonad/Layout/WindowNavigation.hs | 1 -
 XMonad/Layout/WorkspaceDir.hs     | 1 -
 10 files changed, 3 insertions(+), 11 deletions(-)

(limited to 'XMonad/Layout')

diff --git a/XMonad/Layout/Combo.hs b/XMonad/Layout/Combo.hs
index bfd2c0b..09e728a 100644
--- a/XMonad/Layout/Combo.hs
+++ b/XMonad/Layout/Combo.hs
@@ -24,7 +24,7 @@ module XMonad.Layout.Combo (
 
 import Data.List ( delete, intersect, (\\) )
 import Data.Maybe ( isJust )
-import XMonad
+import XMonad hiding (focus)
 import XMonad.StackSet ( integrate, Stack(..) )
 import XMonad.Layout.WindowNavigation ( MoveWindowToWindow(..) )
 import qualified XMonad.StackSet as W ( differentiate )
diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index 6082656..dfe47b1 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -32,7 +32,6 @@ import XMonad
 import Data.Unique
 
 import XMonad.Layouts
-import XMonad.Operations
 import qualified XMonad.StackSet as W 
 import XMonad.Util.Invisible
 import XMonad.Util.XUtils
diff --git a/XMonad/Layout/HintedTile.hs b/XMonad/Layout/HintedTile.hs
index e76e651..08e7e1f 100644
--- a/XMonad/Layout/HintedTile.hs
+++ b/XMonad/Layout/HintedTile.hs
@@ -22,7 +22,6 @@ module XMonad.Layout.HintedTile (
 
 import XMonad
 import XMonad.Layouts    (Resize(..), IncMasterN(..))
-import XMonad.Operations (applySizeHints, D)
 import qualified XMonad.StackSet as W
 import Control.Applicative ((<$>))
 import Control.Monad
diff --git a/XMonad/Layout/LayoutHints.hs b/XMonad/Layout/LayoutHints.hs
index 1639873..252e200 100644
--- a/XMonad/Layout/LayoutHints.hs
+++ b/XMonad/Layout/LayoutHints.hs
@@ -19,7 +19,6 @@ module XMonad.Layout.LayoutHints (
     layoutHints,
     LayoutHints) where
 
-import XMonad.Operations ( applySizeHints, D )
 import XMonad hiding ( trace )
 import XMonad.Layout.LayoutModifier
 
diff --git a/XMonad/Layout/LayoutScreens.hs b/XMonad/Layout/LayoutScreens.hs
index 73b29af..bb705fc 100644
--- a/XMonad/Layout/LayoutScreens.hs
+++ b/XMonad/Layout/LayoutScreens.hs
@@ -20,7 +20,6 @@ module XMonad.Layout.LayoutScreens (
 
 import XMonad
 import qualified XMonad.StackSet as W
-import qualified XMonad.Operations as O
 
 -- $usage
 -- This module allows you to pretend that you have more than one screen by
@@ -58,7 +57,7 @@ layoutScreens nscr _ | nscr < 1 = trace $ "Can't layoutScreens with only " ++ sh
 layoutScreens nscr l =
     do rtrect <- asks theRoot >>= getWindowRectangle
        (wss, _) <- doLayout l rtrect W.Stack { W.focus=1, W.up=[],W.down=[1..nscr-1] }
-       O.windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) ->
+       windows $ \ws@(W.StackSet { W.current = v, W.visible = vs, W.hidden = hs }) ->
            let (x:xs, ys) = splitAt nscr $ map W.workspace (v:vs) ++ hs
                gaps = map (statusGap . W.screenDetail) $ v:vs
                (s:ss, g:gg) = (map snd wss, take nscr $ gaps ++ repeat (head gaps))
diff --git a/XMonad/Layout/Mosaic.hs b/XMonad/Layout/Mosaic.hs
index 71d38ac..8f954b6 100644
--- a/XMonad/Layout/Mosaic.hs
+++ b/XMonad/Layout/Mosaic.hs
@@ -41,7 +41,6 @@ import XMonad.Util.Anneal
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
 --
 -- > import XMonad.Layout.Mosaic
--- > import XMonad.Operations
 --
 -- Then edit your @layoutHook@ by adding the Mosaic layout:
 --
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index a3c6ac2..5733130 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -26,7 +26,6 @@ import Data.Maybe
 import Data.List
 
 import XMonad
-import XMonad.Operations
 import qualified XMonad.StackSet as W
 
 import XMonad.Util.NamedWindows
diff --git a/XMonad/Layout/TwoPane.hs b/XMonad/Layout/TwoPane.hs
index 8344087..e7ff399 100644
--- a/XMonad/Layout/TwoPane.hs
+++ b/XMonad/Layout/TwoPane.hs
@@ -22,7 +22,7 @@ module XMonad.Layout.TwoPane (
                               TwoPane (..)
                              ) where
 
-import XMonad
+import XMonad hiding (focus)
 import XMonad.Layouts ( Resize(..), splitHorizontallyBy )
 import XMonad.StackSet ( focus, up, down)
 
diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs
index 78592b7..443e2d5 100644
--- a/XMonad/Layout/WindowNavigation.hs
+++ b/XMonad/Layout/WindowNavigation.hs
@@ -28,7 +28,6 @@ module XMonad.Layout.WindowNavigation (
 import Data.List ( nub, sortBy, (\\) )
 import XMonad hiding (Point)
 import qualified XMonad.StackSet as W
-import XMonad.Operations ( windows )
 import XMonad.Layout.LayoutModifier
 import XMonad.Util.Invisible
 import XMonad.Util.XUtils
diff --git a/XMonad/Layout/WorkspaceDir.hs b/XMonad/Layout/WorkspaceDir.hs
index 8737c8d..d7ff24e 100644
--- a/XMonad/Layout/WorkspaceDir.hs
+++ b/XMonad/Layout/WorkspaceDir.hs
@@ -32,7 +32,6 @@ module XMonad.Layout.WorkspaceDir (
 import System.Directory ( setCurrentDirectory, getCurrentDirectory )
 
 import XMonad
-import XMonad.Operations ( sendMessage )
 import XMonad.Util.Run ( runProcessWithInput )
 import XMonad.Prompt ( XPConfig )
 import XMonad.Prompt.Directory ( directoryPrompt )
-- 
cgit v1.2.3