Merge branch 'master' of gitlab.science:mlubbers/mTask

[mTask.git] / Shares / mTaskShare.icl

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 81ebb8b..43350e1 100644 (file)
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -68,6 +68,9 @@ makeShare withTask identifier value = {MTaskShare
                }
 
 import GenPrint, StdMisc, StdDebug, TTY
                }
 
 import GenPrint, StdMisc, StdDebug, TTY

+
+gPrint{|BCState|} x st = gPrint{|*|} "BCState..." st
+

 derive gPrint MTaskDevice, MTaskShare, Maybe, MTaskResource, MTaskTask, TaskId, TTYSettings, TCPSettings, DateTime
 derive gPrint Parity, BaudRate, ByteSize
 
 derive gPrint MTaskDevice, MTaskShare, Maybe, MTaskResource, MTaskTask, TaskId, TTYSettings, TCPSettings, DateTime
 derive gPrint Parity, BaudRate, ByteSize