Add github event handler

Note this just updates the head history table for now. I'll update it to actually display the history later.

@cpennington
Is there a better way to structure this so that this binding isn't necessary?

If I do `jsonEvent <- requireJsonBody` before the case statement above, I'm going to have the same type errors I was having before given the polymorphic nature of the return type of `requireJsonBody`.