aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@cis.upenn.edu>2011-09-08 15:32:46 +0200
committerBrent Yorgey <byorgey@cis.upenn.edu>2011-09-08 15:32:46 +0200
commit48d18b1423077cd925388baf18f936fe63825f39 (patch)
treec0c143bd1b1c0f1974e73e2378cf93d9a3be524a
parent0a47cb0401ff285829b9c5b4277b0016bfe34386 (diff)
downloadXMonadContrib-48d18b1423077cd925388baf18f936fe63825f39.tar.gz
XMonadContrib-48d18b1423077cd925388baf18f936fe63825f39.tar.xz
XMonadContrib-48d18b1423077cd925388baf18f936fe63825f39.zip
fix warnings in X.U.EZConfig
Ignore-this: 5322d61eaf30b13e68a5674f8ac7084d darcs-hash:20110908133246-1e371-6df3e4a37fd897c3bef635610bb72a769f845117.gz
-rw-r--r--XMonad/Util/EZConfig.hs8
1 files changed, 4 insertions, 4 deletions
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.