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