From 1b3eaa512ecac14f606d72c10d62667da4c575fd Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Mon, 22 Dec 2014 04:33:00 +0100
Subject: address another bitSize/finiteBitSize warning

Ignore-this: 549e519d25080c77e605dc983f0d239e

darcs-hash:20141222033300-1499c-23e5947e976180fd277084f29d4f808474eace25.gz
---
 XMonad/Hooks/DebugKeyEvents.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'XMonad')

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" )
-- 
cgit v1.2.3