diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2014-12-22 04:33:00 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2014-12-22 04:33:00 +0100 |
| commit | 1b3eaa512ecac14f606d72c10d62667da4c575fd (patch) | |
| tree | 6d0a75ea8da2908dc363293664ac0fabfd0f87b4 | |
| parent | 43429dc9092fa5c5e84a03c86a4eda0ed2a8350f (diff) | |
| download | XMonadContrib-1b3eaa512ecac14f606d72c10d62667da4c575fd.tar.gz XMonadContrib-1b3eaa512ecac14f606d72c10d62667da4c575fd.tar.xz XMonadContrib-1b3eaa512ecac14f606d72c10d62667da4c575fd.zip | |
address another bitSize/finiteBitSize warning
Ignore-this: 549e519d25080c77e605dc983f0d239e
darcs-hash:20141222033300-1499c-23e5947e976180fd277084f29d4f808474eace25.gz
| -rw-r--r-- | XMonad/Hooks/DebugKeyEvents.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/XMonad/Hooks/DebugKeyEvents.hs b/XMonad/Hooks/DebugKeyEvents.hs index b0e4487..e8789e0 100644 --- a/XMonad/Hooks/DebugKeyEvents.hs +++ b/XMonad/Hooks/DebugKeyEvents.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE CPP #-} ----------------------------------------------------------------------------- -- | -- Module : XMonad.Hooks.DebugKeyEvents @@ -91,7 +92,11 @@ vmask numLockMask msk = intercalate " " $ fst $ foldr vmask' ([],msk) masks where - masks = map (\m -> (m,show m)) [0..toEnum (bitSize msk - 1)] ++ + +#if __GLASGOW_HASKELL__ < 707 + finiteBitSize x = bitSize x +#endif + masks = map (\m -> (m,show m)) [0..toEnum (finiteBitSize msk - 1)] ++ [(numLockMask,"num" ) ,( lockMask,"lock" ) ,(controlMask,"ctrl" ) |