diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-11-13 11:43:42 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-11-13 11:43:42 +0000 |
| commit | 4a875d65b5c86a77a3051256519f9695d701c3be (patch) | |
| tree | 453902656c3adf2d41fd6dc51ff3ab99c87c3711 /rts/win32/ConsoleHandler.c | |
| parent | 5c9424bb4f530c315d1dde2c53ebb1adfd3a2da4 (diff) | |
| download | haskell-4a875d65b5c86a77a3051256519f9695d701c3be.tar.gz | |
notice ^C exceptions when waiting for I/O
Diffstat (limited to 'rts/win32/ConsoleHandler.c')
| -rw-r--r-- | rts/win32/ConsoleHandler.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/win32/ConsoleHandler.c b/rts/win32/ConsoleHandler.c index 25472cf583..13011cbe26 100644 --- a/rts/win32/ConsoleHandler.c +++ b/rts/win32/ConsoleHandler.c @@ -240,6 +240,9 @@ static BOOL WINAPI generic_handler(DWORD dwCtrlType) stg_pending_buf[stg_pending_events] = dwCtrlType; stg_pending_events++; } + + // we need to wake up awaitEvent() + abandonRequestWait(); #endif return TRUE; } |