.

[clean-tests.git] / gengen / Data / GenType.icl

diff --git a/gengen/Data/GenType.icl b/gengen/Data/GenType.icl
index e6cfe8b..aeaf5aa 100644 (file)
--- a/gengen/Data/GenType.icl
+++ b/gengen/Data/GenType.icl
@@ -271,6 +271,16 @@ where
        isBuiltin (GTyRef a) = isBuiltin a
        isBuiltin _ = True
 
+instance isBasic Type
+where
+       isBasic (TyBasic t) = True
+       isBasic _ = False
+
+instance isBasic GType
+where
+       isBasic (GTyBasic t) = True
+       isBasic _ = False
+
 instance replaceBuiltins GenericFieldDescriptor
 where
        replaceBuiltins s = {s & gfd_name=replaceBuiltins s.gfd_name}