diff options
| -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" ) |