move extraModifiers/cleanMask to Operations.hs

so XMonadContrib can use them

darcs-hash:20070606005056-b9aa7-96a3bb09f8e6dabd707eed7b5f19d733e5e1778e

1 files changed, 0 insertions, 6 deletions

diff --git a/Main.hs b/Main.hs
index d7ec4fd..03cf277 100644
--- a/Main.hs
+++ b/Main.hs
@@ -130,12 +130,6 @@ grabButtons dpy rootw = do
   where grab button mask = grabButton dpy button mask rootw False buttonPressMask
                                       grabModeAsync grabModeSync none none
 
-extraModifiers :: [KeyMask]
-extraModifiers = [0, numlockMask, lockMask, numlockMask .|. lockMask ]
-
-cleanMask :: KeyMask -> KeyMask
-cleanMask = (complement (numlockMask .|. lockMask) .&.)
-
 -- ---------------------------------------------------------------------
 -- | Event handler. Map X events onto calls into Operations.hs, which
 -- modify our internal model of the window manager state.