[commit: Win32] master: Use finiteBitSize (bitSize now gives deprecated warnings) (21335a3)

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Win32

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/21335a30161c099da79ae9619c9782e5e32e4644

>---------------------------------------------------------------

commit 21335a30161c099da79ae9619c9782e5e32e4644
Author: Ian Lynagh <[email protected]>
Date:   Thu Sep 27 12:48:01 2012 +0100

    Use finiteBitSize (bitSize now gives deprecated warnings)

>---------------------------------------------------------------

 System/Win32/Types.hs |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/System/Win32/Types.hs b/System/Win32/Types.hs
index 0dc41af..e0233c4 100644
--- a/System/Win32/Types.hs
+++ b/System/Win32/Types.hs
@@ -238,11 +238,11 @@ foreign import ccall unsafe "maperrno" -- in base/cbits/Win32Utils.c
 
 ddwordToDwords :: DDWORD -> (DWORD,DWORD)
 ddwordToDwords n =
-        (fromIntegral (n `shiftR` bitSize (undefined::DWORD))
+        (fromIntegral (n `shiftR` finiteBitSize (undefined :: DWORD))
         ,fromIntegral (n .&. fromIntegral (maxBound :: DWORD)))
 
 dwordsToDdword:: (DWORD,DWORD) -> DDWORD
-dwordsToDdword (hi,low) = (fromIntegral low) .|. (fromIntegral hi `shiftL`bitSize hi)
+dwordsToDdword (hi,low) = (fromIntegral low) .|. (fromIntegral hi `shiftL` finiteBitSize hi)
 
 ----------------------------------------------------------------
 -- Primitives