repositories
/
mTask.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
, 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
realWrite mi w iw
| not (trace_tn $ "write called with: " +++ printToString mi +++ " w " +++ printToString w) = undef
# (merr, iw) = write w realDeviceStore iw