EDITORSgit add .!

[mTask.git] / Shares / mTaskShare.icl

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 0999cc2..cddc903 100644 (file)
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -34,7 +34,6 @@ manageShares shares =
 //     >>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
 //     >>| treturn sh
 
-
 viewShares :: [MTaskShare] -> Task MTaskShare
 viewShares sh = anyTask (map viewShare sh) <<@ ArrangeHorizontal
        >>| return (hd sh)
@@ -44,11 +43,11 @@ viewShare m = viewSharedInformation "" [] (getSDSShare m)
        <<@ Title ("SDS: " +++ toString m.identifier)
 
 getSDSShare :: MTaskShare -> Shared BCValue
-getSDSShare s=:{realShare=(MTaskWithShare id)}
-       = memoryShare id s.MTaskShare.value
+getSDSShare s=:{realShare=(MTaskWithShare id),value}
+       = memoryShare id value//s.MTaskShare.value
 
 makeShare :: String Int BCValue -> Task MTaskShare
-makeShare withTask identifier value = treturn 
+makeShare withTask identifier value=:(BCValue v) = treturn 
                {MTaskShare
                |withTask=withTask
                ,identifier=identifier