From: Mart Lubbers <mart@martlubbers.net>
Date: Fri, 16 Jun 2017 17:40:31 +0000 (+0200)
Subject: update
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=8221c3559e4d4a1be6fac0f9f81af2cc1beed9e9;p=mTask.git

update
---

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