3 import iTasks.Internal.IWorld
7 sh = sharedStore "bork2" ({Timespec|tv_sec=0,tv_nsec=0}, 42)
11 t = viewSharedInformation [] sh
12 -&&- updateSharedInformation [] (
13 sdsTranslate "" (\p->((), p))
14 (sdsStamp sh ticker (\x y->(x, y))))
16 // This gives you 100% cpu because you get updates very fast
17 //t = viewSharedInformation [] ticker
19 ticker = sdsFocus {start={tv_sec=0,tv_nsec=0},interval={Timespec|tv_sec=0,tv_nsec=1000000}} iworldTimespec