X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=arch.communication.tex;h=0bb3746e00a855b8100ae5364d5058370884a661;hb=2498dced580be1e7af31a662dadee26c4fd159ed;hp=916b7809f49d20446ad65f0ce037105478c156d8;hpb=0ea729c9667ddd36e834d1056750c467c88df79c;p=msc-thesis1617.git

diff --git a/arch.communication.tex b/arch.communication.tex
index 916b780..0bb3746 100644
--- a/arch.communication.tex
+++ b/arch.communication.tex
@@ -124,7 +124,7 @@ where
 		MTDevSpec s = deviceAddSpec device s @! ()
 		) >>| proc ms
 
-connectDevice :: MTaskDevice -> Task Channels
+connectDevice :: MTaskDevice -> Task MTaskDevice
 connectDevice device = set ([], [], False) ch
 	>>| appendTopLevelTask 'DM'.newMap True
 	(	process device ch -||- catchAll (getSynFun device.deviceData ch) errHdl)