From 118a57a101c2483f878603cc039d0e26f1b05ef4 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 15 Aug 2014 07:11:36 +0200
Subject: use FiniteBitSize with ghc >

Ignore-this: 90f855fd72406fb3d2640a133d499188

darcs-hash:20140815051136-1499c-ba127cec9ea6d28bdc8372ab4a506ee74f047fa6.gz
---
 XMonad/Hooks/DebugEvents.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/XMonad/Hooks/DebugEvents.hs b/XMonad/Hooks/DebugEvents.hs
index 753dc1f..cec777c 100644
--- a/XMonad/Hooks/DebugEvents.hs
+++ b/XMonad/Hooks/DebugEvents.hs
@@ -225,6 +225,12 @@ clientMessages =  [("_NET_ACTIVE_WINDOW",("_NET_ACTIVE_WINDOW",32,1))
                   ,("WM_SAVE_YOURSELF"  ,("STRING"            , 8,0))
                   ]
 
+#if __GLASGOW_HASKELL__ < 707
+finiteBitSize :: Bits a => a -> Int
+finiteBitSize x = bitSize x
+#endif
+
+
 -- | Convert a modifier mask into a useful string
 vmask                 :: KeyMask -> KeyMask -> String
 vmask numLockMask msk =  unwords $
@@ -232,7 +238,7 @@ vmask numLockMask msk =  unwords $
                          fst     $
                          foldr vmask' ([],msk) masks
     where
-      masks = map (\m -> (m,show m)) [0..toEnum (bitSize msk - 1)] ++
+      masks = map (\m -> (m,show m)) [0..toEnum (finiteBitSize msk - 1)] ++
               [(numLockMask,"num"  )
               ,(   lockMask,"lock" )
               ,(controlMask,"ctrl" )
-- 
cgit v1.2.3