get-pull-request-files-old-new ( owner repo pr-number -- pr pr-files old new )

Vocabulary

github

Inputs

owner	an object
repo	an object
pr-number	an object

Outputs

pr	an object
pr-files	an object
old	an object
new	an object

Definition

USING: assocs combinators.extras kernel ;

IN: github

: get-pull-request-files-old-new
    ( owner repo pr-number -- pr pr-files old new )
    [ drop ] [ get-pull-request ] [ get-pull-request-files ]
    3tri
    [ 2nipd ] [ [ "base" of "sha" of ] dip get-files-from-sha ]
    [ [ "head" of "sha" of ] dip get-files-from-sha ] 4tri ;