X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskSimulation.dcl;h=525498f7d30447084af70c05901586863d5fdefe;hb=0d7dc6966d2f428cd7543708e220aa4315d64978;hp=5e502e23317b035edff2cbb41a79a67183eaf395;hpb=7a67ef5e2af69cb14011be201fe67f755b91a788;p=mTask.git

diff --git a/mTaskSimulation.dcl b/mTaskSimulation.dcl
index 5e502e2..525498f 100644
--- 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