avoid blocked indefinitely on mvar on windows

by repeatedly reading lines and pausing since cannot do signal foo used on
unix

Utility/ThreadScheduler.hs

@@ -53,17 +53,20 @@ unboundDelay time = do
 {- Pauses the main thread, letting children run until program termination. -}
 waitForTermination :: IO ()
 waitForTermination = do
+#ifdef mingw32_HOST_OS
+	runEvery (Seconds 600) $
+		void getLine
+#else
 	lock <- newEmptyMVar
-#ifndef mingw32_HOST_OS
 	let check sig = void $
 		installHandler sig (CatchOnce $ putMVar lock ()) Nothing
 	check softwareTermination
 #ifndef __ANDROID__
 	whenM (queryTerminal stdInput) $
 		check keyboardSignal
-#endif
 #endif
 	takeMVar lock
+#endif
 
 oneSecond :: Microseconds
 oneSecond = 1000000