shrub/mar/gh/issue-comment.hoon
Philip C Monk 66c5a99b6e cleanup
2016-01-27 16:50:06 -05:00

19 lines
520 B
Plaintext

:: Converts the result of an 'issues' event into a issues:gh.
/- gh
/+ gh-parse
|_ issue-comment=issue-comment:gh
++ grab
|%
++ json
|= jon=^json
^- issue-comment:gh
=+ top=(need ((om:jo some) jon))
:* (need (repository:gh-parse (~(got by top) %repository)))
(need (user:gh-parse (~(got by top) %sender)))
(need (so:jo (~(got by top) %action)))
(need (issue:gh-parse (~(got by top) %issue)))
(need (comment:gh-parse (~(got by top) %comment)))
==
--
--