X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Devices%2FmTaskDevice.icl;fp=Devices%2FmTaskDevice.icl;h=7316f94f65ba8f9f2952be11849103b43a80b5a0;hb=6b9b7f62df51ee3f48a78ae05b8b8f287ecce5b2;hp=e05d61b47d3dbb445dcc28229a629f7ab22b464a;hpb=a81623aa9629a3c5c8f8bf920e494a596b30c4b7;p=mTask.git

diff --git a/Devices/mTaskDevice.icl b/Devices/mTaskDevice.icl
index e05d61b..7316f94 100644
--- a/Devices/mTaskDevice.icl
+++ b/Devices/mTaskDevice.icl
@@ -44,7 +44,8 @@ makeDevice name res = get randomInt @ \rand->{MTaskDevice
 		,deviceTask=Nothing
 		,deviceError=Nothing
 		,deviceData=res
-		,deviceSpec=Nothing}
+		,deviceSpec=Nothing
+		,deviceShares=[]}
 
 getSynFun :: MTaskResource -> ((Shared Channels) -> Task ())
 getSynFun (TCPDevice t) = synFun t
@@ -104,7 +105,7 @@ deleteDevice d = sendMessages [MTShutdown] d
 	>>| upd (\(r,s,ss)->(r,s,True)) (channels d)
 	>>| maybe (treturn ()) (flip removeTask topLevelTasks) d.deviceTask
 	>>| upd (filter ((<>)d)) deviceStore
-	>>| cleanSharesDevice d.deviceName
+//	>>| cleanSharesDevice d.deviceName
 	@! ()
 
 sendMessages :: [MTaskMSGSend] -> (MTaskDevice -> Task Channels)