Fix C/Haskell type mismatches

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

diff --git a/cbits/lockFile.c b/cbits/lockFile.c
index 7756616..721246b 100644 (file)
--- a/cbits/lockFile.c
+++ b/cbits/lockFile.c
@@ -1,16 +1,16 @@
 /*
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-2004
  *
- * $Id: lockFile.c,v 1.4 2005/01/01 23:59:59 krasimir Exp $
+ * $Id: lockFile.c,v 1.5 2005/01/28 13:36:32 simonmar Exp $
  *
  * stdin/stout/stderr Runtime Support
  */
 
-#ifndef mingw32_TARGET_OS
+#if !(defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32))
 
 #include "HsBase.h"
 #include "Rts.h"
-#include "../../ghc/rts/RtsUtils.h" // for barf()
+#include "RtsUtils.h"
 
 typedef struct {
     dev_t device;