Merge branch 'master' of gitlab.science.ru.nl:mlubbers/mTask

[mTask.git] / Devices / mTaskTCP.icl

diff --git a/Devices/mTaskTCP.icl b/Devices/mTaskTCP.icl
index dc57231..5373d50 100644 (file)
--- a/Devices/mTaskTCP.icl
+++ b/Devices/mTaskTCP.icl
@@ -24,7 +24,8 @@ instance MTaskDuplex TCPSettings where
                                onConnect=onConnect,
                                onData=onData,
                                onShareChange=onShareChange,
-                               onDisconnect=onDisconnect} >>= \_->viewInformation "done" [] "done" @! ()
+                               onDisconnect=onDisconnect}
+                               >>| throw "Device disconnected"
                where
                        onConnect :: String ChD -> (MaybeErrorString String, Maybe ChD, [String], Bool)
                        onConnect acc (msgs,send,sendStopped)