From 48d18b1423077cd925388baf18f936fe63825f39 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Thu, 8 Sep 2011 15:32:46 +0200 Subject: fix warnings in X.U.EZConfig Ignore-this: 5322d61eaf30b13e68a5674f8ac7084d darcs-hash:20110908133246-1e371-6df3e4a37fd897c3bef635610bb72a769f845117.gz --- XMonad/Util/EZConfig.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad/Util/EZConfig.hs') diff --git a/XMonad/Util/EZConfig.hs b/XMonad/Util/EZConfig.hs index 2d5bda9..ed78019 100644 --- a/XMonad/Util/EZConfig.hs +++ b/XMonad/Util/EZConfig.hs @@ -412,9 +412,9 @@ parseModifier :: XConfig l -> ReadP KeyMask parseModifier c = (string "M-" >> return (modMask c)) +++ (string "C-" >> return controlMask) +++ (string "S-" >> return shiftMask) - +++ do char 'M' + +++ do _ <- char 'M' n <- satisfy (`elem` ['1'..'5']) - char '-' + _ <- char '-' return $ indexMod (read [n] - 1) where indexMod = (!!) [mod1Mask,mod2Mask,mod3Mask,mod4Mask,mod5Mask] @@ -430,11 +430,11 @@ parseRegular = choice [ char s >> return k -- | Parse a special key name (one enclosed in angle brackets). parseSpecial :: ReadP KeySym -parseSpecial = do char '<' +parseSpecial = do _ <- char '<' key <- choice [ string name >> return k | (name,k) <- keyNames ] - char '>' + _ <- char '>' return key -- | A list of all special key names and their associated KeySyms. -- cgit v1.2.3