X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=gCons.dcl;h=c43236a2415b92ca4787f58559b84b3a131240c2;hb=48dfd7ad2f104321657a3ea44d33340761c95c2e;hp=827c637cfb95fda21c7da1f5a06461e2e2114a34;hpb=f150c433c7a55e25a4f700b7c33b0e9cbdaff81a;p=mTask.git

diff --git a/gCons.dcl b/gCons.dcl
index 827c637..c43236a 100644
--- a/gCons.dcl
+++ b/gCons.dcl
@@ -10,7 +10,7 @@ definition module gCons
 import StdGeneric
 
 generic consName a :: a -> String
-derive consName CONS of {gcd_name},UNIT,PAIR,EITHER,OBJECT,RECORD,FIELD,Int,Bool,Char,(->)
+derive consName CONS of {gcd_name},UNIT,PAIR,EITHER,OBJECT,RECORD,FIELD,Int,Bool,Char,String,(->)
 
 generic consIndex a :: a -> Int
-derive consIndex CONS of {gcd_index},UNIT,PAIR,EITHER,OBJECT,Int,Bool,Char
+derive consIndex CONS of {gcd_index},UNIT,PAIR,EITHER,OBJECT,Int,Bool,Char,String