Function parse_pr_head_json 

pub fn parse_pr_head_json(s: &str) -> Result<PrHead>

Parse the JSON from gh pr view <n> --json number,author,headRefName,baseRefName. Kept pure + pub so its shape is unit-testable without spawning gh.