Merge branch 'master' of git.martlubbers.net:msc-thesis1617

[msc-thesis1617.git] / arch.communication.tex

diff --git a/arch.communication.tex b/arch.communication.tex
index 916b780..0bb3746 100644 (file)
--- 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)