X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Utils%2FSDS.icl;fp=Utils%2FSDS.icl;h=f90c0292a8dc8d7090536d863f6dae3577501e6a;hb=8221c3559e4d4a1be6fac0f9f81af2cc1beed9e9;hp=f7a6cc7573a7ed477fc6e4c1dfea7b49abf7573e;hpb=6420aa92a3b4b341f8f86654df79adc1ef610741;p=mTask.git

diff --git a/Utils/SDS.icl b/Utils/SDS.icl
index f7a6cc7..f90c029 100644
--- a/Utils/SDS.icl
+++ b/Utils/SDS.icl
@@ -29,10 +29,10 @@ deviceStore = SDSSource {SDSSource
 	, write= realWrite
 	}
 where
-	realRead p iw
-	| not (trace_tn $ "read called with: " +++ printToString p) = undef
-	= read realDeviceStore iw
+	realRead :: (Maybe (MTaskDevice,Int)) *IWorld -> (MaybeError TaskException [MTaskDevice], *IWorld)
+	realRead p iw = read realDeviceStore iw
 
+	realWrite :: (Maybe (MTaskDevice,Int)) [MTaskDevice] *IWorld -> (MaybeError TaskException (SDSNotifyPred (Maybe (MTaskDevice,Int))), *IWorld)
 	realWrite mi w iw
 	| not (trace_tn $ "write called with: " +++ printToString mi +++ " w " +++ printToString w) = undef
 	# (merr, iw) = write w realDeviceStore iw