From: Mart Lubbers <mart@martlubbers.net>
Date: Sun, 15 Jan 2017 13:59:05 +0000 (+0100)
Subject: update
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=052b9089d5c18e54bea8333dfaa041c389da3289;p=mTask.git

update
---

diff --git a/miTask.icl b/miTask.icl
index d483490..89a3cd6 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 ||-
 	(
 		(