fixup format of task performer spec
This commit is contained in:
parent
8afed87e99
commit
33ef42818d
|
@ -2308,38 +2308,38 @@
|
||||||
(listen)
|
(listen)
|
||||||
(Reacts
|
(Reacts
|
||||||
(Asserted
|
(Asserted
|
||||||
(Observe-
|
(Observe
|
||||||
(TaskPerformance-
|
(TaskPerformance
|
||||||
Symbol
|
Symbol
|
||||||
(Task-
|
(Task
|
||||||
(Tuple- Int Symbol)
|
(Tuple Int Symbol)
|
||||||
(U
|
(U
|
||||||
(MapWork- String)
|
(MapWork String)
|
||||||
(ReduceWork- (Hash- String Int) (Hash- String Int))))
|
(ReduceWork (Hash String Int) (Hash String Int))))
|
||||||
★/t)))
|
★/t)))
|
||||||
(Role
|
(Role
|
||||||
(during-inner)
|
(during-inner)
|
||||||
(Reacts
|
(Reacts
|
||||||
(Retracted
|
(Retracted
|
||||||
(Observe-
|
(Observe
|
||||||
(TaskPerformance-
|
(TaskPerformance
|
||||||
Symbol
|
Symbol
|
||||||
(Task-
|
(Task
|
||||||
(Tuple- Int Symbol)
|
(Tuple Int Symbol)
|
||||||
(U
|
(U
|
||||||
(MapWork- String)
|
(MapWork String)
|
||||||
(ReduceWork- (Hash- String Int) (Hash- String Int))))
|
(ReduceWork (Hash String Int) (Hash String Int))))
|
||||||
★/t)))
|
★/t)))
|
||||||
(Stop during-inner))
|
(Stop during-inner))
|
||||||
(Shares
|
(Shares
|
||||||
(TaskPerformance-
|
(TaskPerformance
|
||||||
Symbol
|
Symbol
|
||||||
(Task-
|
(Task
|
||||||
(Tuple- Int Symbol)
|
(Tuple Int Symbol)
|
||||||
(U
|
(U
|
||||||
(MapWork- String)
|
(MapWork String)
|
||||||
(ReduceWork- (Hash- String Int) (Hash- String Int))))
|
(ReduceWork (Hash String Int) (Hash String Int))))
|
||||||
(U (Finished- (Hash- String Int)) Symbol)))))))
|
(U (Finished (Hash String Int)) Symbol)))))))
|
||||||
|
|
||||||
(module+ test
|
(module+ test
|
||||||
(test-case "parse and compile task-performer-spec"
|
(test-case "parse and compile task-performer-spec"
|
||||||
|
|
Loading…
Reference in New Issue