kinds

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

diff --git a/gengen/Data/GenType/CParser.icl b/gengen/Data/GenType/CParser.icl
index 1776e28..130ee3d 100644 (file)
--- a/gengen/Data/GenType/CParser.icl
+++ b/gengen/Data/GenType/CParser.icl
@@ -114,7 +114,7 @@ where
 
        parsedef :: Type [String] -> [String]
        parsedef t c
-               # (pt, _) = trace_stdout (parsefun t, map genTypeKind $ typeGenType t)
+               # (pt, _) = trace_stdout (parsefun t, toString $ genTypeKind $ typeGenType t)
                = ctypename t [" *", /*parsefun */pt, "(uint8_t (*get)()",pd t, ")":c]
        where
                pd (TyBasic s) = ""