share updates do not respond immediately
The following code no longer works. When the updateInformation is used, the viewInformation is not immediately updated.
Start world = startEngine [ publish "/" (WebApp ) (_ -> main) , publish "/view" (WebApp ) (_ -> viewShare) , publish "/write" (WebApp ) (_ -> writeShare)] world
main :: Task () main = viewInformation ()  ()
someShare :: Shared String someShare = sharedStore "someShare" ""
viewShare :: Task () viewShare = viewSharedInformation "Viewing share"  someShare @! ()
writeShare :: Task () writeShare = updateSharedInformation "Updating share"  someShare @! ()