X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FSignals.c;h=ace58c2f982364936385615d693549e6acb4ba91;hb=2b7f450a6dbc2f78f99101560f82be20fa80833d;hp=c1ffb5d2cfaa6f7a703d8e8acc5cb9cb9e6bf487;hpb=1c45176f3b9be75b5c4744d9ef074430bf034e3f;p=ghc-hetmet.git

diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c
index c1ffb5d..ace58c2 100644
--- a/rts/posix/Signals.c
+++ b/rts/posix/Signals.c
@@ -95,7 +95,9 @@ setIOManagerPipe (int fd)
 {
     // only called when THREADED_RTS, but unconditionally
     // compiled here because GHC.Conc depends on it.
-    io_manager_pipe = fd;
+    if (io_manager_pipe < 0) {
+        io_manager_pipe = fd;
+    }
 }
 
 #if defined(THREADED_RTS)