repositories
/
mTask.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6420aa9
)
update
author
Mart Lubbers
<mart@martlubbers.net>
Fri, 16 Jun 2017 17:40:31 +0000
(19:40 +0200)
committer
Mart Lubbers
<mart@martlubbers.net>
Fri, 16 Jun 2017 17:40:31 +0000
(19:40 +0200)
Utils/SDS.icl
patch
|
blob
|
history
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