We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f713147 commit e5f27f2Copy full SHA for e5f27f2
System/Win32/Types.hs
@@ -275,9 +275,6 @@ foreign import ccall unsafe "HsWin32.h"
275
foreign import ccall unsafe "HsWin32.h"
276
castPtrToUINTPtr :: Ptr s -> UINT_PTR
277
278
-foreign import ccall unsafe "HsWin32.h"
279
- castFunPtrToLONG :: FunPtr a -> LONG
280
-
281
type LCID = DWORD
282
283
type LANGID = WORD
include/HsWin32.h
@@ -14,7 +14,6 @@
14
15
INLINE UINT_PTR castPtrToUINTPtr(void *p) { return (UINT_PTR)p; }
16
INLINE void *castUINTPtrToPtr(UINT_PTR n) { return (void *)n; }
17
-INLINE LONG castFunPtrToLONG(void *p) { return (LONG)p; }
18
INLINE WORD hIWORD(DWORD w) { return HIWORD(w); }
19
INLINE WORD lOWORD(DWORD w) { return LOWORD(w); }
20
0 commit comments