urbit/mar/gh/issue-comment.hoon
Philip C Monk d285cc5055 151ization complete
Conflicts:
	Makefile
2016-02-18 19:12:31 -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)))
==
--
--