X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=d07c760fdaa377f9f7ea10720e2c9a2e801a2137;hb=64f379e7446a716257f6030157f2cb254200aa7b;hp=f7c476c52f1d5de8b8713cc43632361c4867bc7f;hpb=8d881526eee2134ade0eb6f3b554876ecced2db6;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index f7c476c..d07c760 100644
--- 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 ||-
 	(
 		(