X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=include%2FTypeable.h;h=b4ea47502797f86e48e02dd1c3e06709759d47e8;hb=7a73aaf70fefb4b30c9159f5d15035f8e9c6e114;hp=ea3fda716bba8ebaa55554fddd2c44cfc22b0e0f;hpb=0a913ae5534cd8d3532c090054f482584bc6a0c3;p=haskell-directory.git

diff --git a/include/Typeable.h b/include/Typeable.h
index ea3fda7..b4ea475 100644
--- a/include/Typeable.h
+++ b/include/Typeable.h
@@ -10,6 +10,9 @@
  *	instance (Typeable a1, ..., Typeable an) => Typeable (tc a1 ... an)
  * -------------------------------------------------------------------------- */
 
+#ifndef TYPEABLE_H
+#define TYPEABLE_H
+
 #define INSTANCE_TYPEABLE0(tycon,tcname,str) \
 tcname = mkTyCon str; \
 instance Typeable tycon where { typeOf _ = mkTyConApp tcname [] }
@@ -57,3 +60,5 @@ instance (Typeable a, Typeable b, Typeable c) => Typeable (tycon a b c) where {
   typeOf = typeOfDefault }
 
 #endif /* !__GLASGOW_HASKELL__ */
+
+#endif