Change timeout to ADT and start supporting interrupts

[mTask.git] / mTaskSimulation.icl

diff --git a/mTaskSimulation.icl b/mTaskSimulation.icl
index d52fa9a..e158002 100644 (file)
--- a/mTaskSimulation.icl
+++ b/mTaskSimulation.icl
@@ -1,7 +1,10 @@
 implementation module mTaskSimulation
 
+import Generics.gdynamic
+import Generics.gCons
+
 import iTasks
-import gdynamic, gCons, GenEq, StdMisc, StdArray
+import GenEq, StdMisc, StdArray
 import mTask
 derive class iTask Display
 
@@ -74,6 +77,7 @@ defEval2 v f =
 instance sds Eval where
   sds f = defEval f
   con f = defEval f
+  pub _ = undef
 
 defEval :: ((Eval t p)->In t (Main (Eval u q))) -> (Main (Eval u q)) | dyn t
 defEval f =