X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=include%2FCTypes.h;h=f82faa8f0068bded177843c58cc19addf344fc0f;hb=a70f356e023abdd0abb130cc149b0e3de7469044;hp=d867936ac5c9b3800a7e7e8b533cc0f7d2cf0c9f;hpb=bccd35aa801c910b7db3f94ac16f2b18bdf9f108;p=haskell-directory.git

diff --git a/include/CTypes.h b/include/CTypes.h
index d867936..f82faa8 100644
--- a/include/CTypes.h
+++ b/include/CTypes.h
@@ -1,12 +1,13 @@
 /* -----------------------------------------------------------------------------
- * $Id: CTypes.h,v 1.8 2004/06/13 21:03:47 panne Exp $
- *
  * Dirty CPP hackery for CTypes/CTypesISO
  *
  * (c) The FFI task force, 2000
  * -------------------------------------------------------------------------- */
 
-#include "MachDeps.h"
+#ifndef CTYPES__H
+#define CTYPES__H
+
+#include "Typeable.h"
 
 /* As long as there is no automatic derivation of classes for newtypes we resort
    to extremely dirty cpp-hackery.   :-P   Some care has to be taken when the
@@ -205,3 +206,5 @@ instance Show T where { \
    showList		= unsafeCoerce# (showList :: [B] -> ShowS); }
 
 #endif /* __GLASGOW_HASKELL__ */
+
+#endif