1 files changed, 0 insertions, 4 deletions
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 ()