X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2FFileLock.h;h=a7d8d3cfed6d63e69e613dd1e18562d74954132c;hb=0b22a78248bd06da23c220c842d2a850475d39de;hp=9a35ecc581e0b2e9207425a75399a0c42b0096b9;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/includes/rts/FileLock.h b/includes/rts/FileLock.h
index 9a35ecc..a7d8d3c 100644
--- a/includes/rts/FileLock.h
+++ b/includes/rts/FileLock.h
@@ -1,14 +1,23 @@
 /* -----------------------------------------------------------------------------
  *
- * (c) The GHC Team, 2007
+ * (c) The GHC Team, 2007-2009
  *
- * File locking support as required by Haskell 98
+ * File locking support as required by Haskell
+ *
+ * Do not #include this file directly: #include "Rts.h" instead.
+ *
+ * To understand the structure of the RTS headers, see the wiki:
+ *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
  *
  * ---------------------------------------------------------------------------*/
 
 #ifndef RTS_FILELOCK_H
 #define RTS_FILELOCK_H
 
+#ifdef HAVE_SYS_TYPES_H
+#include <sys/types.h>
+#endif
+
 int  lockFile(int fd, dev_t dev, ino_t ino, int for_writing);
 int  unlockFile(int fd);