X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Devices%2FmTaskTCP.icl;h=5373d50a2e98b450ec7a106b382f374580fd33f0;hb=3fe035b92e9bc0b745c57db64e78461b2f36b6d1;hp=dc57231be22a845cbb3c370795d1c1dbc00e4e76;hpb=ccf50ec9be06bc1b418b25225ca76d6e6ce743ac;p=mTask.git

diff --git a/Devices/mTaskTCP.icl b/Devices/mTaskTCP.icl
index dc57231..5373d50 100644
--- 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)