urbit/pkg/arvo/ren/publish/comments.hoon
2020-01-03 22:06:42 +01:00

15 lines
315 B
Plaintext

/- publish
/+ publish
/= result
/^ (list comment:publish)
/;
|= comments=(map knot comment:publish)
^- (list [comment-info:publish @t])
%+ sort ~(val by comments)
|= [a=comment:publish b=comment:publish]
^- ?
(gte date-created.info.a date-created.info.b)
::
/_ /publish-comment/
result