From 2ce7fb471ab33545382573b08404f6688bb1551a Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Thu, 4 Oct 2007 22:02:00 +0200
Subject: Remove commented code

darcs-hash:20071004200200-a5988-43e27252ed8a109311d5a82ec1ed9b31c345fb6e.gz
---
 XMonad.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'XMonad.hs')

diff --git a/XMonad.hs b/XMonad.hs
index 0db0eac..818586f 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -229,13 +229,6 @@ whenJust mg f = maybe (return ()) f mg
 whenX :: X Bool -> X () -> X ()
 whenX a f = a >>= \b -> when b f
 
--- Grab the X server (lock it) from the X monad
--- withServerX :: X () -> X ()
--- withServerX f = withDisplay $ \dpy -> do
---     io $ grabServer dpy
---     f
---     io $ ungrabServer dpy
-
 -- | A 'trace' for the X monad. Logs a string to stderr. The result may
 -- be found in your .xsession-errors file
 trace :: String -> X ()
-- 
cgit v1.2.3