Skip to content

Commit cc173ee

Browse files
committed
Use capi instead ccall
1 parent 6ace9f3 commit cc173ee

File tree

1 file changed

+2
-8
lines changed

1 file changed

+2
-8
lines changed

src/Test/Tasty/Bench.hs

Lines changed: 2 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -2272,14 +2272,8 @@ int64ToWord64 = fromIntegral
22722272

22732273
#if defined(mingw32_HOST_OS)
22742274

2275-
#if defined(i386_HOST_ARCH)
2276-
#define CCONV stdcall
2277-
#else
2278-
#define CCONV ccall
2279-
#endif
2280-
2281-
foreign import CCONV unsafe "windows.h GetConsoleOutputCP" getConsoleOutputCP :: IO Word32
2282-
foreign import CCONV unsafe "windows.h SetConsoleOutputCP" setConsoleOutputCP :: Word32 -> IO ()
2275+
foreign import capi unsafe "windows.h GetConsoleOutputCP" getConsoleOutputCP :: IO Word32
2276+
foreign import capi unsafe "windows.h SetConsoleOutputCP" setConsoleOutputCP :: Word32 -> IO ()
22832277

22842278
#endif
22852279

0 commit comments

Comments
 (0)