X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskCode.dcl;h=47aff54518a95cd537e576df4f098b7df3bcc634;hb=68e65ffa79b10fc6762a0f7989a268126fc20c1b;hp=8e5f0f58ab6e8088a29b2a82f31fb7ea0c53ff23;hpb=e25fda18ca554ec3fe937152403872b916367ddb;p=mTask.git

diff --git a/mTaskCode.dcl b/mTaskCode.dcl
index 8e5f0f5..47aff54 100644
--- 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
@@ -99,7 +98,7 @@ instance noOp Code
   , iloop			:: Int
   , includes  :: [String]
   , def   	  :: Def
-  , mode  	  :: Mode
+  , mode`  	  :: Mode
   , binds			:: [String]
   }