From 243c043271d295c98ac0f69b4bc8fccca3b61d2d Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 27 Jan 2010 14:57:18 +0000 Subject: [PATCH] fix Windows build (GHC.Conc.runHandlers is Unix-only) --- rts/RtsStartup.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 8e2eac4..b0cddbd 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -184,7 +184,9 @@ hs_init(int *argc, char **argv[]) getStablePtr((StgPtr)runSparks_closure); getStablePtr((StgPtr)ensureIOManagerIsRunning_closure); +#ifndef mingw32_HOST_OS getStablePtr((StgPtr)runHandlers_closure); +#endif /* initialise the shared Typeable store */ initGlobalStore(); -- 1.7.10.4