share notification broken for sharedStore
module test import iTasks Start w = startEngine main w sh :: Shared [Int] sh = sharedStore "bork" [0,1,2] main :: Task [Int] main = viewSharedInformation ()  sh ||- (chooseAction [(Action "Empty", ())] >>- \()->upd (\_->) sh) @? const NoValue
If you change the share to be a
withShared it works.