Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Use finiteBitSize (bitSize now gives deprecated warnings)

  • Loading branch information...
commit 21335a30161c099da79ae9619c9782e5e32e4644 1 parent 227080d
@igfoo igfoo authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 System/Win32/Types.hs
View
4 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
Please sign in to comment.
Something went wrong with that request. Please try again.