From 4db33f6d9801259f94294044b427cb9c76ae0b45 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Mon, 12 Mar 2007 02:23:50 +0100
Subject: comments, move isRoot into XMonad

darcs-hash:20070312012350-9c5c1-1753dcb9d066d8954fe5d2f2ed8f5d06a6f976aa.gz
---
 Main.hs | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index c023853..8091714 100644
--- a/Main.hs
+++ b/Main.hs
@@ -270,10 +270,6 @@ setTopFocus = do
         Just new -> setFocus new
         Nothing  -> gets theRoot >>= setFocus
 
--- | True if the given window is the root window
-isRoot :: Window -> X Bool
-isRoot w = liftM (w==) (gets theRoot)
-
 -- | raise. focus to window at offset 'n' in list.
 -- The currently focused window is always the head of the list
 raise :: Ordering -> X ()
-- 
cgit v1.2.3