diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2020-10-01 16:08:15 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-09 08:45:42 -0400 |
| commit | ef65b1546ad01fdd10386f713fc246d49269a196 (patch) | |
| tree | 368742520ac3186bf7259dc0cbf1a18b9ab6971a /testsuite/timeout/WinCBindings.hsc | |
| parent | 45a1d493ec877f5fa0b3228deee3e019033c89db (diff) | |
| download | haskell-ef65b1546ad01fdd10386f713fc246d49269a196.tar.gz | |
testsuite/timeout: Fix windows specific errors.
We now seem to use -Werror there. Which caused some long standing
warnings to become errors.
I applied changes to remove the warnings allowing the testsuite to
run on windows as well.
Diffstat (limited to 'testsuite/timeout/WinCBindings.hsc')
| -rw-r--r-- | testsuite/timeout/WinCBindings.hsc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testsuite/timeout/WinCBindings.hsc b/testsuite/timeout/WinCBindings.hsc index 36379301a4..345cc4e3d7 100644 --- a/testsuite/timeout/WinCBindings.hsc +++ b/testsuite/timeout/WinCBindings.hsc @@ -29,11 +29,11 @@ data PROCESS_INFORMATION = PROCESS_INFORMATION instance Storable PROCESS_INFORMATION where sizeOf = const #size PROCESS_INFORMATION alignment = sizeOf - poke buf pi = do - (#poke PROCESS_INFORMATION, hProcess) buf (piProcess pi) - (#poke PROCESS_INFORMATION, hThread) buf (piThread pi) - (#poke PROCESS_INFORMATION, dwProcessId) buf (piProcessId pi) - (#poke PROCESS_INFORMATION, dwThreadId) buf (piThreadId pi) + poke buf pinfo = do + (#poke PROCESS_INFORMATION, hProcess) buf (piProcess pinfo) + (#poke PROCESS_INFORMATION, hThread) buf (piThread pinfo) + (#poke PROCESS_INFORMATION, dwProcessId) buf (piProcessId pinfo) + (#poke PROCESS_INFORMATION, dwThreadId) buf (piThreadId pinfo) peek buf = do vhProcess <- (#peek PROCESS_INFORMATION, hProcess) buf @@ -361,7 +361,7 @@ createCompletionPort hJob = do return nullPtr waitForJobCompletion :: HANDLE -> HANDLE -> DWORD -> IO BOOL -waitForJobCompletion hJob ioPort timeout +waitForJobCompletion _hJob ioPort timeout = alloca $ \p_CompletionCode -> alloca $ \p_CompletionKey -> alloca $ \p_Overlapped -> do |