import TTY
derive class iTask Queue, TTYSettings, Parity, BaudRate, ByteSize
import TTY
derive class iTask Queue, TTYSettings, Parity, BaudRate, ByteSize
-derive class iTask MTaskMSGRecv, MTaskMSGSend, SerTCP
+derive class iTask MTaskMSGRecv, MTaskMSGSend, SerTCP, UserLED
>>= \p->sendMsg (fst (makeMsgs 0 (bc3 p))) ch)
||- viewSharedInformation "channels" [ViewWith lens] ch
||- viewSharedInformation "messages" [] messageShare
>>= \p->sendMsg (fst (makeMsgs 0 (bc3 p))) ch)
||- viewSharedInformation "channels" [ViewWith lens] ch
||- viewSharedInformation "messages" [] messageShare
- MTMessage s = upd (\l->take 20 [s:l]) m @! ()
- mta=:(MTTaskAdded _) = upd (\l->take 20 [toString mta:l]) m @! ()
+ MTMessage s = upd (\l->take 5 [s:l]) m @! ()
+ mta=:(MTTaskAdded _) = upd (\l->take 5 [toString mta:l]) m @! ()
_ = return ()
lens :: ([MTaskMSGRecv], [MTaskMSGSend],Bool) -> ([String], [String])
_ = return ()
lens :: ([MTaskMSGRecv], [MTaskMSGSend],Bool) -> ([String], [String])