migrate to new version

[mTask.git] / Utils / SDS.icl

diff --git a/Utils/SDS.icl b/Utils/SDS.icl
index afd1c6c..f7a6cc7 100644 (file)
--- a/Utils/SDS.icl
+++ b/Utils/SDS.icl
@@ -25,7 +25,7 @@ gPrint{|Dynamic|} _ st = gPrint{|*|} "**Dynamic**" st
 deviceStore :: RWShared (Maybe (MTaskDevice, Int)) [MTaskDevice] [MTaskDevice]
 deviceStore = SDSSource {SDSSource 
        | name = "deviceStore"
-       , read = \_->read realDeviceStore
+       , read = realRead
        , write= realWrite
        }
 where