X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskCode.icl;h=f1da0d8109d6b0a8ad52cc2f5f7cdabacff515ec;hb=ff7049a99f7fdd701d49222019df65a9aee8f05a;hp=6360b5a33b41f6786a51be2b121be4da1cd2dcb2;hpb=0d7dc6966d2f428cd7543708e220aa4315d64978;p=mTask.git

diff --git a/mTaskCode.icl b/mTaskCode.icl
index 6360b5a..f1da0d8 100644
--- a/mTaskCode.icl
+++ b/mTaskCode.icl
@@ -1,7 +1,10 @@
 implementation module mTaskCode
 
+import Generics.gdynamic
+import Generics.gCons
+
 import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray
+import GenEq, StdMisc, StdArray
 import mTask
 
 instance toCode MTask where toCode (MTask x) = "Task " + toCode x 
@@ -74,6 +77,7 @@ instance sds Code where
     in setCode Var +.+ c (type2string v + " " + name + " = " + toCode v + 
        ";\n") +.+ setCode Setup +.+ unMain body}
   con f = defCode f
+  pub _ = undef
 
 defCode :: ((Code t p) -> In t (Main (Code u q))) -> Main (Code u r) | type t
 defCode f =