update

[mTask.git] / Utils / SDS.icl

diff --git a/Utils/SDS.icl b/Utils/SDS.icl
index f7a6cc7..f90c029 100644 (file)
--- 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