From fe629abc3fe4e8c01ac1fb7b05ed794923055b9c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 31 Mar 2007 03:00:24 +0200
Subject: Move safeFocus from Main to Operations

darcs-hash:20070331010024-a5988-73c72204cd204872dd7a2339c1e805e2a0578a58.gz
---
 Main.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index bfa6247..71d7eb2 100644
--- a/Main.hs
+++ b/Main.hs
@@ -121,13 +121,6 @@ grabKeys dpy rootw = do
 -- override_redirect member is True.
 -- 
 
-safeFocus :: Window -> X ()
-safeFocus w = do ws <- gets workspace
-                 if W.member w ws
-                    then setFocus w
-                    else do b <- isRoot w
-                            when b setTopFocus
-
 handle :: Event -> X ()
 
 -- run window manager command
-- 
cgit v1.2.3