X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskSimulation.icl;h=7c187f7f13f03bc1e30a5f0e1a176876dca5caf4;hb=af388f6b2c06d38b400d482ac3ccc1f819b5bf9f;hp=d28a4fe5fb221ec5c8c0a490e4d4e88456cc45c1;hpb=1c8014ff74afb966b891a4689d8ee3e512300746;p=mTask.git diff --git a/mTaskSimulation.icl b/mTaskSimulation.icl index d28a4fe..7c187f7 100644 --- a/mTaskSimulation.icl +++ b/mTaskSimulation.icl @@ -3,7 +3,7 @@ implementation module mTaskSimulation import iTasks import gdynamic, gCons, 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))]