X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskSimulation.icl;h=e158002875eac94b8efbba0f6adccc12f852d1bf;hb=a2b8b2a0de173f92092bf6cbbed23551e674ca3c;hp=d28a4fe5fb221ec5c8c0a490e4d4e88456cc45c1;hpb=1c8014ff74afb966b891a4689d8ee3e512300746;p=mTask.git diff --git a/mTaskSimulation.icl b/mTaskSimulation.icl index d28a4fe..e158002 100644 --- a/mTaskSimulation.icl +++ b/mTaskSimulation.icl @@ -1,9 +1,12 @@ 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 +derive class iTask Display eval :: (Main (Eval t p)) -> [String] | toString t eval {main=(E f)} = [toString (fst (f Rd zero))]