more comments

This commit is contained in:
Don Stewart
2007-10-06 15:43:51 +00:00
parent 1a48b527ff
commit 6c94b3b217

View File

@@ -1,4 +1,4 @@
----------------------------------------------------------------------------- ----------------------------------------------------------------------------
-- | -- |
-- Module : Main.hs -- Module : Main.hs
-- Copyright : (c) Spencer Janssen 2007 -- Copyright : (c) Spencer Janssen 2007
@@ -138,7 +138,7 @@ grabKeys = do
-- XKeysymToKeycode() returns zero." -- XKeysymToKeycode() returns zero."
when (kc /= '\0') $ mapM_ (grab kc . (mask .|.)) extraModifiers when (kc /= '\0') $ mapM_ (grab kc . (mask .|.)) extraModifiers
-- | XXX comment me
grabButtons :: X () grabButtons :: X ()
grabButtons = do grabButtons = do
XConf { display = dpy, theRoot = rootw } <- ask XConf { display = dpy, theRoot = rootw } <- ask