diff options
| -rw-r--r-- | testsuite/timeout/WinCBindings.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/timeout/WinCBindings.hsc b/testsuite/timeout/WinCBindings.hsc index 345cc4e3d7..983de3ae53 100644 --- a/testsuite/timeout/WinCBindings.hsc +++ b/testsuite/timeout/WinCBindings.hsc @@ -28,7 +28,7 @@ data PROCESS_INFORMATION = PROCESS_INFORMATION instance Storable PROCESS_INFORMATION where sizeOf = const #size PROCESS_INFORMATION - alignment = sizeOf + alignment = const #alignment PROCESS_INFORMATION poke buf pinfo = do (#poke PROCESS_INFORMATION, hProcess) buf (piProcess pinfo) (#poke PROCESS_INFORMATION, hThread) buf (piThread pinfo) @@ -67,7 +67,7 @@ data STARTUPINFO = STARTUPINFO instance Storable STARTUPINFO where sizeOf = const #size STARTUPINFO - alignment = sizeOf + alignment = const #alignment STARTUPINFO poke buf si = do (#poke STARTUPINFO, cb) buf (siCb si) (#poke STARTUPINFO, lpDesktop) buf (siDesktop si) |