twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 22:21:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

address another bitSize/finiteBitSize warning

Browse Source
This commit is contained in:
Adam Vogt
2014-12-22 03:33:00 +00:00
parent 201c25e7a4
commit 0903f339b6
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Hooks/DebugKeyEvents.hs
View File

@@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- | -- |
-- Module : XMonad.Hooks.DebugKeyEvents -- Module : XMonad.Hooks.DebugKeyEvents
@@ -91,7 +92,11 @@ vmask numLockMask msk = intercalate " " $
fst $ fst $
foldr vmask' ([],msk) masks foldr vmask' ([],msk) masks
where 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" ) [(numLockMask,"num" )
,( lockMask,"lock" ) ,( lockMask,"lock" )
,(controlMask,"ctrl" ) ,(controlMask,"ctrl" )