X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskSimulation.dcl;fp=mTaskSimulation.dcl;h=ed8606889ec3a6a518fe4d4e12a83e17e76273a7;hb=28f4e19f893889e6d19d8c0653a643ae1580fd6d;hp=1669f23ca12593a7681b3e76033c8f3e41f96f24;hpb=497a31ebe6922b1b9f889450f5830f1ca1c4bb59;p=mTask.git

diff --git a/mTaskSimulation.dcl b/mTaskSimulation.dcl
index 1669f23..ed86068 100644
--- a/mTaskSimulation.dcl
+++ b/mTaskSimulation.dcl
@@ -1,6 +1,6 @@
 definition module mTaskSimulation
 
-import iTasks.API.Core.Types
+from iTasks.API.Core.Types import class iTask, :: Task, generic gEditor, generic gText, generic JSONEncode, generic JSONDecode, generic gDefault, :: Editor, :: TextFormat, :: JSONNode
 import mTask
 
 :: Display a = Display a
@@ -111,6 +111,6 @@ class stringQuotes t | type t :: (Code t p) -> Code t p
 instance stringQuotes String
 instance stringQuotes t
 
-derive   toGenDynamic (), MTask, DigitalPin, AnalogPin, Pin, [], Long //, Servo
-derive fromGenDynamic (), MTask, DigitalPin, AnalogPin, Pin, [], Long //, Servo
+derive   toGenDynamic (), MTask, DigitalPin, AnalogPin, Pin, [], Long, UserLED //, Servo
+derive fromGenDynamic (), MTask, DigitalPin, AnalogPin, Pin, [], Long, UserLED //, Servo
 instance ==   ()