summaryrefslogtreecommitdiffstats
path: root/Main.hs
diff options
context:
space:
mode:
authorJason Creighton <jcreigh@gmail.com>2007-05-04 03:50:43 +0200
committerJason Creighton <jcreigh@gmail.com>2007-05-04 03:50:43 +0200
commit4022b31fb6bbf4e861e118e3339bda3a09849bcc (patch)
treea18661df6e1f9e919d46e70683afd44160b3a6b6 /Main.hs
parent66809a8ad63c72eb14b523d80453903a9440c084 (diff)
downloadmetatile-4022b31fb6bbf4e861e118e3339bda3a09849bcc.tar
metatile-4022b31fb6bbf4e861e118e3339bda3a09849bcc.zip
use anyKey constant instead of magic number
darcs-hash:20070504015043-b9aa7-a9e8a52b54a21ba00fba0b13a3ec1cc150b1aae5
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Main.hs b/Main.hs
index 81e286c..33812ef 100644
--- a/Main.hs
+++ b/Main.hs
@@ -99,7 +99,7 @@ scan dpy rootw = do
-- | Grab the keys back
grabKeys :: Display -> Window -> IO ()
grabKeys dpy rootw = do
- ungrabKey dpy '\0' {-AnyKey-} anyModifier rootw
+ ungrabKey dpy anyKey anyModifier rootw
flip mapM_ (M.keys keys) $ \(mask,sym) -> do
kc <- keysymToKeycode dpy sym
-- "If the specified KeySym is not defined for any KeyCode,