refactoors

[mTask.git] / mTaskCode.dcl

diff --git a/mTaskCode.dcl b/mTaskCode.dcl
index 8e5f0f5..91c7038 100644 (file)
--- a/mTaskCode.dcl
+++ b/mTaskCode.dcl
@@ -2,12 +2,11 @@ definition module mTaskCode
 
 import mTask
 
+class toCode a :: a -> String
 instance toCode Pin
 instance toCode MTask
 instance toCode ()
 instance toCode Long
-
-class toCode a :: a -> String
 instance toCode Bool
 instance toCode Int
 instance toCode Real
@@ -15,6 +14,7 @@ instance toCode Char
 instance toCode String
 instance toCode DigitalPin
 instance toCode AnalogPin
+instance toCode UserLED
 
 argType :: (((Code a p)->Code b q)->In ((Code a p)->Code b q) (Code c s)) -> a | type a
 
@@ -99,7 +99,7 @@ instance noOp Code
   , iloop                      :: Int
   , includes  :: [String]
   , def          :: Def
-  , mode         :: Mode
+  , mode`        :: Mode
   , binds                      :: [String]
   }