X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fposix%2FFileLock.c;h=cb36366070c7bbb54b5f9cc8d4891b782049279c;hb=470bedbbe60db2b9cc85dccafb6e06d9a841419d;hp=26e9de4dc2a866c95e8334535ffbcc37088dbb88;hpb=b2391c27ecf7163cc2b08697742c8fa20783ea3c;p=ghc-hetmet.git

diff --git a/rts/posix/FileLock.c b/rts/posix/FileLock.c
index 26e9de4..cb36366 100644
--- a/rts/posix/FileLock.c
+++ b/rts/posix/FileLock.c
@@ -2,18 +2,20 @@
  *
  * (c) The GHC Team, 2007
  *
- * File locking support as required by Haskell 98
+ * File locking support as required by Haskell
  *
  * ---------------------------------------------------------------------------*/
  
+#include "PosixSource.h"
 #include "Rts.h"
-#include "Hash.h"
+
 #include "FileLock.h"
+#include "Hash.h"
 #include "RtsUtils.h"
-#include "OSThreads.h"
 
-#include <unistd.h>
+#include <sys/types.h>
 #include <sys/stat.h>
+#include <unistd.h>
 #include <errno.h>
 
 typedef struct {