Make Control.Exception buildable by nhc98.

[haskell-directory.git] / cbits / lockFile.c

diff --git a/cbits/lockFile.c b/cbits/lockFile.c
index bf0a0f0..721246b 100644 (file)
--- a/cbits/lockFile.c
+++ b/cbits/lockFile.c
@@ -6,7 +6,7 @@
  * stdin/stout/stderr Runtime Support
  */
 
-#ifndef mingw32_HOST_OS
+#if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32))
 
 #include "HsBase.h"
 #include "Rts.h"