fix bugs for uireorg

[mTask.git] / mTaskSimulation.dcl

diff --git a/mTaskSimulation.dcl b/mTaskSimulation.dcl
index 5e502e2..525498f 100644 (file)
--- a/mTaskSimulation.dcl
+++ b/mTaskSimulation.dcl
@@ -2,6 +2,9 @@ definition module mTaskSimulation
 
 import mTask
 
+:: Display a = Display a
+
+derive class iTask Display
 instance zero State`
 
 eval :: (Main (Eval t p)) -> [String] | toString t