Permalink
Browse files

Use finiteBitSize (bitSize now gives deprecated warnings)

  • Loading branch information...
1 parent 227080d commit 21335a30161c099da79ae9619c9782e5e32e4644 @igfoo igfoo committed Sep 27, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 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

0 comments on commit 21335a3

Please sign in to comment.