Add pull request event

Signed-off-by: Sascha Grunert <mail@saschagrunert.de>

.gitignore

@@ -1,3 +1,4 @@
+*.lock
 *.orig
 *.sqlite3*
 *.tar

src/Handler/GitHub.hs

@@ -5,7 +5,15 @@
 -- @since 0.1.0
 module Handler.GitHub ( postGitHubR ) where
 
+import           Data.Aeson.Types            as T ( Result(Success) )
+
+import           GitHub.Data.Webhooks.Events ( PullRequestEvent )
+
 import           Import
 
 postGitHubR :: Handler ()
-postGitHubR = sendResponseStatus status200 ()
+postGitHubR = do
+    body <- parseCheckJsonBody :: Handler (T.Result PullRequestEvent)
+    case body of
+        Success _ -> sendResponseStatus status200 ()
+        _ -> sendResponseStatus status400 ()