X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fposix%2FSignals.c;h=aa7877452ba0d18df665453b03e04593431c21dc;hp=660065734b84ff07dbc8442edb9603092f1897fe;hb=3501ac6af749ada0afcaf84f112ab2e4bf9120b9;hpb=7068f60cc7aefef514f02d5927d5abbdcd5c94d4

diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c
index 6600657..aa78774 100644
--- a/rts/posix/Signals.c
+++ b/rts/posix/Signals.c
@@ -124,6 +124,12 @@ ioManagerDie (void)
     }
 }
 
+Capability *
+ioManagerStartCap (Capability *cap)
+{
+    return rts_evalIO(cap,&base_GHCziConc_ensureIOManagerIsRunning_closure,NULL);
+}
+
 void
 ioManagerStart (void)
 {
@@ -131,7 +137,7 @@ ioManagerStart (void)
     Capability *cap;
     if (io_manager_pipe < 0) {
 	cap = rts_lock();
-	cap = rts_evalIO(cap,&base_GHCziConc_ensureIOManagerIsRunning_closure,NULL);
+	cap = ioManagerStartCap(cap);
 	rts_unlock(cap);
     }
 }