+
+updateShare :: Int String -> Task ()
+updateShare ident val = get sdsStore
+ >>= \sh->(case find (\s->s.identifier==ident) sh of
+ Nothing = abort "Help, no share found with this ident"
+ Just mts = set (fromByteCode val) (getSDSShare mts))
+ >>| traceValue "Updated" @! ()