* 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 [] }
typeOf = typeOfDefault }
#endif /* !__GLASGOW_HASKELL__ */
+
+#endif