actually working code

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index f7c476c..d07c760 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -49,8 +49,8 @@ deviceSelectorSerial = accWorld getDevices
 
 mTaskTask :: (Shared ([MTaskMSGRecv],Bool,[MTaskMSGSend],Bool)) -> Task ()
 mTaskTask ch =
-       deviceSelectorNetwork >>= \(p,h)->syncNetworkChannel h p "\n" decode encode ch ||-
-//     deviceSelectorSerial >>= \(s,set)->syncSerialChannel s set decode encode ch ||- 
+//     deviceSelectorNetwork >>= \(p,h)->syncNetworkChannel h p "\n" decode encode ch ||-
+       deviceSelectorSerial >>= \(s,set)->syncSerialChannel s set decode encode ch ||- 
        sendMsg msgs ch ||-
        (
                (