X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskSimulation.icl;h=801235ec2e3ed0bb821dd33415014d1c061bb51b;hb=18c1286739897b65578e87b17167c6cef1922a3b;hp=f4835bebd63f3828da911f48bd9c209e5467fba3;hpb=e37402e7672352aa3642df4c1183417a72f59641;p=mTask.git diff --git a/mTaskSimulation.icl b/mTaskSimulation.icl index f4835be..801235e 100644 --- a/mTaskSimulation.icl +++ b/mTaskSimulation.icl @@ -155,7 +155,7 @@ instance writePinD AnalogPin where // ----- Interactive Simulation ----- // -derive class iTask DigitalPin, AnalogPin, Dyn, StateInterface, DisplayVar, Pin +derive class iTask StateInterface, DisplayVar simulate :: (Main (Eval a p)) -> Task () simulate {main=(E f)} = setup zero where