From 18bc30e96d2e5b054f6f59d1130bffcfad735192 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 4 Jun 2007 07:09:14 +0200 Subject: base > darcs-hash:20070604050914-a5988-600a4ba6f2f294b0ce56b16e8887d493789f29c7.gz --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index 490da13..61f8781 100644 --- a/Main.hs +++ b/Main.hs @@ -99,7 +99,7 @@ scan dpy rootw = do grabKeys :: Display -> Window -> IO () grabKeys dpy rootw = do ungrabKey dpy anyKey anyModifier rootw - flip mapM_ (M.keys keys) $ \(mask,sym) -> do + forM_ (M.keys keys) $ \(mask,sym) -> do kc <- keysymToKeycode dpy sym -- "If the specified KeySym is not defined for any KeyCode, -- XKeysymToKeycode() returns zero." -- cgit v1.2.3