X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskSimulation.icl;h=801235ec2e3ed0bb821dd33415014d1c061bb51b;hb=09b207a39b7791098daafd7d87c3ad9d3db3e19f;hp=f4835bebd63f3828da911f48bd9c209e5467fba3;hpb=28f4e19f893889e6d19d8c0653a643ae1580fd6d;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